Plaster

text
CL-USER> (defun test-1+ (x) (declare (fixnum x)) (mod (1+ x) #.(expt 2 32))) TEST-1+ CL-USER> (disassemble 'test-1+) ; disassembly for TEST-1+ ; Size: 27 bytes. Origin: #x532E91AA ; TEST-1+ ; AA: 498B4510 MOV RAX, [R13+16] ; thread.binding-stack-pointer ; AE: 488945F8 MOV [RBP-8], RAX ; B2: 488D5302 LEA RDX, [RBX+2] ; B6: 48231593FFFFFF AND RDX, [RIP-109] ; [#x532E9150] = #x1FFFFFFFE ; BD: 488BE5 MOV RSP, RBP ; C0: F8 CLC ; C1: 5D POP RBP ; C2: C3 RET ; C3: CC0F BREAK 15 ; Invalid argument count trap