From bc8dbf6d510f5ab9af00814e71aecda14011e449 Mon Sep 17 00:00:00 2001 From: dlichteblau Date: Sun, 2 Dec 2007 20:56:23 +0000 Subject: [PATCH] fixed variable name in with-source --- klacks/klacks-impl.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/klacks/klacks-impl.lisp b/klacks/klacks-impl.lisp index 2750944..28076b9 100644 --- a/klacks/klacks-impl.lisp +++ b/klacks/klacks-impl.lisp @@ -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 (,@slots) ,s ,@body)