src/code/globals.lisp

   1 ;;;; This file contains special proclamations for variables that are
   2 ;;;; referenced in the code sources before they are defined.
   3
   4 ;;;; This software is part of the SBCL system. See the README file for
   5 ;;;; more information.
   6 ;;;;
   7 ;;;; This software is derived from the CMU CL system, which was
   8 ;;;; written at Carnegie Mellon University and released into the
   9 ;;;; public domain. The software is in the public domain and is
  10 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  11 ;;;; files for more information.
  12
  13 (in-package "SB!IMPL")
  14
  15 (declaim (special sb!debug:*in-the-debugger*
  16                   sb!debug:*stack-top-hint*
  17                   *handler-clusters*
  18                   *restart-clusters*
  19                   *gc-inhibit* *gc-pending*
  20                   #!+sb-thread *stop-for-gc-pending*
  21                   *posix-argv*))
  22 ;;; This constant is assigned by Genesis and never read by Lisp code.
  23 ;;; (To prove that it isn't used, it's not a toplevel form)
  24 #!+(and sb-dynamic-core (host-feature sb-xc))
  25 (let ()
  26   (defconstant sb!vm::+required-foreign-symbols+
  27     (symbol-value 'sb!vm::+required-foreign-symbols+)))