[cxml-cvs] CVS cxml/klacks

[dlichteblau]

Update of /project/cxml/cvsroot/cxml/klacks
In directory clnet:/tmp/cvs-serv22718

Modified Files:
	klacks-impl.lisp 
Log Message:
fixed variable name in with-source


--- /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/10/14 17:50:11	1.13
+++ /project/cxml/cvsroot/cxml/klacks/klacks-impl.lisp	2007/12/02 20:56:23	1.14
@@ -51,12 +51,12 @@
     `(let* ((,s ,source)
 	    (*ctx* (slot-value ,s 'context))
 	    (*validate* (slot-value ,s 'validate))
-	    (*data-behaviour* (slot-value source 'data-behaviour))
-	    (*namespace-bindings* (car (slot-value source 'namespace-stack)))
-	    (*scratch-pad* (slot-value source 'scratch-pad))
-	    (*scratch-pad-2* (slot-value source 'scratch-pad-2))
-	    (*scratch-pad-3* (slot-value source 'scratch-pad-3))
-	    (*scratch-pad-4* (slot-value source 'scratch-pad-4)))
+	    (*data-behaviour* (slot-value ,s 'data-behaviour))
+	    (*namespace-bindings* (car (slot-value ,s 'namespace-stack)))
+	    (*scratch-pad* (slot-value ,s 'scratch-pad))
+	    (*scratch-pad-2* (slot-value ,s 'scratch-pad-2))
+	    (*scratch-pad-3* (slot-value ,s 'scratch-pad-3))
+	    (*scratch-pad-4* (slot-value ,s 'scratch-pad-4)))
        (handler-case
 	   (with-slots (, at slots) ,s
 	     , at body)