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

diff --git a/src/code/globals.lisp b/src/code/globals.lisp
index 1eb72dd..68ff4c1 100644
--- a/src/code/globals.lisp
+++ b/src/code/globals.lisp
@@ -15,44 +15,33 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
-;;; FIXME: The COMMON-LISP specials here are already handled in
-;;; cl-specials.lisp.
-(declaim (special *keyword-package* *cl-package* *package* *query-io*
-		  *terminal-io* *error-output* *trace-output* *debug-io*
-		  *standard-input* *standard-output*
-		  *evalhook* *applyhook*
-		  original-lisp-environment
-		  *read-default-float-format*
-		  *read-suppress* *readtable* *print-base* *print-radix*
-		  *print-length* *print-level* *print-pretty* *print-escape*
-		  *print-case* *print-circle* *print-gensym* *print-array*
-		  *standard-readtable*
-		  sb!debug:*in-the-debugger*
-		  sb!debug:*stack-top-hint*
-		  sb!conditions::*handler-clusters*
-		  sb!conditions::*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*
-		  *default-pathname-defaults* *beep-function*
-		  *gc-notify-before* *gc-notify-after*
-		  *posix-argv*))
+(declaim (special *keyword-package* *cl-package*
+                  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))