X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fglobals.lisp;h=13068225312dadc8b0f1dcfc3cb7ef5f834f2f7c;hb=96de323a7da5d9f72473b48625dcb6d084ec0a3b;hp=70885e913bb80eba66800cfd239563a5c6c1088b;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/globals.lisp b/src/code/globals.lisp
index 70885e9..1306822 100644
--- a/src/code/globals.lisp
+++ b/src/code/globals.lisp
@@ -15,27 +15,17 @@
 
 (in-package "SB!IMPL")
 
-;;; 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*
+(declaim (special *keyword-package* *cl-package*
 		  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*
+		  *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*
-		  *default-pathname-defaults* *beep-function*
 		  *gc-notify-before* *gc-notify-after*
 		  *posix-argv*))
 
@@ -44,7 +34,7 @@
 		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