SNIPPETS/TSETLIN> (defun hello (x)
                    (list 'hello x))
HELLO
SNIPPETS/TSETLIN> (hello 'dila)
(HELLO DILA)
SNIPPETS/TSETLIN> (disassemble #'hello)
; disassembly for HELLO
; Size: 93 bytes. Origin: #x53656470                          ; HELLO
; 70:       498B4510         MOV RAX, [R13+16]                ; thread.binding-stack-pointer
; 74:       488945F8         MOV [RBP-8], RAX
; 78:       488B3DC1FFFFFF   MOV RDI, [RIP-63]                ; 'HELLO
; 7F:       498BF0           MOV RSI, R8
; 82:       49896D28         MOV [R13+40], RBP                ; thread.pseudo-atomic-bits
; 86:       498B5568         MOV RDX, [R13+104]               ; thread.alloc-region
; 8A:       4C8D5A20         LEA R11, [RDX+32]
; 8E:       4D3B5D70         CMP R11, [R13+112]
; 92:       772D             JNBE L2
; 94:       4D895D68         MOV [R13+104], R11               ; thread.alloc-region
; 98: L0:   48893A           MOV [RDX], RDI
; 9B:       488D5A17         LEA RBX, [RDX+23]
; 9F:       48895A08         MOV [RDX+8], RBX
; A3:       48897210         MOV [RDX+16], RSI
; A7:       C7421817001050   MOV DWORD PTR [RDX+24], #x50100017  ; NIL
; AE:       80CA07           OR DL, 7
; B1:       49316D28         XOR [R13+40], RBP                ; thread.pseudo-atomic-bits
; B5:       7402             JEQ L1
; B7:       CC09             INT3 9                           ; pending interrupt trap
; B9: L1:   488BE5           MOV RSP, RBP
; BC:       F8               CLC
; BD:       5D               POP RBP
; BE:       C3               RET
; BF:       CC10             INT3 16                          ; Invalid argument count trap
; C1: L2:   6A20             PUSH 32
; C3:       FF142530000052   CALL QWORD PTR [#x52000030]      ; CONS->RNN
; CA:       5A               POP RDX
; CB:       EBCB             JMP L0
NIL