1 ;;;; Set up a named-readtable
2 (in-package "CL.EXT.DACF.UNIFICATION")
3 
4 (named-readtables:defreadtable template-readtable
5   (:dispatch-macro-char #\# #\t #'|sharp-T-reader|)
6   (:merge :common-lisp))