Advertisement
Guest User

Untitled

a guest
Mar 26th, 2019
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.48 KB | None | 0 0
  1. ************************************** SOURCE CODE **************************************************
  2.  
  3. (defun bob ()
  4. (+ (- 3 2) (- 2 1)))
  5.  
  6. (step (bob))
  7.  
  8.  
  9. ************************************** OUTPUT (after loaded into REPL)********************************
  10.  
  11. 1: (SYSTEM:FUNCTION-INFORMATION BOB NIL NIL T)
  12. [STEP] CL-USER(2):
  13. 2: (SPECIAL-OPERATOR-P BOB)
  14. [STEP] CL-USER(2):
  15. 3: (FUNCTION-NAME-P BOB) <--------------- Here; inner workings of REPL
  16. [STEP] CL-USER(2):
  17. result 3: T
  18. 3: (FBOUNDP BOB) <---------------- Here also and so on.
  19. [STEP] CL-USER(2):
  20. result 3: #<Function BOB>
  21. result 2: NIL
  22. 2: (MACRO-FUNCTION BOB)
  23. [STEP] CL-USER(2):
  24. 3: (FBOUNDP BOB)
  25. [STEP] CL-USER(2):
  26. result 3: #<Function BOB>
  27. 3: (EXCL::MACRO-CLOSURE-OBJECT-P #<Function BOB>)
  28. [STEP] CL-USER(2):
  29. result 3: NIL
  30. result 2: NIL
  31. 2: (FBOUNDP BOB)
  32. [STEP] CL-USER(2):
  33. result 2: #<Function BOB>
  34. 2: (SPECIAL-OPERATOR-P BOB)
  35. [STEP] CL-USER(2):
  36. 3: (FUNCTION-NAME-P BOB)
  37. [STEP] CL-USER(2):
  38. result 3: T
  39. 3: (FBOUNDP BOB)
  40. [STEP] CL-USER(2):
  41. result 3: #<Function BOB>
  42. result 2: NIL
  43. result 1: :FUNCTION NIL NIL
  44. 1: (FDEFINITION BOB)
  45. [STEP] CL-USER(2):
  46. 2: (FBOUNDP BOB)
  47. [STEP] CL-USER(2):
  48. result 2: #<Function BOB>
  49. result 1: #<Function BOB>
  50. 1: (EXCL::%INVOKE #<Function BOB> NIL)
  51. [STEP] CL-USER(2):
  52. 2: (BOB)
  53. [STEP] CL-USER(2):
  54. result 2: 2
  55. result 1: 2
  56. T
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement