(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))