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 sb!pretty::*standard-pprint-dispatch-table*
  19                   sb!debug:*in-the-debugger*
  20                   sb!debug:*stack-top-hint*
  21                   *handler-clusters*
  22                   *restart-clusters*
  23                   *in-without-gcing* *gc-inhibit* *gc-pending*
  24                   #!+sb-thread *stop-for-gc-pending*
  25                   #!+sb-dynamic-core sb!vm::*required-runtime-c-symbols*
  26                   *load-verbose*
  27                   *posix-argv*))
  28
  29 (declaim (ftype (function * *)
  30                 assert-error assert-prompt check-type-error
  31                 case-body-error print-object
  32                 describe-object sb!pcl::check-wrapper-validity))
  33
  34 ;;; Gray streams functions not defined until after PCL is loaded
  35 (declaim (ftype (function * *)
  36                 stream-advance-to-column stream-clear-input
  37                 stream-clear-output stream-finish-output stream-force-output
  38                 stream-fresh-line stream-line-column stream-line-length
  39                 stream-listen stream-peek-char stream-read-byte
  40                 stream-read-char stream-read-char-no-hang stream-read-line
  41                 stream-start-line-p stream-terpri stream-unread-char
  42                 stream-write-byte stream-write-char stream-write-string))