CL-USER> (disassemble 'foo) ; disassembly for FOO ; Size: 156 bytes. Origin: #x52E141C0 ; 1C0: 4D8B4560 MOV R8, [R13+96] ; no-arg-parsing entry point ; thread.binding-stack-pointer ; 1C4: 4C8945F8 MOV [RBP-8], R8 ; 1C8: 48C745E854000000 MOV QWORD PTR [RBP-24], 84 ; 1D0: 488D4424F0 LEA RAX, [RSP-16] ; 1D5: 4883EC28 SUB RSP, 40 ; 1D9: 488B55E8 MOV RDX, [RBP-24] ; 1DD: 31FF XOR EDI, EDI ; 1DF: 31F6 XOR ESI, ESI ; 1E1: 488B0D68FFFFFF MOV RCX, [RIP-152] ; '(&KEY BAZ) ; 1E8: 488948F0 MOV [RAX-16], RCX ; 1EC: 488B0D65FFFFFF MOV RCX, [RIP-155] ; #(:BAZ) ; 1F3: 488948E8 MOV [RAX-24], RCX ; 1F7: B90A000000 MOV ECX, 10 ; 1FC: 488928 MOV [RAX], RBP ; 1FF: 488BE8 MOV RBP, RAX ; 202: E871B6CCFF CALL #x52ADF878 ; # ; 207: 480F42E3 CMOVB RSP, RBX ; 20B: 4C8BCA MOV R9, RDX ; 20E: 4C894DE0 MOV [RBP-32], R9 ; 212: 4883EC10 SUB RSP, 16 ; 216: 498BD1 MOV RDX, R9 ; 219: 488B3D48FFFFFF MOV RDI, [RIP-184] ; :BAZ ; 220: B904000000 MOV ECX, 4 ; 225: 48892C24 MOV [RSP], RBP ; 229: 488BEC MOV RBP, RSP ; 22C: E867B6CCFF CALL #x52ADF898 ; # ; 231: 480F42E3 CMOVB RSP, RBX ; 235: 4C8B4DE0 MOV R9, [RBP-32] ; 239: 488BC2 MOV RAX, RDX ; 23C: 4885C0 TEST RAX, RAX ; 23F: 7513 JNE L1 ; 241: BA17001050 MOV EDX, #x50100017 ; NIL ; 246: L0: 488955F0 MOV [RBP-16], RDX ; 24A: 488B55F0 MOV RDX, [RBP-16] ; 24E: 488BE5 MOV RSP, RBP ; 251: F8 CLC ; 252: 5D POP RBP ; 253: C3 RET ; 254: L1: 488B50F9 MOV RDX, [RAX-7] ; 258: EBEC JMP L0 ; 25A: CC0F BREAK 15 ; Invalid argument count trap