Introduced cl-syntax

windymelt · Dec 2, 2018 · c8cee5f · c8cee5f
1 parent 4c1a733
commit c8cee5f
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/cl-punch.asd b/cl-punch.asd
@@ -18,7 +18,7 @@
   :version "0.1"
   :author "Windymelt"
   :license "MIT"
-  :depends-on ()
+  :depends-on (:cl-syntax)
   :components ((:module "src"
                 :components
                 ((:file "cl-punch"))))

diff --git a/src/cl-punch.lisp b/src/cl-punch.lisp
@@ -28,10 +28,9 @@
       (let ((result-inner-form (mapcar #'replace-underscore form)))
         `(lambda ,(nreverse arg-symbol-list) ,result-inner-form)))))
 
-(defun %enable-punch-syntax ()
-  (setf *readtable* (copy-readtable))
-  (set-macro-character #\^ #'punch-reader))
+(cl-syntax:defsyntax punch-syntax
+  (:macro-char #\^ #'punch-reader))
 
 (defmacro enable-punch-syntax ()
   '(eval-when (:compile-toplevel :load-toplevel :execute)
-    (%enable-punch-syntax)))
+    (cl-syntax:use-syntax punch-syntax)))