X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fglobals.lisp;h=68ff4c1141e47ba41f430897b0e0081eb9cea59d;hb=HEAD;hp=c6f9f36347d522a0e781c170677f53593eba323c;hpb=f0338f6fa732b21daa4405e19465bd460e0526d9;p=sbcl.git

diff --git a/src/code/globals.lisp b/src/code/globals.lisp
index c6f9f36..68ff4c1 100644
--- a/src/code/globals.lisp
+++ b/src/code/globals.lisp
@@ -16,30 +16,32 @@
 (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*
-		  *gc-notify-before* *gc-notify-after*
-		  *posix-argv*))
+                  original-lisp-environment
+                  *standard-readtable*
+                  sb!pretty::*standard-pprint-dispatch-table*
+                  sb!debug:*in-the-debugger*
+                  sb!debug:*stack-top-hint*
+                  *handler-clusters*
+                  *restart-clusters*
+                  *in-without-gcing* *gc-inhibit* *gc-pending*
+                  #!+sb-thread *stop-for-gc-pending*
+                  #!+sb-dynamic-core sb!vm::*required-runtime-c-symbols*
+                  *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.
+;;; 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))