0.8.15.7
[sbcl.git] / src / code / globals.lisp
1 ;;;; This file contains special proclamations for variables that are
2 ;;;; referenced in the code sources before they are defined. There are
3 ;;;; also function proclamations to make some common functions be
4 ;;;; known, avoiding work in recording the calls that are done before
5 ;;;; the definition.
6
7 ;;;; This software is part of the SBCL system. See the README file for
8 ;;;; more information.
9 ;;;;
10 ;;;; This software is derived from the CMU CL system, which was
11 ;;;; written at Carnegie Mellon University and released into the
12 ;;;; public domain. The software is in the public domain and is
13 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
14 ;;;; files for more information.
15
16 (in-package "SB!IMPL")
17
18 (declaim (special *keyword-package* *cl-package*
19                   original-lisp-environment
20                   *standard-readtable*
21                   sb!debug:*in-the-debugger*
22                   sb!debug:*stack-top-hint*
23                   *handler-clusters*
24                   *restart-clusters*
25                   *gc-inhibit* *need-to-collect-garbage*
26                   *software-interrupt-vector* *load-verbose*
27                   *load-print-stuff* *in-compilation-unit*
28                   *aborted-compilation-unit-count* *char-name-alist*
29                   *posix-argv*))
30
31 (declaim (ftype (function * *)
32                 find-keyword keyword-test assert-error
33                 assert-prompt check-type-error case-body-error print-object
34                 describe-object sb!pcl::check-wrapper-validity))
35
36 ;;; Gray streams functions not defined until after PCL is loaded
37 (declaim (ftype (function * *)
38                 stream-advance-to-column stream-clear-input
39                 stream-clear-output stream-finish-output stream-force-output
40                 stream-fresh-line stream-line-column stream-line-length
41                 stream-listen stream-peek-char stream-read-byte
42                 stream-read-char stream-read-char-no-hang stream-read-line
43                 stream-start-line-p stream-terpri stream-unread-char
44                 stream-write-byte stream-write-char stream-write-string))