Sat Nov 14 00:47:11 UTC 2009  pix@kepibu.org
  * Limit make-load-form to regexp templates
diff -rN -u old-Oh, Ducks!/regexp-template.lisp new-Oh, Ducks!/regexp-template.lisp
--- old-Oh, Ducks!/regexp-template.lisp	2015-11-14 12:10:29.000000000 +0000
+++ new-Oh, Ducks!/regexp-template.lisp	2015-11-14 12:10:29.000000000 +0000
@@ -16,7 +16,9 @@
 ;; (match (#t(regexp+ "^f(o+)" (?o)) "fooooooobar") (values o &rest))
 ;;    => "ooooooo", "bar"
 
-;; prevent clisp from crashing when it loads .fas files with #t(...) forms in them
-(defmethod make-load-form ((object unify::template) &optional env)
+;; prevent clisp from crashing when it loads .fas files with our regexp templates in them
+(defmethod make-load-form ((object unify::regular-expression-template) &optional env)
   (declare (ignore env))
+  `(make-template ',(first (template-spec object)) ',(template-spec object))
+  #+(or) ; make-instance should be fine, too
   `(make-instance ',(class-of object) :spec ',(template-spec object)))