// File: /workspace/github_c_makefile_star2_O2/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 %rax
cmpl $0x401, %edx            # imm = 0x401
jge 0x4f22
cmpl $0x0, 0x128ef(%rip)     # 0x17630
jne 0x4f37
leal 0x4(%rsi), %eax
cmpl $0x3, %eax
ja 0x4d87
leaq 0xb2ce(%rip), %rcx      # 0x10024
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
leaq 0xb8d7(%rip), %rdi      # 0x1063d
jmp 0x4d81
leaq 0xc1d5(%rip), %rdi      # 0x10f44
jmp 0x4d81
leaq 0xb77b(%rip), %rdi      # 0x104f3
jmp 0x4d81
leaq 0xb8b5(%rip), %rdi      # 0x10636
popq %rax
jmp 0x2514
testl %esi, %esi
js 0x4dec
movq 0x125be(%rip), %rcx     # 0x17350
movl %esi, %eax
movzbl (%rcx,%rax), %ecx
testb $0x1, %cl
je 0x4dbe
movq 0x1259c(%rip), %r8      # 0x17340
movl (%r8,%rax,4), %r8d
cmpl $-0xe, %r8d
je 0x4e57
cmpl $-0xc, %r8d
jne 0x4dbe
popq %rax
jmp 0x4a7e
testb $0x8, %cl
jne 0x4df4
testb $0x1, %cl
je 0x4e2c
movq 0x12571(%rip), %r8      # 0x17340
movl (%r8,%rax,4), %r8d
cmpl $-0xb, %r8d
je 0x4e78
cmpl $-0xd, %r8d
jne 0x4e2c
leaq 0xb85c(%rip), %rdi      # 0x10646
jmp 0x4d81
movl %esi, %edi
popq %rax
jmp 0x5070
movq 0x12545(%rip), %r8      # 0x17340
movl (%r8,%rax,4), %r8d
cmpl $-0x13, %r8d
je 0x4e72
cmpl $-0x11, %r8d
je 0x4e6c
cmpl $-0x12, %r8d
jne 0x4dc3
movq 0x12530(%rip), %rcx     # 0x17348
movslq (%rcx,%rax,4), %rdi
shlq $0x2, %rdi
addq 0x12531(%rip), %rdi     # 0x17358
jmp 0x4d81
movl %ecx, %r8d
notl %r8d
testb $0x11, %r8b
jne 0x4e5f
movq 0x12501(%rip), %rcx     # 0x17340
movl (%rcx,%rax,4), %eax
cmpl $-0x10, %eax
je 0x4f13
cmpl $-0xf, %eax
jne 0x4e64
xorl %edi, %edi
jmp 0x4f16
movl %esi, %edi
popq %rax
jmp 0x4b2d
testb $0x9, %cl
je 0x4e84
movl %esi, %edi
popq %rax
jmp 0x509e
popq %rax
jmp 0x4b57
popq %rax
jmp 0x4f50
leaq 0xb7d3(%rip), %rdi      # 0x10652
jmp 0x4d81
movq 0x124b5(%rip), %rcx     # 0x17340
movl (%rcx,%rax,4), %ecx
cmpl 0x127a4(%rip), %ecx     # 0x17638
jne 0x4eae
movq 0x124ab(%rip), %r8      # 0x17348
movslq (%r8,%rax,4), %r9
cmpq $-0x1, %r9
je 0x4eae
cmpl $-0x1, (%r8,%r9,4)
je 0x4f1c
cmpl 0x12788(%rip), %ecx     # 0x1763c
jne 0x4ece
movq 0x1248b(%rip), %r8      # 0x17348
movslq (%r8,%rax,4), %r9
cmpq $-0x1, %r9
je 0x4ece
cmpl $-0x1, (%r8,%r9,4)
je 0x4f1c
cmpl 0x12770(%rip), %ecx     # 0x17644
jne 0x4eee
movq 0x1246b(%rip), %r8      # 0x17348
movslq (%r8,%rax,4), %r9
cmpq $-0x1, %r9
je 0x4eee
cmpl $-0x1, (%r8,%r9,4)
je 0x4f1c
cmpl 0x1274c(%rip), %ecx     # 0x17640
jne 0x4f0d
movq 0x1244b(%rip), %rcx     # 0x17348
movslq (%rcx,%rax,4), %rax
cmpq $-0x1, %rax
je 0x4f0d
cmpl $-0x1, (%rcx,%rax,4)
je 0x4f1c
popq %rax
jmp 0x4c91
pushq $0x1
popq %rdi
popq %rax
jmp 0x4ffe
popq %rax
jmp 0x50d7
leaq 0xc29f(%rip), %rdi      # 0x111c8
callq 0x2514
leaq 0xb6de(%rip), %rdi      # 0x10613
jmp 0x4f48
movl $0x0, 0x126ef(%rip)     # 0x17630
leaq 0xb6e2(%rip), %rdi      # 0x1062a
pushq $-0x4
popq %rsi
callq 0x258a