Fri Feb 5 09:04:00 UTC 2010 pix@kepibu.org
* Create a named-readtable if the named-readtables library is also loaded
Because (in-readtable ...) is a beautiful thing.
diff -rN -u old-cl-unification-1/cl-unification.asd new-cl-unification-1/cl-unification.asd
--- old-cl-unification-1/cl-unification.asd 2013-07-21 19:26:29.000000000 +0000
+++ new-cl-unification-1/cl-unification.asd 2013-07-21 19:26:29.000000000 +0000
@@ -47,4 +47,10 @@
:components ((:module "lib-dependent"
:components ((:file "cl-ppcre-template")))))
+#+asdf-system-connections
+(asdf:defsystem-connection cl-unification+named-readtables
+ :requires (:cl-unification :named-readtables)
+ :components ((:module "lib-dependent"
+ :components ((:file "named-readtable")))))
+
;;;; end of file -- cl-unification.asd --
diff -rN -u old-cl-unification-1/lib-dependent/named-readtable.lisp new-cl-unification-1/lib-dependent/named-readtable.lisp
--- old-cl-unification-1/lib-dependent/named-readtable.lisp 1970-01-01 00:00:00.000000000 +0000
+++ new-cl-unification-1/lib-dependent/named-readtable.lisp 2013-07-21 19:26:29.000000000 +0000
@@ -0,0 +1,6 @@
+;;;; Set up a named-readtable
+(in-package "CL.EXT.DACF.UNIFICATION")
+
+(named-readtables:defreadtable template-readtable
+ (:dispatch-macro-char #\# #\t #'|sharp-T-reader|)
+ (:merge :common-lisp))
diff -rN -u old-cl-unification-1/unification-package.lisp new-cl-unification-1/unification-package.lisp
--- old-cl-unification-1/unification-package.lisp 2013-07-21 19:26:29.000000000 +0000
+++ new-cl-unification-1/unification-package.lisp 2013-07-21 19:26:29.000000000 +0000
@@ -59,6 +59,10 @@
(:export
"REGULAR-EXPRESSION"
"REGEXP")
+
+ #+named-readtables
+ (:export
+ "TEMPLATE-READTABLE")
)
;;;; end of file -- unification-package.lisp --