[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv27840/Drei

Modified Files:
	lisp-syntax.lisp 
Log Message:
Fix form-to-object problem reported by Willem Broekema.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/02/15 13:16:17	1.75
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/03/02 15:55:28	1.76
@@ -2903,7 +2903,7 @@
       (list +quote-marker+ (apply #'form-to-object syntax (second (children form)) args))
       `',(apply #'form-to-object syntax (second (children form)) args)))
 
-(defmethod form-to-object (syntax (form incomplete-quote-form) &rest args)
+(defmethod form-to-object ((syntax lisp-syntax) (form incomplete-quote-form) &rest args)
   (declare (ignore args))
   ;; Utterly arbitrary, but reasonable in my opinion.
   '(quote))