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 (file-comment
  19   "$Header$")
  20
  21 ;;; FIXME: The COMMON-LISP specials here are already handled in
  22 ;;; cl-specials.lisp.
  23 (declaim (special *keyword-package* *cl-package* *package* *query-io*
  24                   *terminal-io* *error-output* *trace-output* *debug-io*
  25                   *standard-input* *standard-output*
  26                   *evalhook* *applyhook*
  27                   original-lisp-environment
  28                   *read-default-float-format*
  29                   *read-suppress* *readtable* *print-base* *print-radix*
  30                   *print-length* *print-level* *print-pretty* *print-escape*
  31                   *print-case* *print-circle* *print-gensym* *print-array*
  32                   *standard-readtable*
  33                   sb!debug:*in-the-debugger*
  34                   sb!debug:*stack-top-hint*
  35                   sb!conditions::*handler-clusters*
  36                   sb!conditions::*restart-clusters*
  37                   *gc-inhibit* *need-to-collect-garbage*
  38                   *software-interrupt-vector* *load-verbose*
  39                   *load-print-stuff* *in-compilation-unit*
  40                   *aborted-compilation-unit-count* *char-name-alist*
  41                   *default-pathname-defaults* *beep-function*
  42                   *gc-notify-before* *gc-notify-after*
  43                   *posix-argv*))
  44
  45 (declaim (ftype (function * *)
  46                 find-keyword keyword-test assert-error
  47                 assert-prompt check-type-error case-body-error print-object
  48                 describe-object sb!pcl::check-wrapper-validity))
  49
  50 ;;; Gray streams functions not defined until after PCL is loaded.
  51 (declaim (ftype (function * *)
  52                 stream-advance-to-column stream-clear-input
  53                 stream-clear-output stream-finish-output stream-force-output
  54                 stream-fresh-line stream-line-column stream-line-length
  55                 stream-listen stream-peek-char stream-read-byte
  56                 stream-read-char stream-read-char-no-hang stream-read-line
  57                 stream-start-line-p stream-terpri stream-unread-char
  58                 stream-write-byte stream-write-char stream-write-string))