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)))