PETRI/TEST> (disassemble (lambda () (random (1+ most-positive-fixnum))))
; disassembly for (LAMBDA ())
; Size: 55 bytes. Origin: #x52F33B2C
; 2C:       498B4560         MOV RAX, [R13+96]                ; no-arg-parsing entry point
                                                              ; thread.binding-stack-pointer
; 30:       488945F8         MOV [RBP-8], RAX
; 34:       4883EC10         SUB RSP, 16
; 38:       488B15A1FFFFFF   MOV RDX, [RIP-95]                ; 4611686018427387904
; 3F:       B902000000       MOV ECX, 2
; 44:       48892C24         MOV [RSP], RBP
; 48:       488BEC           MOV RBP, RSP
; 4B:       41807D6800       CMP BYTE PTR [R13+104], 0        ; thread.stepping
; 50:       7402             JEQ L0
; 52:       CC0D             BREAK 13                         ; single-step trap (around)
; 54: L0:   B8D836B052       MOV EAX, #x52B036D8              ; #<FDEFN RANDOM>
; 59:       FFD0             CALL RAX
; 5B:       488BE5           MOV RSP, RBP
; 5E:       F8               CLC
; 5F:       5D               POP RBP
; 60:       C3               RET
; 61:       CC0F             BREAK 15                         ; Invalid argument count trap
NIL