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 (file-comment
  13  "$Header$")
  14
  15 ;;; entries in STATIC-SYMBOLS table, references to which can be compiled
  16 ;;; as though they're special variables
  17 (declaim (special *posix-argv*
  18                   *!initial-fdefn-objects*
  19                   *read-only-space-free-pointer*
  20                   *static-space-free-pointer*
  21                   *initial-dynamic-space-free-pointer*
  22                   *current-catch-block*
  23                   *current-unwind-protect-block*
  24                   sb!c::*eval-stack-top*
  25                   sb!vm::*alien-stack*
  26                   ;; KLUDGE: I happened to notice that these should be #!+X86.
  27                   ;; There could easily be others in the list, too.
  28                   #!+x86 *pseudo-atomic-atomic*
  29                   #!+x86 *pseudo-atomic-interrupted*
  30                   sb!unix::*interrupts-enabled*
  31                   sb!unix::*interrupt-pending*
  32                   *free-interrupt-context-index*
  33                   sb!vm::*allocation-pointer*
  34                   sb!vm::*binding-stack-pointer*
  35                   sb!vm::*internal-gc-trigger*
  36                   sb!vm::*fp-constant-0d0*
  37                   sb!vm::*fp-constant-1d0*
  38                   sb!vm::*fp-constant-0s0*
  39                   sb!vm::*fp-constant-1s0*
  40                   sb!vm::*fp-constant-0l0*
  41                   sb!vm::*fp-constant-1l0*
  42                   sb!vm::*fp-constant-pi*
  43                   sb!vm::*fp-constant-l2t*
  44                   sb!vm::*fp-constant-l2e*
  45                   sb!vm::*fp-constant-lg2*
  46                   sb!vm::*fp-constant-ln2*
  47                   sb!vm::*scavenge-read-only-space*
  48                   sb!vm::*control-stacks*
  49                   sb!pcl::..slot-unbound..
  50                   sb!vm::*x86-cgc-active-p*
  51                   sb!vm::*static-blue-bag*))