X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=da7fc9ba21a97e6cf82d9e784a33f9e27844812b;hb=cd99f20d910298cbf5c2000e3dc3595fb0c8418b;hp=1f7a23b687c1932f0879402b26fd75fed241196e;hpb=21da28bd870a7e0a8fbd9a682ef4b5c7b768705e;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 1f7a23b..da7fc9b 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -607,6 +607,17 @@ bootstrapping.
 	 ;; second argument.) Hopefully it only does this kind of
 	 ;; weirdness when bootstrapping.. -- WHN 20000610
 	 '(ignorable))
+	((var-globally-special-p parameter)
+	 ;; KLUDGE: Don't declare types for global special variables
+	 ;; -- our rebinding magic for SETQ cases don't work right
+	 ;; there.
+	 ;;
+	 ;; FIXME: It would be better to detect the SETQ earlier and
+	 ;; skip declarations for specials only when needed, not
+	 ;; always.
+	 ;;
+	 ;; --NS 2004-10-14
+	 '(ignorable))
 	(t
 	 ;; Otherwise, we can usually make Python very happy.
 	 (let ((type (info :type :kind specializer)))