X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-pprint.lisp;h=0fd08954a316731da376ae53748263826f83aa15;hb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;hp=4b6172730a1473b6daa82a2cb546e34f1e86d02d;hpb=8b64d57b865fec6ba082dda965146b5e8aa877b3;p=sbcl.git

diff --git a/src/code/early-pprint.lisp b/src/code/early-pprint.lisp
index 4b61727..0fd0895 100644
--- a/src/code/early-pprint.lisp
+++ b/src/code/early-pprint.lisp
@@ -96,15 +96,19 @@
 			    (incf ,count-name)
 			    ,@(when object
 				`((pop ,object-var)))))
-		     (declare (ignorable #',pp-pop-name))
-		     (macrolet ((pprint-pop ()
-				  '(,pp-pop-name))
-				(pprint-exit-if-list-exhausted ()
-				  ,(if object
-				       `'(when (null ,object-var)
-					   (return-from ,block-name nil))
-				       `'(return-from ,block-name nil))))
-		       ,@body)))
+		     (locally
+			 (declare (disable-package-locks 
+				   pprint-pop pprint-exit-if-list-exhausted))
+		       (macrolet ((pprint-pop ()
+				    '(,pp-pop-name))
+				  (pprint-exit-if-list-exhausted ()
+				    ,(if object
+					 `'(when (null ,object-var)
+					    (return-from ,block-name nil))
+					 `'(return-from ,block-name nil))))
+			 (declare (enable-package-locks
+				   pprint-pop pprint-exit-if-list-exhausted))
+			 ,@body))))
 		 ;; FIXME: Don't we need UNWIND-PROTECT to ensure this
 		 ;; always gets executed?
 		 (end-logical-block ,stream-var)))))