Sat Nov 14 00:47:11 UTC 2009 pix@kepibu.org

* Limit make-load-form to regexp templates

--- old-Oh, Ducks!/regexp-template.lisp 2015-10-09 07:25:18.000000000 +0000

+++ new-Oh, Ducks!/regexp-template.lisp 2015-10-09 07:25:18.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)))