// File: /workspace/github_c_makefile_star2_O0/eiselekd[P]MinimalLisp/./l1.c
// Function: print
void _print(ctx *cctx, FILE *s, v *v, int flags, int max, int cur, struct v *h) {
    char *d = "", *fn; 
    fflush(s);
    if (cur >= max || (h && assq(v,cdr(h)))) {
        fprintf(s, "...");
        return;
    }
    if (!v) fprintf(s, "nil");
    else {
        switch(v->tag) {
        case CONS:
            if (h)
                rplacd(h, mkCons(mkCons(v,0),cdr(h)));
            fprintf(s, "(");
            for (; v && ConsP(v); v = cdr(v)) {
                if (flags & PRINT_HEX)
                    fprintf(s, " 0x%p=", v);
                fprintf(s," ");
                if (QUOTED(v))
                    fprintf(s, "'");
                _print(cctx, s, car(v), flags, max, cur+1, h);
            }
            if (v)
                _print(cctx, s, v, flags, max, cur+1, h);
            fprintf(s, ")");
            break;
        case INT:
            if (flags & PRINT_HEX)
                fprintf(s, "0x%p:", v);
            if (((unsigned long)v->u.i) > 0x100) {
                fprintf(s, "0x%lx", v->u.i);
            } else {
                fprintf(s, "%ld", v->u.i);
            }
            break;
        case STR:
            d = "\"";
        case SYM:
            if (flags & PRINT_HEX)
                fprintf(s, "0x%p:", v);
            fprintf(s, "%s%s%s", d, v->u.str, d);
            break;
        case FOP:
            if (flags & PRINT_HEX)
                fprintf(s, "0x%p:", v);
            if (fn = RESOLVE_FOP(cctx,v)) {
                fprintf(s, "[[4m%s[24m]", fn);
            } else {
                fprintf(s, "fop%p", v->u.fop);
            }
            break;
        case OP:
            if (flags & PRINT_HEX)
                fprintf(s, "0x%p:", v);
            fprintf(s, "<%s>", optoa(cctx,v));
            break;
        default:
            if (flags & PRINT_HEX)
                fprintf(s, "0x%p:", v);
            fprintf(s, "<?%d>", v->tag);
            break;
        }
    }
    fflush(s);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x80, %rsp
movq 0x10(%rbp), %rax
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movl %ecx, -0x1c(%rbp)
movl %r8d, -0x20(%rbp)
movl %r9d, -0x24(%rbp)
leaq 0xee8e(%rip), %rax      # 0x1053b
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rdi
callq 0x10e0
movl -0x24(%rbp), %eax
cmpl -0x20(%rbp), %eax
jge 0x16ec
cmpq $0x0, 0x10(%rbp)
je 0x1703
movq -0x18(%rbp), %rax
movq %rax, -0x40(%rbp)
movq 0x10(%rbp), %rdi
callq 0x1520
movq -0x40(%rbp), %rdi
movq %rax, %rsi
callq 0x1aa0
cmpq $0x0, %rax
je 0x1703
movq -0x10(%rbp), %rdi
leaq 0xea05(%rip), %rsi      # 0x100fc
movb $0x0, %al
callq 0x1090
jmp 0x1a8f
cmpq $0x0, -0x18(%rbp)
jne 0x1721
movq -0x10(%rbp), %rdi
leaq 0xed08(%rip), %rsi      # 0x1041d
movb $0x0, %al
callq 0x1090
jmp 0x1a86
movq -0x18(%rbp), %rax
movl (%rax), %eax
andl $0xf, %eax
movl %eax, %ecx
movq %rcx, -0x48(%rbp)
subl $0x7, %eax
ja 0x1a48
movq -0x48(%rbp), %rax
leaq 0xe8c0(%rip), %rcx      # 0x10004
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
cmpq $0x0, 0x10(%rbp)
je 0x1793
movq 0x10(%rbp), %rax
movq %rax, -0x50(%rbp)
movq -0x18(%rbp), %rdi
xorl %eax, %eax
movl %eax, %esi
callq 0x1340
movq %rax, -0x58(%rbp)
movq 0x10(%rbp), %rdi
callq 0x1520
movq -0x58(%rbp), %rdi
movq %rax, %rsi
callq 0x1340
movq -0x50(%rbp), %rdi
movq %rax, %rdx
movl $0x1, %esi
callq 0x1600
movq -0x10(%rbp), %rdi
leaq 0xe962(%rip), %rsi      # 0x10100
movb $0x0, %al
callq 0x1090
xorl %eax, %eax
cmpq $0x0, -0x18(%rbp)
movb %al, -0x59(%rbp)
je 0x17d5
xorl %eax, %eax
cmpq $0x0, -0x18(%rbp)
movb %al, -0x5a(%rbp)
je 0x17cf
movq -0x18(%rbp), %rax
movl (%rax), %eax
andl $0xf, %eax
cmpl $0x0, %eax
sete %al
movb %al, -0x5a(%rbp)
movb -0x5a(%rbp), %al
movb %al, -0x59(%rbp)
movb -0x59(%rbp), %al
testb $0x1, %al
jne 0x17e1
jmp 0x1889
movl -0x1c(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x1802
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rdx
leaq 0xe907(%rip), %rsi      # 0x10102
movb $0x0, %al
callq 0x1090
movq -0x10(%rbp), %rdi
leaq 0xed3f(%rip), %rsi      # 0x1054c
movb $0x0, %al
callq 0x1090
movq -0x18(%rbp), %rax
movl (%rax), %eax
shrl $0x4, %eax
andl $0x8, %eax
cmpl $0x0, %eax
je 0x1837
movq -0x10(%rbp), %rdi
leaq 0xe8d9(%rip), %rsi      # 0x10109
movb $0x0, %al
callq 0x1090
movq -0x8(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x10(%rbp), %rax
movq %rax, -0x68(%rbp)
movq -0x18(%rbp), %rdi
callq 0x14f0
movq -0x70(%rbp), %rdi
movq -0x68(%rbp), %rsi
movq %rax, %rdx
movl -0x1c(%rbp), %ecx
movl -0x20(%rbp), %r8d
movl -0x24(%rbp), %r9d
addl $0x1, %r9d
movq 0x10(%rbp), %rax
movq %rax, (%rsp)
callq 0x1680
movq -0x18(%rbp), %rdi
callq 0x1520
movq %rax, -0x18(%rbp)
jmp 0x17a5
cmpq $0x0, -0x18(%rbp)
je 0x18b8
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rsi
movq -0x18(%rbp), %rdx
movl -0x1c(%rbp), %ecx
movl -0x20(%rbp), %r8d
movl -0x24(%rbp), %r9d
addl $0x1, %r9d
movq 0x10(%rbp), %rax
movq %rax, (%rsp)
callq 0x1680
movq -0x10(%rbp), %rdi
leaq 0xe848(%rip), %rsi      # 0x1010b
movb $0x0, %al
callq 0x1090
jmp 0x1a84
movl -0x1c(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x18f0
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rdx
leaq 0xe824(%rip), %rsi      # 0x1010d
movb $0x0, %al
callq 0x1090
movq -0x18(%rbp), %rax
cmpq $0x100, 0x8(%rax)       # imm = 0x100
jbe 0x191a
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rdx
leaq 0xe802(%rip), %rsi      # 0x10113
movb $0x0, %al
callq 0x1090
jmp 0x1934
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rdx
leaq 0xea4d(%rip), %rsi      # 0x1037a
movb $0x0, %al
callq 0x1090
jmp 0x1a84
leaq 0xe7d9(%rip), %rax      # 0x10119
movq %rax, -0x30(%rbp)
movl -0x1c(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x1965
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rdx
leaq 0xe7af(%rip), %rsi      # 0x1010d
movb $0x0, %al
callq 0x1090
movq -0x10(%rbp), %rdi
movq -0x30(%rbp), %rdx
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rcx
movq -0x30(%rbp), %r8
leaq 0xe79b(%rip), %rsi      # 0x1011b
movb $0x0, %al
callq 0x1090
jmp 0x1a84
movl -0x1c(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x19ad
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rdx
leaq 0xe767(%rip), %rsi      # 0x1010d
movb $0x0, %al
callq 0x1090
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
callq 0x1b10
movq %rax, -0x38(%rbp)
cmpq $0x0, %rax
je 0x19dc
movq -0x10(%rbp), %rdi
movq -0x38(%rbp), %rdx
leaq 0xe74f(%rip), %rsi      # 0x10122
movb $0x0, %al
callq 0x1090
jmp 0x19f6
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rdx
leaq 0xe741(%rip), %rsi      # 0x10130
movb $0x0, %al
callq 0x1090
jmp 0x1a84
movl -0x1c(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x1a1c
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rdx
leaq 0xe6f8(%rip), %rsi      # 0x1010d
movb $0x0, %al
callq 0x1090
movq -0x10(%rbp), %rax
movq %rax, -0x78(%rbp)
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
callq 0x1c00
movq -0x78(%rbp), %rdi
movq %rax, %rdx
leaq 0xe6f7(%rip), %rsi      # 0x10136
movb $0x0, %al
callq 0x1090
jmp 0x1a84
movl -0x1c(%rbp), %eax
andl $0x1, %eax
cmpl $0x0, %eax
je 0x1a69
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rdx
leaq 0xe6ab(%rip), %rsi      # 0x1010d
movb $0x0, %al
callq 0x1090
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rax
movl (%rax), %edx
andl $0xf, %edx
leaq 0xe6be(%rip), %rsi      # 0x1013b
movb $0x0, %al
callq 0x1090
jmp 0x1a86
movq -0x10(%rbp), %rdi
callq 0x10e0
addq $0x80, %rsp
popq %rbp
retq
nopl (%rax,%rax)