X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fglobals.lisp;h=aac1ab20faf4a5877bc759980af31d0d4e379900;hb=ef793f0d484ac3a527e945a62c93f904d73049a6;hp=3fa2a75fc7a6a268548d6daea33eeaee5ca9290c;hpb=e29e89b56564b0d302f0ded969a298b948722add;p=sbcl.git

diff --git a/src/code/globals.lisp b/src/code/globals.lisp
index 3fa2a75..aac1ab2 100644
--- a/src/code/globals.lisp
+++ b/src/code/globals.lisp
@@ -16,29 +16,30 @@
 (in-package "SB!IMPL")
 
 (declaim (special *keyword-package* *cl-package*
-		  original-lisp-environment
-		  *standard-readtable*
-		  sb!debug:*in-the-debugger*
-		  sb!debug:*stack-top-hint*
-		  *handler-clusters*
-		  *restart-clusters*
-		  *gc-inhibit* *need-to-collect-garbage*
-		  *software-interrupt-vector* *load-verbose*
-		  *load-print-stuff* *in-compilation-unit*
-		  *aborted-compilation-unit-count* *char-name-alist*
-		  *posix-argv*))
+                  original-lisp-environment
+                  *standard-readtable*
+                  sb!debug:*in-the-debugger*
+                  sb!debug:*stack-top-hint*
+                  *handler-clusters*
+                  *restart-clusters*
+                  *gc-inhibit* *gc-pending*
+                  #!+sb-thread *stop-for-gc-pending*
+                  *software-interrupt-vector* *load-verbose*
+                  *load-print-stuff* *in-compilation-unit*
+                  *aborted-compilation-unit-count* *char-name-alist*
+                  *posix-argv*))
 
 (declaim (ftype (function * *)
-		find-keyword keyword-test assert-error
-		assert-prompt check-type-error case-body-error print-object
-		describe-object sb!pcl::check-wrapper-validity))
+                find-keyword keyword-test assert-error
+                assert-prompt check-type-error case-body-error print-object
+                describe-object sb!pcl::check-wrapper-validity))
 
 ;;; Gray streams functions not defined until after PCL is loaded
 (declaim (ftype (function * *)
-		stream-advance-to-column stream-clear-input
-		stream-clear-output stream-finish-output stream-force-output
-		stream-fresh-line stream-line-column stream-line-length
-		stream-listen stream-peek-char stream-read-byte
-		stream-read-char stream-read-char-no-hang stream-read-line
-		stream-start-line-p stream-terpri stream-unread-char
-		stream-write-byte stream-write-char stream-write-string))
+                stream-advance-to-column stream-clear-input
+                stream-clear-output stream-finish-output stream-force-output
+                stream-fresh-line stream-line-column stream-line-length
+                stream-listen stream-peek-char stream-read-byte
+                stream-read-char stream-read-char-no-hang stream-read-line
+                stream-start-line-p stream-terpri stream-unread-char
+                stream-write-byte stream-write-char stream-write-string))