From: Clinton Ebadi <clinton@unknownlamer.org>
Date: Wed, 18 May 2011 00:02:09 +0000 (-0400)
Subject: Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'
X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/commitdiff_plain

Fix missing `without-special-symbol-access' in `funcall-with-attribute-context'
* Saving before comitting is generally a good idea
---

diff --git a/src/display.lisp b/src/display.lisp
index e502b85..8fecac9 100644
--- a/src/display.lisp
+++ b/src/display.lisp
@@ -26,15 +26,16 @@
    (lambda ()
      (with-special-symbol-access
        (contextl::funcall-with-special-initargs
-	(mappend (lambda (desc)
-		   (when (consp desc)
-		     (let ((description (find-description (car desc))))
-		       (loop 
-			  :for (key val) :on (cdr desc) :by #'cddr
-			  :collect (list (find key (description-attributes description) 
-					       :key #'attribute-keyword)
-				  :value val)))))
-		 (attribute-active-descriptions attribute))
+	(without-special-symbol-access
+	  (mappend (lambda (desc)
+		     (when (consp desc)
+		       (let ((description (find-description (car desc))))
+			 (loop 
+			    :for (key val) :on (cdr desc) :by #'cddr
+			    :collect (list (find key (description-attributes description) 
+						 :key #'attribute-keyword)
+					   :value val)))))
+		   (attribute-active-descriptions attribute)))
 	(lambda ()
 	  (without-special-symbol-access
 	    (funcall thunk))))))))