pared the library down to just the reader macro and nesting macro

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