// File: /workspace/github_c_makefile_star2_O3/blakemcbride[P]LISP9/ls9.c
// Function: prex
void prex(int sl, cell x, int d) {
	if (d > PRDEPTH) {
		prints("\n");
		error("prin: nesting too deep", UNDEF);
	}
	if (Intr) {
		Intr = 0;
		error("interrupted", UNDEF);
	}
	if (NIL == x) prints("nil");
	else if (TRUE == x) prints("t");
	else if (EOFMARK == x) prints("#<eof>");
	else if (UNDEF == x) prints("#<undef>");
	else if (charp(x)) prchar(sl, x);
	else if (fixp(x)) prfix(x);
	else if (symbolp(x)) printb(symname(x));
	else if (stringp(x)) prstr(sl, x);
	else if (vectorp(x)) prvec(sl, x, d);
	else if (closurep(x)) prints("#<function>");
	else if (ctagp(x)) prints("#<catch tag>");
	else if (inportp(x)) prport(0, x);
	else if (outportp(x)) prport(1, x);
	else if (specialp(x)) pruspec(x);
	else if (atomp(x)) pruatom(x);
	else if (quoted(x, S_quote)) prquote(sl, x, d);
	else if (quoted(x, S_qquote)) prquote(sl, x, d);
	else if (quoted(x, S_unquote)) prquote(sl, x, d);
	else if (quoted(x, S_splice)) prquote(sl, x, d);
	else prlist(sl, x, d);
}

// Assembly:
pushq %rbx
cmpl $0x401, %edx            # imm = 0x401
jge 0x5806
cmpl $0x0, 0x14038(%rip)     # 0x19630
jne 0x5820
leal 0x4(%rsi), %eax
cmpl $0x3, %eax
ja 0x5652
leaq 0xda17(%rip), %rcx      # 0x13024
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
leaq 0xe060(%rip), %rdi      # 0x1367d
movl $0x8, %esi
jmp 0x564c
leaq 0xe959(%rip), %rdi      # 0x13f84
movl $0x1, %esi
jmp 0x564c
leaq 0xdefa(%rip), %rdi      # 0x13533
movl $0x3, %esi
jmp 0x564c
leaq 0xe02f(%rip), %rdi      # 0x13676
movl $0x6, %esi
popq %rbx
jmp 0x29c1
testl %esi, %esi
js 0x56bc
movq 0x13cf3(%rip), %rcx     # 0x19350
movl %esi, %eax
movzbl (%rcx,%rax), %ecx
testb $0x1, %cl
je 0x5689
movq 0x13cd1(%rip), %r8      # 0x19340
movl (%r8,%rax,4), %r8d
cmpl $-0xe, %r8d
je 0x5734
cmpl $-0xc, %r8d
jne 0x5689
popq %rbx
jmp 0x5150
testb $0x8, %cl
jne 0x56c4
testb $0x1, %cl
je 0x5709
movq 0x13ca6(%rip), %r8      # 0x19340
movl (%r8,%rax,4), %r8d
cmpl $-0xb, %r8d
je 0x5755
cmpl $-0xd, %r8d
jne 0x5709
leaq 0xdfd1(%rip), %rdi      # 0x13686
movl $0xb, %esi
jmp 0x564c
movl %esi, %edi
popq %rbx
jmp 0x5a13
movq 0x13c75(%rip), %r8      # 0x19340
movl (%r8,%rax,4), %r8d
cmpl $-0x13, %r8d
je 0x574f
cmpl $-0x11, %r8d
je 0x5749
cmpl $-0x12, %r8d
jne 0x568e
movq 0x13c60(%rip), %rcx     # 0x19348
movslq (%rcx,%rax,4), %rbx
shlq $0x2, %rbx
addq 0x13c61(%rip), %rbx     # 0x19358
movq %rbx, %rdi
callq 0x2080
movq %rbx, %rdi
movl %eax, %esi
jmp 0x564c
movl %ecx, %r8d
notl %r8d
testb $0x11, %r8b
jne 0x573c
movq 0x13c24(%rip), %rcx     # 0x19340
movl (%rcx,%rax,4), %eax
cmpl $-0x10, %eax
je 0x57f5
cmpl $-0xf, %eax
jne 0x5741
xorl %edi, %edi
jmp 0x57fa
movl %esi, %edi
popq %rbx
jmp 0x528a
testb $0x9, %cl
je 0x5766
movl %esi, %edi
popq %rbx
jmp 0x5aaf
popq %rbx
jmp 0x5317
popq %rbx
jmp 0x583b
leaq 0xdf36(%rip), %rdi      # 0x13692
movl $0xc, %esi
jmp 0x564c
movq 0x13bd3(%rip), %rcx     # 0x19340
movl (%rcx,%rax,4), %ecx
cmpl 0x13ec2(%rip), %ecx     # 0x19638
jne 0x5790
movq 0x13bc9(%rip), %r8      # 0x19348
movslq (%r8,%rax,4), %r9
cmpq $-0x1, %r9
je 0x5790
cmpl $-0x1, (%r8,%r9,4)
je 0x5800
cmpl 0x13ea6(%rip), %ecx     # 0x1963c
jne 0x57b0
movq 0x13ba9(%rip), %r8      # 0x19348
movslq (%r8,%rax,4), %r9
cmpq $-0x1, %r9
je 0x57b0
cmpl $-0x1, (%r8,%r9,4)
je 0x5800
cmpl 0x13e8e(%rip), %ecx     # 0x19644
jne 0x57d0
movq 0x13b89(%rip), %r8      # 0x19348
movslq (%r8,%rax,4), %r9
cmpq $-0x1, %r9
je 0x57d0
cmpl $-0x1, (%r8,%r9,4)
je 0x5800
cmpl 0x13e6a(%rip), %ecx     # 0x19640
jne 0x57ef
movq 0x13b69(%rip), %rcx     # 0x19348
movslq (%rcx,%rax,4), %rax
cmpq $-0x1, %rax
je 0x57ef
cmpl $-0x1, (%rcx,%rax,4)
je 0x5800
popq %rbx
jmp 0x5508
movl $0x1, %edi
popq %rbx
jmp 0x5926
popq %rbx
jmp 0x5b55
leaq 0xe9fb(%rip), %rdi      # 0x14208
movl $0x1, %esi
callq 0x29c1
leaq 0xde35(%rip), %rdi      # 0x13653
jmp 0x5831
movl $0x0, 0x13e06(%rip)     # 0x19630
leaq 0xde39(%rip), %rdi      # 0x1366a
movl $0xfffffffc, %esi       # imm = 0xFFFFFFFC
callq 0x2643