Guest User

Untitled

a guest
Nov 20th, 2017
78
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. CL-USER> #:dave
  2. ; Evaluation aborted on #<UNBOUND-VARIABLE DAVE {1002FF77D3}>.
  3. CL-USER> (defparameter #:dave 1)
  4. #:DAVE
  5. CL-USER> #:dave
  6. ; Evaluation aborted on #<UNBOUND-VARIABLE DAVE {100324B493}>.
  7.  
  8. (defmacro test (x)
  9. (let ((blah '#:jim))
  10. `(let ((,blah ,x))
  11. (print ,blah))))
  12.  
  13. CL-USER> (test 10)
  14.  
  15. 10
  16. 10
  17. CL-USER>
  18.  
  19. (defmacro foo () `(quote #:x))
  20. (defmacro bar () `(quote ,(gensym)))
  21.  
  22. (eq (foo) (foo)) => t
  23. (eq (bar) (bar)) => nil
Add Comment
Please, Sign In to add comment