Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CL-USER> #:dave
- ; Evaluation aborted on #<UNBOUND-VARIABLE DAVE {1002FF77D3}>.
- CL-USER> (defparameter #:dave 1)
- #:DAVE
- CL-USER> #:dave
- ; Evaluation aborted on #<UNBOUND-VARIABLE DAVE {100324B493}>.
- (defmacro test (x)
- (let ((blah '#:jim))
- `(let ((,blah ,x))
- (print ,blah))))
- CL-USER> (test 10)
- 10
- 10
- CL-USER>
- (defmacro foo () `(quote #:x))
- (defmacro bar () `(quote ,(gensym)))
- (eq (foo) (foo)) => t
- (eq (bar) (bar)) => nil
Add Comment
Please, Sign In to add comment