// File: /workspace/github_c_makefile_star2_O2/BernardTatin[P]s7sh/s7.c
// Function: macroexpand
static goto_t macroexpand(s7_scheme *sc)
                {
                    switch (type(sc->code))
                    {
                        case T_MACRO:
                            new_frame(sc, closure_let(sc->code), sc->envir);
                            return(goto_apply_lambda);

                        case T_BACRO:
                            new_frame(sc, sc->envir, sc->envir);
                            return(goto_apply_lambda);

                        case T_MACRO_STAR:
                            new_frame(sc, closure_let(sc->code), sc->envir);
                            apply_macro_star_1(sc);
                            return(goto_begin);

                        case T_BACRO_STAR:
                            new_frame(sc, sc->envir, sc->envir);
                            apply_macro_star_1(sc);
                            return(goto_begin);

                        case T_C_MACRO:
                            macroexpand_c_macro(sc);
                            return(goto_start);

                        default:
                            eval_error_no_return(sc, sc->syntax_error_symbol, "macroexpand argument is not a macro call: ~A", 44, sc->args);
                    }
                    return(fall_through); /* for the compiler */
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq (%rdi), %r12
movzbl (%r12), %eax
addl $-0x2a, %eax
cmpl $0x4, %eax
ja 0xaa015
leaq 0x2ac35(%rip), %rcx     # 0xd4a14
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xa9e07
movq %rbx, %rdi
callq 0x9c27
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
andq $0x0, 0x8(%rax)
movq (%rbx), %rcx
movq 0x18(%rcx), %rcx
jmp 0xa9f47
movq 0x10(%rbx), %r14
movq %r14, %rdi
callq 0x313be
movq %rax, %r15
cmpq 0x18(%r12), %rax
jge 0xa9e98
movq 0x1900(%rbx), %rsi
movq 0x7a581(%rip), %rax     # 0x1243e8
movq 0x6e8(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%rcx), %rax
movq %r12, 0x8(%rax)
movq 0x10(%rax), %rax
movq %r14, 0x8(%rax)
movq 0x6e8(%rbx), %rdx
movq %rbx, %rdi
callq 0x2cdc0
movq (%rbx), %r12
movq 0x10(%rbx), %r14
cmpq %r15, 0x28(%r12)
jge 0xa9ede
movq 0x1900(%rbx), %rsi
movq 0x781eb(%rip), %rax     # 0x122098
movq 0x6e8(%rbx), %rcx
movq %rax, 0x8(%rcx)
movq 0x10(%rcx), %rax
movq %r12, 0x8(%rax)
movq 0x10(%rax), %rax
movq %r14, 0x8(%rax)
movq 0x6e8(%rbx), %rdx
movq %rbx, %rdi
callq 0x2cdc0
movq (%rbx), %r12
movq 0x10(%rbx), %r14
movq %rbx, %rdi
movq %r14, %rsi
callq *0x10(%r12)
movq %rax, 0x20(%rbx)
xorl %eax, %eax
jmp 0xaa07c
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xa9f13
movq %rbx, %rdi
callq 0x9c27
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
andq $0x0, 0x8(%rax)
movq 0x8(%rbx), %rcx
movq %rcx, 0x10(%rax)
movq %rax, 0x8(%rbx)
pushq $0x6
jmp 0xaa07b
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xa9f75
movq %rbx, %rdi
callq 0x9c27
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
andq $0x0, 0x8(%rax)
movq 0x8(%rbx), %rcx
jmp 0xaa001
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0xa9fca
movq %rbx, %rdi
callq 0x9c27
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movq $0x20001c, (%rax)       # imm = 0x20001C
movq 0x250(%rbx), %rcx
incq %rcx
movq %rcx, 0x250(%rbx)
movq %rcx, 0x18(%rax)
andq $0x0, 0x8(%rax)
movq (%rbx), %rcx
movq 0x18(%rcx), %rcx
movq %rcx, 0x10(%rax)
movq %rax, 0x8(%rbx)
movq %rbx, %rdi
callq 0xa9ce3
pushq $0x1
jmp 0xaa07b
movq 0x1918(%rbx), %rsi
movq 0x820(%rbx), %rax
movslq 0x7dc(%rbx), %rcx
movq (%rax,%rcx,8), %rax
incl %ecx
andl $0x7, %ecx
movl %ecx, 0x7dc(%rbx)
leaq 0x39c69(%rip), %rcx     # 0xe3ca9
movq %rcx, 0x10(%rax)
movq $0x2c, 0x8(%rax)
movq 0x10(%rbx), %rcx
movq 0x6e0(%rbx), %rdx
movq %rax, 0x8(%rdx)
movq 0x6e0(%rbx), %rax
movq 0x10(%rax), %rax
movq %rcx, 0x8(%rax)
movq 0x6e0(%rbx), %rdx
movq %rbx, %rdi
callq 0x2cdc0
pushq $0x2
popq %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq