Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ************************************** SOURCE CODE **************************************************
- (defun bob ()
- (+ (- 3 2) (- 2 1)))
- (step (bob))
- ************************************** OUTPUT (after loaded into REPL)********************************
- 1: (SYSTEM:FUNCTION-INFORMATION BOB NIL NIL T)
- [STEP] CL-USER(2):
- 2: (SPECIAL-OPERATOR-P BOB)
- [STEP] CL-USER(2):
- 3: (FUNCTION-NAME-P BOB) <--------------- Here; inner workings of REPL
- [STEP] CL-USER(2):
- result 3: T
- 3: (FBOUNDP BOB) <---------------- Here also and so on.
- [STEP] CL-USER(2):
- result 3: #<Function BOB>
- result 2: NIL
- 2: (MACRO-FUNCTION BOB)
- [STEP] CL-USER(2):
- 3: (FBOUNDP BOB)
- [STEP] CL-USER(2):
- result 3: #<Function BOB>
- 3: (EXCL::MACRO-CLOSURE-OBJECT-P #<Function BOB>)
- [STEP] CL-USER(2):
- result 3: NIL
- result 2: NIL
- 2: (FBOUNDP BOB)
- [STEP] CL-USER(2):
- result 2: #<Function BOB>
- 2: (SPECIAL-OPERATOR-P BOB)
- [STEP] CL-USER(2):
- 3: (FUNCTION-NAME-P BOB)
- [STEP] CL-USER(2):
- result 3: T
- 3: (FBOUNDP BOB)
- [STEP] CL-USER(2):
- result 3: #<Function BOB>
- result 2: NIL
- result 1: :FUNCTION NIL NIL
- 1: (FDEFINITION BOB)
- [STEP] CL-USER(2):
- 2: (FBOUNDP BOB)
- [STEP] CL-USER(2):
- result 2: #<Function BOB>
- result 1: #<Function BOB>
- 1: (EXCL::%INVOKE #<Function BOB> NIL)
- [STEP] CL-USER(2):
- 2: (BOB)
- [STEP] CL-USER(2):
- result 2: 2
- result 1: 2
- T
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement