OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed variable name in with-source

Browse Source
This commit is contained in:
dlichteblau
2007-12-02 20:56:23 +00:00
parent e36eb23a3c
commit bc8dbf6d51
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
klacks/klacks-impl.lisp
View File

@ -51,12 +51,12 @@
`(let* ((,s ,source) `(let* ((,s ,source)
(*ctx* (slot-value ,s 'context)) (*ctx* (slot-value ,s 'context))
(*validate* (slot-value ,s 'validate)) (*validate* (slot-value ,s 'validate))
(*data-behaviour* (slot-value source 'data-behaviour)) (*data-behaviour* (slot-value ,s 'data-behaviour))
(*namespace-bindings* (car (slot-value source 'namespace-stack))) (*namespace-bindings* (car (slot-value ,s 'namespace-stack)))
(*scratch-pad* (slot-value source 'scratch-pad)) (*scratch-pad* (slot-value ,s 'scratch-pad))
(*scratch-pad-2* (slot-value source 'scratch-pad-2)) (*scratch-pad-2* (slot-value ,s 'scratch-pad-2))
(*scratch-pad-3* (slot-value source 'scratch-pad-3)) (*scratch-pad-3* (slot-value ,s 'scratch-pad-3))
(*scratch-pad-4* (slot-value source 'scratch-pad-4))) (*scratch-pad-4* (slot-value ,s 'scratch-pad-4)))
(handler-case (handler-case
(with-slots (,@slots) ,s (with-slots (,@slots) ,s
,@body) ,@body)