Franz, Inc. Allegro Common Lisp has Prompt and Maxima:
* http://www.franz.com/products/allegrocl/prompt/javatelnet.ht...
* http://www.franz.com/success/demos/maxima/javatelnet.html
Type this into it:
(disassemble (lambda ()))
CG-USER(1): (disassemble (lambda ()))
;; disassembly of #<Function (:ANONYMOUS-LAMBDA 130) @ #x20ec218a>
;; formals:
;; code start: #x20ec214c:
0: e3 03 jcxz 5
2: ff 57 8b call *[edi-117] ; SYS::TRAP-WNAERR
5: 80 7f cb 00 cmpb [edi-53],$0 ; SYS::C_INTERRUPT-PENDING
9: 74 03 jz 14
11: ff 57 87 call *[edi-121] ; SYS::TRAP-SIGNAL-HIT
14: 8b c7 movl eax,edi
16: f8 clc
17: 8b 75 fc movl esi,[ebp-4]
20: c3 ret
21: 90 nop