Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- This is SBCL 1.4.2, an implementation of ANSI Common Lisp.
- More information about SBCL is available at <http://www.sbcl.org/>.
- SBCL is free software, provided as is, with absolutely no warranty.
- It is mostly in the public domain; some portions are provided under
- BSD-style licenses. See the CREDITS and COPYING files in the
- distribution for more information.
- WARNING: the Windows port is fragile, particularly for multithreaded
- code. Unfortunately, the development team currently lacks the time
- and resources this platform demands.
- * (lambda () (dotimes (i 1000000) (find 'z '(a b c z)))) (disassemble *)
- #<FUNCTION (LAMBDA ()) {100285004B}>
- *
- ; disassembly for (LAMBDA ())
- ; Size: 152 bytes. Origin: #x1002850087
- ; 087: 498B4C2460 MOV RCX, [R12+96] ; no-arg-parsing entry point
- ; thread.binding-stack-pointer
- ; 08C: 48894DF8 MOV [RBP-8], RCX
- ; 090: 84042500001020 TEST AL, [#x20100000] ; safepoint
- ; 097: 4D31C9 XOR R9, R9
- ; 09A: EB66 JMP L1
- ; 09C: 0F1F4000 NOP
- ; 0A0: L0: 4C8B0571FFFFFF MOV R8, [RIP-143] ; #<FUNCTION IDENTITY>
- ; 0A7: 488B0D72FFFFFF MOV RCX, [RIP-142] ; #<FUNCTION EQL>
- ; 0AE: 488D5C24F0 LEA RBX, [RSP-16]
- ; 0B3: 4883EC38 SUB RSP, 56
- ; 0B7: 488B156AFFFFFF MOV RDX, [RIP-150] ; 'Z
- ; 0BE: 488B3D6BFFFFFF MOV RDI, [RIP-149] ; '(A B C Z)
- ; 0C5: BE17001120 MOV ESI, #x20110017 ; NIL
- ; 0CA: 48C743F000000000 MOV QWORD PTR [RBX-16], 0
- ; 0D2: 488973E8 MOV [RBX-24], RSI
- ; 0D6: 4C8943E0 MOV [RBX-32], R8
- ; 0DA: 48894BD8 MOV [RBX-40], RCX
- ; 0DE: 4C894DD0 MOV [RBP-48], R9
- ; 0E2: 488B054FFFFFFF MOV RAX, [RIP-177] ; #<SB-KERNEL:FDEFN SB-KERNEL:%FIND-POSITION>
- ; 0E9: B90E000000 MOV ECX, 14
- ; 0EE: 48892B MOV [RBX], RBP
- ; 0F1: 488BEB MOV RBP, RBX
- ; 0F4: FF5009 CALL QWORD PTR [RAX+9]
- ; 0F7: 4C8B4DD0 MOV R9, [RBP-48]
- ; 0FB: 498D4902 LEA RCX, [R9+2]
- ; 0FF: 4C8BC9 MOV R9, RCX
- ; 102: L1: 84042500001020 TEST AL, [#x20100000] ; safepoint
- ; 109: 4981F980841E00 CMP R9, 2000000
- ; 110: 7C8E JL L0
- ; 112: BA17001120 MOV EDX, #x20110017 ; NIL
- ; 117: 488BE5 MOV RSP, RBP
- ; 11A: F8 CLC
- ; 11B: 5D POP RBP
- ; 11C: C3 RET
- ; 11D: CC10 BREAK 16 ; Invalid argument count trap
- NIL
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement