LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_set_cdr
static s7_pointer g_set_cdr(s7_scheme *sc, s7_pointer args)
                {
#define H_set_cdr "(set-cdr! pair val) sets the pair's second element to val"
#define Q_set_cdr s7_make_signature(sc, 3, sc->T, sc->is_pair_symbol, sc->T)
                    s7_pointer p;

                    p = car(args);
                    if (!is_mutable_pair(p))
                        return(mutable_method_or_bust(sc, p, sc->set_cdr_symbol, args, T_PAIR, 1));

                    set_cdr(p, cadr(args));
                    return(cdr(p));
                }

// Assembly:
movq %rsi, %rcx
movq 0x8(%rsi), %rsi
movl $0x10000ff, %eax        # imm = 0x10000FF
andl (%rsi), %eax
cmpl $0x1, %eax
jne 0x74419
movq 0x10(%rcx), %rax
movq 0x8(%rax), %rax
movq %rax, 0x10(%rsi)
retq
movq 0x14b0(%rdi), %rdx
movl $0x1, %r8d
jmp 0xe7180
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caar
static s7_pointer g_caar(s7_scheme *sc, s7_pointer args)
                {
#define H_caar "(caar lst) returns (car (car lst)): (caar '((1 2))) -> 1"
#define Q_caar sc->pl_p

                    s7_pointer lst;
                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caar_symbol, lst, car_a_list_string));
                    /* it makes no difference in timing to move lst here or below (i.e. lst=car(lst) then return(car(lst)) and so on) */
                    return(caar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74442
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7445a
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xca8(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xca8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe10fd(%rip), %r8      # 0x155570
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cadr
static s7_pointer g_cadr(s7_scheme *sc, s7_pointer args)
                {
#define H_cadr "(cadr lst) returns (car (cdr lst)): (cadr '(1 2 3)) -> 2"
#define Q_cadr sc->pl_p

                    s7_pointer lst;
                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadr_symbol, lst, cdr_a_list_string));
                    return(cadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74492
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x744aa
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xce0(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xce0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe10b5(%rip), %r8      # 0x155578
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdar
static s7_pointer g_cdar(s7_scheme *sc, s7_pointer args)
                {
#define H_cdar "(cdar lst) returns (cdr (car lst)): (cdar '((1 2 3))) -> '(2 3)"
#define Q_cdar sc->pl_p

                    s7_pointer lst;
                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdar_symbol, lst, car_a_list_string));
                    return(cdar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x744e2
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x744fa
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd60(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd60(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe105d(%rip), %r8      # 0x155570
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cddr
static s7_pointer g_cddr(s7_scheme *sc, s7_pointer args)
                {
#define H_cddr "(cddr lst) returns (cdr (cdr lst)): (cddr '(1 2 3 4)) -> '(3 4)"
#define Q_cddr sc->pl_p

                    s7_pointer lst;
                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddr_symbol, lst, cdr_a_list_string));
                    return(cddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74532
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7454a
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd98(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd98(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe1015(%rip), %r8      # 0x155578
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caaar
static s7_pointer g_caaar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caaar "(caaar lst) returns (car (car (car lst))): (caaar '(((1 2)))) -> 1"
#define Q_caaar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caaar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaar_symbol, lst, car_a_list_string));
                    if (!is_pair(caar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaar_symbol, lst, caar_a_list_string));
                    return(caaar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x7458b
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x745a3
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x745be
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xc88(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xc88(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0fb4(%rip), %r8      # 0x155570
jmp 0x745d7
movq 0xc88(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0fa9(%rip), %r8      # 0x155580
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caadr
static s7_pointer g_caadr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caadr "(caadr lst) returns (car (car (cdr lst))): (caadr '(1 (2 3))) -> 2"
#define Q_caadr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caadr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caadr_symbol, lst, cadr_a_list_string));
                    return(caadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x745ff
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74617
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74632
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xca0(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xca0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0f48(%rip), %r8      # 0x155578
jmp 0x7464b
movq 0xca0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0f3d(%rip), %r8      # 0x155588
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cadar
static s7_pointer g_cadar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cadar "(cadar lst) returns (car (cdr (car lst))): (cadar '((1 2 3))) -> 2"
#define Q_cadar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cadar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadar_symbol, lst, car_a_list_string));
                    if (!is_pair(cdar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadar_symbol, lst, cdar_a_list_string));
                    return(cadar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74673
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7468b
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x746a6
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xcc0(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xcc0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0ecc(%rip), %r8      # 0x155570
jmp 0x746bf
movq 0xcc0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0ed1(%rip), %r8      # 0x155590
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdaar
static s7_pointer g_cdaar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdaar "(cdaar lst) returns (cdr (car (car lst))): (cdaar '(((1 2 3)))) -> '(2 3)"
#define Q_cdaar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdaar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaar_symbol, lst, car_a_list_string));
                    if (!is_pair(caar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaar_symbol, lst, caar_a_list_string));
                    return(cdaar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x746e7
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x746ff
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7471a
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd40(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd40(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0e58(%rip), %r8      # 0x155570
jmp 0x74733
movq 0xd40(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0e4d(%rip), %r8      # 0x155580
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caddr
static s7_pointer g_caddr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caddr "(caddr lst) returns (car (cdr (cdr lst))): (caddr '(1 2 3 4)) -> 3"
#define Q_caddr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caddr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caddr_symbol, lst, cddr_a_list_string));
                    return(caddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x7475b
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74773
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7478e
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xcd8(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xcd8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0dec(%rip), %r8      # 0x155578
jmp 0x747a7
movq 0xcd8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0df1(%rip), %r8      # 0x155598
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdddr
static s7_pointer g_cdddr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdddr "(cdddr lst) returns (cdr (cdr (cdr lst))): (cdddr '(1 2 3 4)) -> '(4)"
#define Q_cdddr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdddr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdddr_symbol, lst, cddr_a_list_string));
                    return(cdddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x747cf
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x747e7
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74802
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd90(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd90(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0d78(%rip), %r8      # 0x155578
jmp 0x7481b
movq 0xd90(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0d7d(%rip), %r8      # 0x155598
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdadr
static s7_pointer g_cdadr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdadr "(cdadr lst) returns (cdr (car (cdr lst))): (cdadr '(1 (2 3 4))) -> '(3 4)"
#define Q_cdadr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdadr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdadr_symbol, lst, cadr_a_list_string));
                    return(cdadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74843
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7485b
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74876
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd58(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd58(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0d04(%rip), %r8      # 0x155578
jmp 0x7488f
movq 0xd58(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0cf9(%rip), %r8      # 0x155588
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cddar
static s7_pointer g_cddar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cddar "(cddar lst) returns (cdr (cdr (car lst))): (cddar '((1 2 3 4))) -> '(3 4)"
#define Q_cddar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cddar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddar_symbol, lst, car_a_list_string));
                    if (!is_pair(cdar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddar_symbol, lst, cdar_a_list_string));
                    return(cddar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x748b7
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x748cf
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x748ea
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd78(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd78(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0c88(%rip), %r8      # 0x155570
jmp 0x74903
movq 0xd78(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0c8d(%rip), %r8      # 0x155590
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caaaar
static s7_pointer g_caaaar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caaaar "(caaaar lst) returns (car (car (car (car lst)))): (caaaar '((((1 2))))) -> 1"
#define Q_caaaar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caaaar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaaar_symbol, lst, car_a_list_string));
                    if (!is_pair(caar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaaar_symbol, lst, caar_a_list_string));
                    if (!is_pair(caaar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaaar_symbol, lst, caaar_a_list_string));
                    return(caaaar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74934
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7494c
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74967
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74982
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xc78(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xc78(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0c0b(%rip), %r8      # 0x155570
jmp 0x7499b
movq 0xc78(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0c00(%rip), %r8      # 0x155580
jmp 0x7499b
movq 0xc78(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0c05(%rip), %r8      # 0x1555a0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caaadr
static s7_pointer g_caaadr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caaadr "(caaadr lst) returns (car (car (car (cdr lst)))): (caaadr '(1 ((2 3)))) -> 2"
#define Q_caaadr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caaadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaadr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaadr_symbol, lst, cadr_a_list_string));
                    if (!is_pair(caadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaadr_symbol, lst, caadr_a_list_string));
                    return(caaadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x749cc
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x749e4
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x749ff
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74a1a
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xc80(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xc80(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0b7b(%rip), %r8      # 0x155578
jmp 0x74a33
movq 0xc80(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0b70(%rip), %r8      # 0x155588
jmp 0x74a33
movq 0xc80(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0b75(%rip), %r8      # 0x1555a8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caadar
static s7_pointer g_caadar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caadar "(caadar lst) returns (car (car (cdr (car lst)))): (caadar '((1 (2 3)))) -> 2"
#define Q_caadar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caadar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caadar_symbol, lst, car_a_list_string));
                    if (!is_pair(cdar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caadar_symbol, lst, cdar_a_list_string));
                    if (!is_pair(cadar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caadar_symbol, lst, cadar_a_list_string));
                    return(caadar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74a64
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74a7c
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74a97
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74ab2
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xc90(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xc90(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0adb(%rip), %r8      # 0x155570
jmp 0x74acb
movq 0xc90(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0ae0(%rip), %r8      # 0x155590
jmp 0x74acb
movq 0xc90(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0ae5(%rip), %r8      # 0x1555b0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cadaar
static s7_pointer g_cadaar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cadaar "(cadaar lst) returns (car (cdr (car (car lst)))): (cadaar '(((1 2 3)))) -> 2"
#define Q_cadaar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cadaar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadaar_symbol, lst, car_a_list_string));
                    if (!is_pair(caar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadaar_symbol, lst, caar_a_list_string));
                    if (!is_pair(cdaar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadaar_symbol, lst, cdaar_a_list_string));
                    return(cadaar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74afc
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74b14
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74b2f
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74b4a
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xcb0(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xcb0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0a43(%rip), %r8      # 0x155570
jmp 0x74b63
movq 0xcb0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0a38(%rip), %r8      # 0x155580
jmp 0x74b63
movq 0xcb0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0a5d(%rip), %r8      # 0x1555c0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caaddr
static s7_pointer g_caaddr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caaddr "(caaddr lst) returns (car (car (cdr (cdr lst)))): (caaddr '(1 2 (3 4))) -> 3"
#define Q_caaddr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caaddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaddr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaddr_symbol, lst, cddr_a_list_string));
                    if (!is_pair(caddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caaddr_symbol, lst, caddr_a_list_string));
                    return(caaddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74b94
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74bac
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74bc7
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74be2
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xc98(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xc98(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe09b3(%rip), %r8      # 0x155578
jmp 0x74bfb
movq 0xc98(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe09b8(%rip), %r8      # 0x155598
jmp 0x74bfb
movq 0xc98(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe09bd(%rip), %r8      # 0x1555b8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cadddr
static s7_pointer g_cadddr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cadddr "(cadddr lst) returns (car (cdr (cdr (cdr lst)))): (cadddr '(1 2 3 4 5)) -> 4"
#define Q_cadddr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cadddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadddr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadddr_symbol, lst, cddr_a_list_string));
                    if (!is_pair(cdddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadddr_symbol, lst, cdddr_a_list_string));
                    return(cadddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74c2c
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74c44
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74c5f
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74c7a
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xcd0(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xcd0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe091b(%rip), %r8      # 0x155578
jmp 0x74c93
movq 0xcd0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0920(%rip), %r8      # 0x155598
jmp 0x74c93
movq 0xcd0(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0945(%rip), %r8      # 0x1555d8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cadadr
static s7_pointer g_cadadr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cadadr "(cadadr lst) returns (car (cdr (car (cdr lst)))): (cadadr '(1 (2 3 4))) -> 3"
#define Q_cadadr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cadadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadadr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadadr_symbol, lst, cadr_a_list_string));
                    if (!is_pair(cdadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cadadr_symbol, lst, cdadr_a_list_string));
                    return(cadadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74cc4
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74cdc
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74cf7
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74d12
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xcb8(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xcb8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0883(%rip), %r8      # 0x155578
jmp 0x74d2b
movq 0xcb8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0878(%rip), %r8      # 0x155588
jmp 0x74d2b
movq 0xcb8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe089d(%rip), %r8      # 0x1555c8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_caddar
static s7_pointer g_caddar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_caddar "(caddar lst) returns (car (cdr (cdr (car lst)))): (caddar '((1 2 3 4))) -> 3"
#define Q_caddar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->caddar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caddar_symbol, lst, car_a_list_string));
                    if (!is_pair(cdar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caddar_symbol, lst, cdar_a_list_string));
                    if (!is_pair(cddar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->caddar_symbol, lst, cddar_a_list_string));
                    return(caddar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74d5c
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74d74
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74d8f
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74daa
movq 0x8(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xcc8(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xcc8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe07e3(%rip), %r8      # 0x155570
jmp 0x74dc3
movq 0xcc8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe07e8(%rip), %r8      # 0x155590
jmp 0x74dc3
movq 0xcc8(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe080d(%rip), %r8      # 0x1555d0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdaaar
static s7_pointer g_cdaaar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdaaar "(cdaaar lst) returns (cdr (car (car (car lst)))): (cdaaar '((((1 2 3))))) -> '(2 3)"
#define Q_cdaaar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdaaar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaaar_symbol, lst, car_a_list_string));
                    if (!is_pair(caar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaaar_symbol, lst, caar_a_list_string));
                    if (!is_pair(caaar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaaar_symbol, lst, caaar_a_list_string));
                    return(cdaaar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74df4
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74e0c
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74e27
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74e42
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd30(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd30(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe074b(%rip), %r8      # 0x155570
jmp 0x74e5b
movq 0xd30(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0740(%rip), %r8      # 0x155580
jmp 0x74e5b
movq 0xd30(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0745(%rip), %r8      # 0x1555a0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdaadr
static s7_pointer g_cdaadr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdaadr "(cdaadr lst) returns (cdr (car (car (cdr lst)))): (cdaadr '(1 ((2 3 4)))) -> '(3 4)"
#define Q_cdaadr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdaadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaadr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaadr_symbol, lst, cadr_a_list_string));
                    if (!is_pair(caadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaadr_symbol, lst, caadr_a_list_string));
                    return(cdaadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74e8c
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74ea4
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74ebf
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74eda
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd38(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd38(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe06bb(%rip), %r8      # 0x155578
jmp 0x74ef3
movq 0xd38(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe06b0(%rip), %r8      # 0x155588
jmp 0x74ef3
movq 0xd38(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe06b5(%rip), %r8      # 0x1555a8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdadar
static s7_pointer g_cdadar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdadar "(cdadar lst) returns (cdr (car (cdr (car lst)))): (cdadar '((1 (2 3 4)))) -> '(3 4)"
#define Q_cdadar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdadar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdadar_symbol, lst, car_a_list_string));
                    if (!is_pair(cdar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdadar_symbol, lst, cdar_a_list_string));
                    if (!is_pair(cadar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdadar_symbol, lst, cadar_a_list_string));
                    return(cdadar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74f24
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74f3c
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74f57
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74f72
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd48(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd48(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe061b(%rip), %r8      # 0x155570
jmp 0x74f8b
movq 0xd48(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0620(%rip), %r8      # 0x155590
jmp 0x74f8b
movq 0xd48(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0625(%rip), %r8      # 0x1555b0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cddaar
static s7_pointer g_cddaar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cddaar "(cddaar lst) returns (cdr (cdr (car (car lst)))): (cddaar '(((1 2 3 4)))) -> '(3 4)"
#define Q_cddaar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cddaar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddaar_symbol, lst, car_a_list_string));
                    if (!is_pair(caar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddaar_symbol, lst, caar_a_list_string));
                    if (!is_pair(cdaar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddaar_symbol, lst, cdaar_a_list_string));
                    return(cddaar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x74fbc
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x74fd4
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x74fef
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7500a
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd68(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd68(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0583(%rip), %r8      # 0x155570
jmp 0x75023
movq 0xd68(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0578(%rip), %r8      # 0x155580
jmp 0x75023
movq 0xd68(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe059d(%rip), %r8      # 0x1555c0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdaddr
static s7_pointer g_cdaddr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdaddr "(cdaddr lst) returns (cdr (car (cdr (cdr lst)))): (cdaddr '(1 2 (3 4 5))) -> '(4 5)"
#define Q_cdaddr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdaddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaddr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaddr_symbol, lst, cddr_a_list_string));
                    if (!is_pair(caddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdaddr_symbol, lst, caddr_a_list_string));
                    return(cdaddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x75054
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7506c
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x75087
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x750a2
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd50(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd50(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe04f3(%rip), %r8      # 0x155578
jmp 0x750bb
movq 0xd50(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe04f8(%rip), %r8      # 0x155598
jmp 0x750bb
movq 0xd50(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe04fd(%rip), %r8      # 0x1555b8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cddddr
static s7_pointer g_cddddr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cddddr "(cddddr lst) returns (cdr (cdr (cdr (cdr lst)))): (cddddr '(1 2 3 4 5)) -> '(5)"
#define Q_cddddr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cddddr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddddr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddddr_symbol, lst, cddr_a_list_string));
                    if (!is_pair(cdddr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddddr_symbol, lst, cdddr_a_list_string));
                    return(cddddr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x750ec
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x75104
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7511f
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7513a
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd88(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd88(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe045b(%rip), %r8      # 0x155578
jmp 0x75153
movq 0xd88(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0460(%rip), %r8      # 0x155598
jmp 0x75153
movq 0xd88(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0485(%rip), %r8      # 0x1555d8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cddadr
static s7_pointer g_cddadr(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cddadr "(cddadr lst) returns (cdr (cdr (car (cdr lst)))): (cddadr '(1 (2 3 4 5))) -> '(4 5)"
#define Q_cddadr sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cddadr_symbol, args, T_PAIR));
                    if (!is_pair(cdr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddadr_symbol, lst, cdr_a_list_string));
                    if (!is_pair(cadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddadr_symbol, lst, cadr_a_list_string));
                    if (!is_pair(cdadr(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cddadr_symbol, lst, cdadr_a_list_string));
                    return(cddadr(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x75184
movq 0x10(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x7519c
movq 0x8(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x751b7
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x751d2
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd70(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd70(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe03c3(%rip), %r8      # 0x155578
jmp 0x751eb
movq 0xd70(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe03b8(%rip), %r8      # 0x155588
jmp 0x751eb
movq 0xd70(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe03dd(%rip), %r8      # 0x1555c8
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_cdddar
static s7_pointer g_cdddar(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer lst;
#define H_cdddar "(cdddar lst) returns (cdr (cdr (cdr (car lst)))): (cdddar '((1 2 3 4 5))) -> '(4 5)"
#define Q_cdddar sc->pl_p

                    lst = car(args);
                    if (!is_pair(lst)) return(method_or_bust_one_arg(sc, lst, sc->cdddar_symbol, args, T_PAIR));
                    if (!is_pair(car(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdddar_symbol, lst, car_a_list_string));
                    if (!is_pair(cdar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdddar_symbol, lst, cdar_a_list_string));
                    if (!is_pair(cddar(lst))) return(simple_wrong_type_argument_with_type(sc, sc->cdddar_symbol, lst, cddar_a_list_string));
                    return(cdddar(lst));
                }

// Assembly:
movq 0x8(%rsi), %rax
cmpb $0x1, (%rax)
jne 0x7521c
movq 0x8(%rax), %rcx
cmpb $0x1, (%rcx)
jne 0x75234
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7524f
movq 0x10(%rcx), %rcx
cmpb $0x1, (%rcx)
jne 0x7526a
movq 0x10(%rcx), %rax
retq
movq %rsi, %rcx
movq 0xd80(%rdi), %rdx
movq %rax, %rsi
movl $0x1, %r8d
jmp 0x95069
movq 0xd80(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0323(%rip), %r8      # 0x155570
jmp 0x75283
movq 0xd80(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe0328(%rip), %r8      # 0x155590
jmp 0x75283
movq 0xd80(%rdi), %rcx
movq 0x8(%rcx), %rsi
movq 0x140(%rdi), %rcx
movq 0xe034d(%rip), %r8      # 0x1555d0
movq %rax, %rdx
jmp 0xed2a
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_assv
static s7_pointer g_assv(s7_scheme *sc, s7_pointer args)        /* g_assv is called by g_assoc below */
                {
                    s7_pointer x, y, z;
#define H_assv "(assv obj alist) returns the key-value pair associated (via eqv?) with the key obj in the association list alist"
#define Q_assv Q_assq

                    x = car(args);
                    y = cadr(args);
                    if (!is_pair(y))
                    {
                        if (is_null(y)) return(sc->F);
                        return(method_or_bust_with_type(sc, y, sc->assv_symbol, list_2(sc, x, y), an_association_list_string, 2));
                    }

                    if (is_simple(x))
                        return(s7_assq(sc, x, y));

                    z = y;
                    while (true)
                    {
                        /* here we can't play the assq == game because s7_is_eqv thinks it's getting a legit s7 object */
                        if ((is_pair(car(y))) && (s7_is_eqv(x, caar(y)))) return(car(y));
                        y = cdr(y);
                        if (!is_pair(y)) return(sc->F);

                        if ((is_pair(car(y))) && (s7_is_eqv(x, caar(y)))) return(car(y));
                        y = cdr(y);
                        if (!is_pair(y)) return(sc->F);

                        z = cdr(z);
                        if (z == y) return(sc->F);
                    }
                    return(sc->F); /* not reached */
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rdi, %rbx
movq 0x8(%rsi), %r15
movq 0x10(%rsi), %rax
movq 0x8(%rax), %r14
cmpb $0x1, (%r14)
jne 0x752e9
movzbl (%r15), %eax
leaq 0xdddd8(%rip), %rcx     # 0x1530a0
cmpb $0x0, (%rax,%rcx)
je 0x75383
movq %rbx, %rdi
movq %r15, %rsi
movq %r14, %rdx
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0x39db6
movq 0x110(%rbx), %r13
cmpq %r13, %r14
je 0x753dd
movq 0xc00(%rbx), %r12
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x7531f
movq %rbx, %rdi
callq 0xa550
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rax)
movq %r14, 0x8(%rax)
movq %r13, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rsi
movq %rsi, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq %rdx, (%rcx)
movq %r15, 0x8(%rcx)
movq %rax, 0x10(%rcx)
movq 0xe028a(%rip), %r8      # 0x1555f0
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
movl $0x2, %r9d
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0xe659
movq %r14, %r13
movq 0x8(%r13), %r12
cmpb $0x1, (%r12)
jne 0x753a2
movq 0x8(%r12), %rsi
movq %r15, %rdi
callq 0x40412
testb %al, %al
jne 0x753e4
movq 0x10(%r13), %r13
cmpb $0x1, (%r13)
jne 0x753dd
movq 0x8(%r13), %r12
cmpb $0x1, (%r12)
jne 0x753c9
movq 0x8(%r12), %rsi
movq %r15, %rdi
callq 0x40412
testb %al, %al
jne 0x753e4
movq 0x10(%r13), %r13
cmpb $0x1, (%r13)
jne 0x753dd
movq 0x10(%r14), %r14
cmpq %r13, %r14
jne 0x75386
movq 0x120(%rbx), %r12
movq %r12, %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/BernardTatin[P]s7sh/s7.c
// Function: g_memq
static s7_pointer g_memq(s7_scheme *sc, s7_pointer args)
                {
                    s7_pointer x, y;
#define H_memq "(memq obj list) looks for obj in list and returns the list from that point if it is found, otherwise #f. memq uses eq?"
#define Q_memq sc->pl_tl

                    x = car(args);
                    y = cadr(args);
                    if (is_pair(y))
                        return(s7_memq(sc, x, y));
                    if (is_null(y))
                        return(sc->F);
                    return(method_or_bust_with_type(sc, y, sc->memq_symbol, list_2(sc, x, y), a_list_string, 2));
                }

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
movq %rdi, %rbx
movq 0x8(%rsi), %r15
movq 0x10(%rsi), %rax
movq 0x8(%rax), %r14
cmpb $0x1, (%r14)
jne 0x75b51
movq %rbx, %rdi
movq %r15, %rsi
movq %r14, %rdx
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0x39ea6
movq 0x110(%rbx), %r13
cmpq %r13, %r14
je 0x75beb
movq 0x1338(%rbx), %r12
movq 0x90(%rbx), %rax
cmpq 0x98(%rbx), %rax
ja 0x75b87
movq %rbx, %rdi
callq 0xa550
movq 0x90(%rbx), %rax
leaq -0x8(%rax), %rcx
movq %rcx, 0x90(%rbx)
movq -0x8(%rax), %rax
movl $0x200001, %edx         # imm = 0x200001
movq %rdx, (%rax)
movq %r14, 0x8(%rax)
movq %r13, 0x10(%rax)
movq 0x90(%rbx), %rcx
leaq -0x8(%rcx), %rsi
movq %rsi, 0x90(%rbx)
movq -0x8(%rcx), %rcx
movq %rdx, (%rcx)
movq %r15, 0x8(%rcx)
movq %rax, 0x10(%rcx)
movq 0xdfa12(%rip), %r8      # 0x1555e0
movq %rbx, %rdi
movq %r14, %rsi
movq %r12, %rdx
movl $0x2, %r9d
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0xe659
movq 0x120(%rbx), %rax
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq