a guest Oct 4th, 2013 8 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- ;; Put this code in a file, then compile and load it.
- ;; Afterward, evaluate (call-frob) and see an error
- ;; in CLISP.
- (defmacro test (&aux (frob (gensym (string '#:frob))))
- (defun ,frob () 42)
- (defun call-frob ()
RAW Paste Data