diff options
Diffstat (limited to 'macros.lisp')
-rw-r--r-- | macros.lisp | 16 |
1 files changed, 2 insertions, 14 deletions
diff --git a/macros.lisp b/macros.lisp index cad9e6e..b9d728b 100644 --- a/macros.lisp +++ b/macros.lisp @@ -17,7 +17,7 @@ (elt (symbol-name symbol) (length prefix))))) - (set-dispatch-macro-character + (set-macro-character #\# #\$ (lambda (stream subchar infix) (declare (ignore subchar infix)) @@ -26,19 +26,7 @@ (list '$ (list (concatenate 'string "$" (symbol-name form1))) (read stream)) - (list '$ () form1))))) - - (set-dispatch-macro-character - #\# #\~ - (lambda (stream subchar arg) - (declare (ignore arg subchar)) - (list 'make-lazy (read stream)))) - - (set-dispatch-macro-character - #\# #\! - (lambda (stream subchar arg) - (declare (ignore arg subchar)) - (list 'funcall (read stream))))) + (list '$ () form1)))))) ;; Note, presently references to upper level variables in nested ;; partials requires tha tthose upper level variables acttually appear |