CL-USER> (defun foo ())
FOO
CL-USER> (disassemble (lambda () (funcall 'foo)))
; disassembly for (LAMBDA ())
; Size: 22 bytes. Origin: #x52F3D50C
; 0C:       498B4560         MOV RAX, [R13+96]                ; no-arg-parsing entry point
                                                              ; thread.binding-stack-pointer
; 10:       488945F8         MOV [RBP-8], RAX
; 14:       31C9             XOR ECX, ECX
; 16:       FF7508           PUSH QWORD PTR [RBP+8]
; 19:       B8D88B4A50       MOV EAX, #x504A8BD8              ; #<FDEFN FOO>
; 1E:       FFE0             JMP RAX
; 20:       CC0F             BREAK 15                         ; Invalid argument count trap
NIL
CL-USER> (disassemble (lambda () (funcall #'foo)))
; disassembly for (LAMBDA ())
; Size: 22 bytes. Origin: #x52F3D59C
; 9C:       498B4560         MOV RAX, [R13+96]                ; no-arg-parsing entry point
                                                              ; thread.binding-stack-pointer
; A0:       488945F8         MOV [RBP-8], RAX
; A4:       31C9             XOR ECX, ECX
; A6:       FF7508           PUSH QWORD PTR [RBP+8]
; A9:       B8D88B4A50       MOV EAX, #x504A8BD8              ; #<FDEFN FOO>
; AE:       FFE0             JMP RAX
; B0:       CC0F             BREAK 15                         ; Invalid argument count trap
NIL