0.7.13.7:
[sbcl.git] / 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                   *read-only-space-free-pointer*
20                   sb!vm:*static-space-free-pointer*
21                   sb!vm:*initial-dynamic-space-free-pointer*
22                   *current-catch-block*
23                   *current-unwind-protect-block*
24                   sb!vm::*alien-stack*
25                   ;; FIXME: The pseudo-atomic variable stuff should be
26                   ;; conditional on :SB-PSEUDO-ATOMIC-SYMBOLS, which
27                   ;; should be conditional on :X86, instead of the
28                   ;; pseudo-atomic stuff being directly conditional on
29                   ;; :X86. (Note that non-X86 ports mention
30                   ;; pseudo-atomicity too, but they handle it without
31                   ;; messing with special variables.)
32                   #!+x86 *pseudo-atomic-atomic*
33                   #!+x86 *pseudo-atomic-interrupted*
34                   sb!unix::*interrupts-enabled*
35                   sb!unix::*interrupt-pending*
36                   *free-interrupt-context-index*
37                   sb!vm::*allocation-pointer*
38                   sb!vm::*binding-stack-pointer*
39                   sb!vm::*fp-constant-0d0*
40                   sb!vm::*fp-constant-1d0*
41                   sb!vm::*fp-constant-0f0*
42                   sb!vm::*fp-constant-1f0*
43                   sb!vm::*fp-constant-0l0*
44                   sb!vm::*fp-constant-1l0*
45                   sb!vm::*fp-constant-pi*
46                   sb!vm::*fp-constant-l2t*
47                   sb!vm::*fp-constant-l2e*
48                   sb!vm::*fp-constant-lg2*
49                   sb!vm::*fp-constant-ln2*
50                   sb!pcl::..slot-unbound..))