SHOW:
|
|
- or go back to the newest paste.
| 1 | ;; Put this code in a file, then compile and load it. | |
| 2 | ;; Afterward, evaluate (call-frob) and see an error | |
| 3 | ;; in CLISP. | |
| 4 | ||
| 5 | (defmacro test (&aux (frob (gensym (string '#:frob)))) | |
| 6 | `(progn | |
| 7 | (defun ,frob () 42) | |
| 8 | (defun call-frob () | |
| 9 | (,frob)))) | |
| 10 | ||
| 11 | (test) |
