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/cl-unification.asd new-cl-unification/cl-unification.asd
--- old-cl-unification/cl-unification.asd	2015-12-16 22:08:20.000000000 +0000
+++ new-cl-unification/cl-unification.asd	2015-12-16 22:08:20.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/lib-dependent/named-readtable.lisp new-cl-unification/lib-dependent/named-readtable.lisp
--- old-cl-unification/lib-dependent/named-readtable.lisp	1970-01-01 00:00:00.000000000 +0000
+++ new-cl-unification/lib-dependent/named-readtable.lisp	2015-12-16 22:08:20.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/unification-package.lisp new-cl-unification/unification-package.lisp
--- old-cl-unification/unification-package.lisp	2015-12-16 22:08:20.000000000 +0000
+++ new-cl-unification/unification-package.lisp	2015-12-16 22:08:20.000000000 +0000
@@ -59,6 +59,10 @@
   (:export
    "REGULAR-EXPRESSION"
    "REGEXP")
+
+  #+named-readtables
+  (:export
+   "TEMPLATE-READTABLE")
   )
 
 ;;;; end of file -- unification-package.lisp --