src/code/early-impl.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3 ;;;;
   4 ;;;; This software is derived from the CMU CL system, which was
   5 ;;;; written at Carnegie Mellon University and released into the
   6 ;;;; public domain. The software is in the public domain and is
   7 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
   8 ;;;; files for more information.
   9
  10 (in-package "SB!IMPL")
  11
  12 ;;; entries in STATIC-SYMBOLS table, references to which can be compiled
  13 ;;; as though they're special variables
  14 ;;;
  15 ;;; FIXME: These should be listed once and only once, instead of
  16 ;;; listed here and then listed separately (and by now, 2001-06-06,
  17 ;;; slightly differently) elsewhere.
  18 (declaim (special *posix-argv*
  19                   *core-string*
  20                   *stdin*
  21                   *stdout*
  22                   *stderr*
  23                   *tty*
  24                   sb!vm:*read-only-space-free-pointer*
  25                   sb!vm:*static-space-free-pointer*
  26                   #!+immobile-space sb!vm:*immobile-fixedobj-free-pointer*
  27                   #!+immobile-space sb!vm:*immobile-space-free-pointer*
  28                   sb!vm:*current-catch-block*
  29                   sb!vm::*current-unwind-protect-block*
  30                   sb!vm::*alien-stack-pointer*
  31                   sb!vm:*control-stack-start*
  32                   sb!vm:*control-stack-end*
  33                   sb!vm:*binding-stack-start*
  34                   #!+(or hpux) sb!vm::*c-lra*
  35                   *allow-with-interrupts*
  36                   sb!unix::*unblock-deferrables-on-enabling-interrupts-p*
  37                   *interrupts-enabled*
  38                   *interrupt-pending*
  39                   #!+sb-thruption *thruption-pending*
  40                   #!+sb-safepoint *gc-safe*
  41                   #!+sb-safepoint *in-safepoint*
  42                   *free-interrupt-context-index*
  43                   sb!vm::*allocation-pointer*
  44                   sb!vm::*binding-stack-pointer*
  45                   sb!pcl::*cache-miss-values-stack*
  46                   sb!pcl::*dfun-miss-gfs-on-stack*))
  47 (!defvar sb!vm:*alloc-signal* nil)
  48 ;;; This is a slot of 'struct thread' if multithreaded,
  49 ;;; and the symbol-global-value should never be used.
  50 ;;; (And in any case it is not really a special var)
  51 #!+(and (or x86 x86-64) (not sb-thread))
  52 (!defvar *pseudo-atomic-bits* 0)