Fix an odd clisp compile issue
Fri Dec 4 05:16:28 UTC 2009 pix@kepibu.org
* Fix an odd clisp compile issue
diff -rN -u old-Oh, Ducks!/templates.lisp new-Oh, Ducks!/templates.lisp
--- old-Oh, Ducks!/templates.lisp 2013-07-24 10:32:48.000000000 +0000
+++ new-Oh, Ducks!/templates.lisp 2013-07-24 10:32:48.000000000 +0000
@@ -52,3 +52,8 @@
(rest spec)))))
(setf (slot-value template 'specifiers)
(parse-specifiers specifiers-and-vars template parent))))
+
+;; Don't bother trying to save :parser when compiling
+(defmethod make-load-form ((object css-selector-template) &optional env)
+ (declare (ignore env))
+ `(make-template ',(first (template-spec object)) ',(template-spec object)))