0.9.2.51:
authorWilliam Harold Newman <william.newman@airmail.net>
Thu, 14 Jul 2005 20:24:16 +0000 (20:24 +0000)
committerWilliam Harold Newman <william.newman@airmail.net>
Thu, 14 Jul 2005 20:24:16 +0000 (20:24 +0000)
should be the last sizable slice of whitespace canonicalization (but
it yet remains at least to consider *.sh/*.S/*.foobar, to make
canonicalness check run as part of tests/, and to remove
annoying "echo" statements)
(Anyone who ends up here with "cvs annotate" probably
wants to look at the "tabby" tagged version.)

base-target-features.lisp-expr
build-order.lisp-expr
package-data-list.lisp-expr
tools-for-build/determine-endianness.c
tools-for-build/grovel-headers.c
tools-for-build/ldso-stubs.lisp
tools-for-build/os-provides-dladdr-test.c
tools-for-build/ucd.lisp
tools-for-build/where-is-mcontext.c
version.lisp-expr

index 7f9a524..e7b6406 100644 (file)
@@ -13,7 +13,7 @@
 ;;;; E.g. you can use code like this:
 ;;;;    (lambda (list)
 ;;;;      (flet ((enable (x) (pushnew x list))
-;;;;            (disable (x) (setf list (remove x list))))
+;;;;             (disable (x) (setf list (remove x list))))
 ;;;;        #+nil (enable :sb-show)
 ;;;;        (enable :sb-after-xc-core)
 ;;;;        #+nil (disable :sb-doc)
  ;; been either made unconditional, deleted, or rewritten into
  ;; unrecognizability, but some remains. What remains is not maintained
  ;; or tested in current SBCL, but I haven't gone out of my way to
- ;; break it, either. 
+ ;; break it, either.
  ;;
  ; :high-security
  ; :high-security-support
  ;; the Unicode consortium, rather than the classical 8-bit ISO-8859-1
  ;; character set.
  :sb-unicode
+
  ;; This affects the definition of a lot of things in bignum.lisp. It
  ;; doesn't seem to be documented anywhere what systems it might apply
  ;; to. It doesn't seem to be needed for X86 systems anyway.
  ;; notes on local features (which are set automatically by the
  ;; configuration script, and should not be set here unless you
  ;; really, really know what you're doing):
- ;; 
+ ;;
  ;; machine architecture features:
  ;;   :x86
  ;;      any Intel 386 or better, or compatibles like the AMD K6 or K7
  ;;   :mips
  ;;      any MIPS CPU (in little-endian mode with :little-endian -- currently
  ;;      untested)
- ;;   
+ ;;
  ;; (CMU CL also had a :pentium feature, which affected the definition
  ;; of some floating point vops. It was present but not enabled or
  ;; documented in the CMU CL code that SBCL is derived from, and has
index d622fc8..69d1547 100644 (file)
@@ -23,7 +23,7 @@
 ;;; instead, so that we could do automated incremental recompilation.
 ;;; But the dependencies are varied and subtle, and it'd be extremely
 ;;; difficult to extract them automatically, and it'd be extremely
-;;; tedious and error-prone to extract them manually, so we don't 
+;;; tedious and error-prone to extract them manually, so we don't
 ;;; extract them. (It would be nice to fix this someday. The most
 ;;; feasible approach that I can think of would be to make the
 ;;; dependencies work on a package level, not an individual file
  ("src/code/defbangstruct")
 
  ("src/code/unportable-float")
+
  ("src/code/funutils" :not-host)
 
  ;; This needs DEF!STRUCT, and is itself needed early so that structure
  ("src/code/toplevel"    :not-host)
  ("src/code/cold-error"  :not-host)
  ("src/code/fdefinition" :not-host)
- ;; FIXME: Figure out some way to make the compiler macro for INFO 
+ ;; FIXME: Figure out some way to make the compiler macro for INFO
  ;; available for compilation of "code/fdefinition".
 
  ;; In classic CMU CL, code/type was here. I've since split that into
  ;; debug-info.lisp.  Should it therefore be :not-host?  -- CSR,
  ;; 2002-02-05
  ("src/code/sc-offset")
+
  ;; KLUDGE: I'd prefer to have this done with a "code/target" softlink
  ;; instead of a bunch of reader macros. -- WHN 19990308
  #!+sparc ("src/code/sparc-vm" :not-host)
  ;; The following two files trigger function/macro redefinition
  ;; warnings in clisp during make-host-2; as a workaround, we ignore
  ;; the failure values from COMPILE-FILE under clisp.
+
  ;; for DEFSTRUCT ALIEN-TYPE, needed by host-type.lisp
  ("src/code/host-alieneval" #+clisp :ignore-failure-p)
 
  ("src/code/class-init")
  ("src/code/typecheckfuns")
 
- ;; The DEFSTRUCT machinery needs SB!XC:SUBTYPEP, defined in 
+ ;; The DEFSTRUCT machinery needs SB!XC:SUBTYPEP, defined in
  ;; "code/late-type", and SB!XC:TYPEP, defined in "code/cross-type",
  ;; and SPECIALIZE-ARRAY-TYPE, defined in "compiler/generic/vm-type",
  ;; and SB!XC:PROCLAIM, defined in "src/compiler/proclaim"
  ("src/compiler/bit-util")
 
  ;; This has ASSEMBLY-UNIT-related stuff needed by core.lisp.
- ("src/compiler/early-assem") 
+ ("src/compiler/early-assem")
 
  ;; core.lisp contains DEFSTRUCT CORE-OBJECT, and "compiler/main.lisp"
  ;; does lots of (TYPEP FOO 'CORE-OBJECT), so it's nice to compile this
  ;; before "compiler/main.lisp" so that those can be coded efficiently
  ;; (and so that they don't cause lots of annoying compiler warnings
- ;; about undefined types). 
+ ;; about undefined types).
  ("src/compiler/generic/core")
  ("src/code/thread")
  ("src/code/load")
  ("src/code/bit-bash"    :not-host) ; needs %NEGATE from assembly/target/arith
 
  ("src/code/target-load" :not-host) ; needs special vars from code/load.lisp
- ("src/compiler/target/sanctify" :not-host) 
+ ("src/compiler/target/sanctify" :not-host)
+
  ;; FIXME: Does this really need stuff from compiler/dump.lisp?
  ("src/compiler/target-dump" :not-host) ; needs stuff from compiler/dump.lisp
 
  ;; FIXME: here? earlier?  can probably be as late as possible.  Also
  ;; maybe call it FORCE-DELAYED-PROCLAIMS?
  ("src/compiler/late-proclaim")
+
  ;; fundamental target macros (e.g. CL:DO and CL:DEFUN) and support
  ;; for them
  ("src/code/defboot")
index cbe2e9b..49d0991 100644 (file)
@@ -34,91 +34,91 @@ is a deprecated nickname to help ease the transition from older versions
 of SBCL which maintained the CMU-CL-style split into two packages.)"
     :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!ALIEN-INTERNALS")
     :reexport ("ARRAY"
-              "BOOLEAN" "CHAR" "DOUBLE-FLOAT"
-              "FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT"
-              "SINGLE-FLOAT"
-              ;; FIXME: Do we really want to reexport
-              ;; SYSTEM-AREA-POINTER here? Why?
-              "SYSTEM-AREA-POINTER"
-              "UNION"  "VALUES" "*")
+               "BOOLEAN" "CHAR" "DOUBLE-FLOAT"
+               "FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT"
+               "SINGLE-FLOAT"
+               ;; FIXME: Do we really want to reexport
+               ;; SYSTEM-AREA-POINTER here? Why?
+               "SYSTEM-AREA-POINTER"
+               "UNION"  "VALUES" "*")
     :export ("ADDR"
-            "ALIEN" 
-            "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE" 
-            "CAST" "C-STRING"
-            "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
-
-            ;; FIXME: These old names don't match the DEFFOO - vs. -
-            ;; DEFINE-FOO convention used in the ANSI spec, and so
-            ;; were deprecated in sbcl-0.7.0. After a year or so
-            ;; they can go away completely.
-            "DEF-ALIEN-ROUTINE" "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE"
-
-            "DEREF" "DOUBLE"
-            "ENUM" "EXTERN-ALIEN"
-            "FREE-ALIEN"
-            "GET-ERRNO"
-            "INT"
-            "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG"
-            "MAKE-ALIEN"
-            "NULL-ALIEN"
-            "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
+             "ALIEN"
+             "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE"
+             "CAST" "C-STRING"
+             "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE"
+
+             ;; FIXME: These old names don't match the DEFFOO - vs. -
+             ;; DEFINE-FOO convention used in the ANSI spec, and so
+             ;; were deprecated in sbcl-0.7.0. After a year or so
+             ;; they can go away completely.
+             "DEF-ALIEN-ROUTINE" "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE"
+
+             "DEREF" "DOUBLE"
+             "ENUM" "EXTERN-ALIEN"
+             "FREE-ALIEN"
+             "GET-ERRNO"
+             "INT"
+             "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG"
+             "MAKE-ALIEN"
+             "NULL-ALIEN"
+             "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT"
              "UNDEFINED-ALIEN-ERROR"
-            "UNSIGNED"
-            "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
+             "UNSIGNED"
+             "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
              "UTF8-STRING"
-            "VOID"
-            "WITH-ALIEN"))
-   
+             "VOID"
+             "WITH-ALIEN"))
+
    #s(sb-cold:package-data
       :name "SB!ALIEN-INTERNALS"
       :doc "private: stuff for implementing ALIENs and friends"
       :use ("CL")
       :export ("%CAST"
-              "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
-              "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
-              "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
-              "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
-              "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
-              "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
+               "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
+               "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
+               "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
+               "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE"
+               "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
+               "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
                "ALIEN-CALLBACK"
-              "ALIEN-CALLBACK-ACCESSOR-FORM"
-              "ALIEN-CALLBACK-ASSEMBLER-WRAPPER"
-              "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
-              "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
-              "ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE"
-              "ALIEN-FUN-TYPE-ARG-TYPES" "ALIEN-FUN-TYPE-P"
-              "ALIEN-FUN-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
-              "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
-              "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
-              "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
-              "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
-              "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
-              "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
-              "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
-              "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
-              "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
-              "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
-              "ALIEN-TYPE-P" "ALIEN-TYPEP"
-              "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
-              "ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
-              "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
-              "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
-              "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
-              "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
-              "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
-              "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT"
-              "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" 
-              "ENTER-ALIEN-CALLBACK"
-              "EXTRACT-ALIEN-VALUE"
-              "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
-              "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
-              "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
-              "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
-              "MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE"
-              "MAKE-ALIEN-VALUE"
-              "MAKE-LOCAL-ALIEN" "NATURALIZE"
-              "NOTE-LOCAL-ALIEN-TYPE"
-              "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
+               "ALIEN-CALLBACK-ACCESSOR-FORM"
+               "ALIEN-CALLBACK-ASSEMBLER-WRAPPER"
+               "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
+               "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
+               "ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE"
+               "ALIEN-FUN-TYPE-ARG-TYPES" "ALIEN-FUN-TYPE-P"
+               "ALIEN-FUN-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
+               "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
+               "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
+               "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
+               "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
+               "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
+               "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
+               "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
+               "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
+               "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
+               "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
+               "ALIEN-TYPE-P" "ALIEN-TYPEP"
+               "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
+               "ALIEN-VALUE-SAP" "ALIEN-VALUE-P"
+               "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
+               "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
+               "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
+               "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
+               "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS"
+               "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT"
+               "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN"
+               "ENTER-ALIEN-CALLBACK"
+               "EXTRACT-ALIEN-VALUE"
+               "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
+               "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
+               "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
+               "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
+               "MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE"
+               "MAKE-ALIEN-VALUE"
+               "MAKE-LOCAL-ALIEN" "NATURALIZE"
+               "NOTE-LOCAL-ALIEN-TYPE"
+               "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
 
    #s(sb-cold:package-data
       :name "SB!ASSEM"
@@ -126,58 +126,58 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
       :use ("CL" "SB!EXT" "SB!INT")
       :export ("ASSEMBLY-UNIT"
 
-              "*ASSEM-SCHEDULER-P*"
-              "*ASSEM-INSTRUCTIONS*"
-              "*ASSEM-MAX-LOCATIONS*"
-
-              "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
-              "EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
-              "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
-              "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
-
-              "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE"
-              "ALIGN" "INST" "LABEL" "LABEL-P" "GEN-LABEL"
-              "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
-              "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
-              "READS" "WRITES" "SEGMENT"
-              "WITHOUT-SCHEDULING"
-              "VARIABLE-LENGTH"
-              "SEGMENT-COLLECT-DYNAMIC-STATISTICS"
-
-              ;; FIXME: These are in the SB-ASSEM package now, but
-              ;; (left over from CMU CL) are defined in files which
-              ;; are IN-PACKAGE SB-C. It would probably be cleaner
-              ;; to move at least most of them to files which are
-              ;; IN-PACKAGE SB-ASSEM.
-              "BRANCH" "DO-SSET-ELEMENTS" "FLUSHABLE" "MAKE-SSET" "SSET"
-              "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY"))
+               "*ASSEM-SCHEDULER-P*"
+               "*ASSEM-INSTRUCTIONS*"
+               "*ASSEM-MAX-LOCATIONS*"
+
+               "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH"
+               "EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER"
+               "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
+               "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"
+
+               "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE"
+               "ALIGN" "INST" "LABEL" "LABEL-P" "GEN-LABEL"
+               "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT"
+               "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS"
+               "READS" "WRITES" "SEGMENT"
+               "WITHOUT-SCHEDULING"
+               "VARIABLE-LENGTH"
+               "SEGMENT-COLLECT-DYNAMIC-STATISTICS"
+
+               ;; FIXME: These are in the SB-ASSEM package now, but
+               ;; (left over from CMU CL) are defined in files which
+               ;; are IN-PACKAGE SB-C. It would probably be cleaner
+               ;; to move at least most of them to files which are
+               ;; IN-PACKAGE SB-ASSEM.
+               "BRANCH" "DO-SSET-ELEMENTS" "FLUSHABLE" "MAKE-SSET" "SSET"
+               "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY"))
 
    #s(sb-cold:package-data
       :name "SB!BIGNUM"
       :doc "private: bignum implementation"
       :use ("CL" "SB!KERNEL" "SB!INT" "SB!EXT")
       :export ("%ADD-WITH-CARRY"
-              "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
-              "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET"
-              "%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
-              "%DIGIT-LOGICAL-SHIFT-RIGHT"
-              "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
-              "%FLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
-              "%MULTIPLY" "%MULTIPLY-AND-ADD"
-              "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
-              "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
-              "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
-              "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
-              "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
-              "BIGNUM-LOGBITP"
-              "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
-              "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
-              "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
-              "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
-              "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
-              "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
-              "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
-              "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
+               "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
+               "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET"
+               "%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
+               "%DIGIT-LOGICAL-SHIFT-RIGHT"
+               "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
+               "%FLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR"
+               "%MULTIPLY" "%MULTIPLY-AND-ADD"
+               "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
+               "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
+               "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
+               "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
+               "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
+               "BIGNUM-LOGBITP"
+               "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
+               "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
+               "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
+               "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
+               "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
+               "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
+               "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
+               "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
 
    #s(sb-cold:package-data
       :name "SB!C"
@@ -191,11 +191,11 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
       ;; (Probably the same considerations also explain why BIGNUM is
       ;;in the USE list.)
       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM"
-                #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT"
-                "SB!KERNEL" "SB!SYS")
+                 #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT"
+                 "SB!KERNEL" "SB!SYS")
       :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
       :export ("%ALIEN-FUNCALL"
-               "%CATCH-BREAKUP" "%CONTINUE-UNWIND" 
+               "%CATCH-BREAKUP" "%CONTINUE-UNWIND"
                "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
                "%UNWIND-PROTECT-BREAKUP"
 
@@ -255,7 +255,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "DEFTRANSFORM" "DERIVE-TYPE"
                "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
                "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
-               "FAST-SYMBOL-VALUE" 
+               "FAST-SYMBOL-VALUE"
                "FIXUP-NOTE-KIND"
                "FIXUP-NOTE-FIXUP"
                "FIXUP-NOTE-POSITION"
@@ -266,7 +266,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "GET-VECTOR-SUBTYPE"
                "HALT"
                "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
-              "INSERT-STEP-CONDITIONS"
+               "INSERT-STEP-CONDITIONS"
                "INSTANCE-REF" "INSTANCE-SET"
                "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
                "IR2-PHYSENV-NUMBER-STACK-P"
@@ -375,164 +375,164 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
       :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!KERNEL")
       :reexport ("*DEBUG-PRINT-VARIABLE-ALIST*")
       :export ("*DEBUG-BEGINNER-HELP-P*"
-              "*DEBUG-CONDITION*"
-              "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
-              "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
+               "*DEBUG-CONDITION*"
+               "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*"
+               "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
                "*SHOW-ENTRY-POINT-DETAILS*"
-              "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
-              "*TRACE-FRAME*" "*TRACED-FUN-LIST*"
-              "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"
-              "*PRINT-LOCATION-KIND*"
-              "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
-              "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
-              "*TRACE-ENCAPSULATE-DEFAULT*"))
+               "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
+               "*TRACE-FRAME*" "*TRACED-FUN-LIST*"
+               "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR"
+               "*PRINT-LOCATION-KIND*"
+               "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
+               "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
+               "*TRACE-ENCAPSULATE-DEFAULT*"))
 
    #s(sb-cold:package-data
       :name "SB!DI"
       :doc "private: primitives used to write debuggers"
       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM")
       :import-from (("SB!C"
-                    "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
-                    "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
-                    "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
-                    "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
+                     "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
+                     "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
+                     "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE"
+                     "DEBUG-SOURCE" "DEBUG-SOURCE-P"))
       :reexport ("DEBUG-SOURCE-FROM"
-                "DEBUG-SOURCE-NAME"
-                "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
-                "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
-                "DEBUG-SOURCE-P")
+                 "DEBUG-SOURCE-NAME"
+                 "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED"
+                 "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE"
+                 "DEBUG-SOURCE-P")
       :export ("ACTIVATE-BREAKPOINT"
-              "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VAR-NAME" "BREAKPOINT"
-              "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUN" "BREAKPOINT-INFO"
-              "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
-              "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUN"
-              "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
-              "CODE-LOCATION-P" "CODE-LOCATION-TOPLEVEL-FORM-OFFSET"
-              "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
-              "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
-              "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
-              "DEBUG-FUN" "DEBUG-FUN-FUN" "DEBUG-FUN-KIND"
-              "DEBUG-FUN-LAMBDA-LIST" "DEBUG-FUN-NAME"
-              "DEBUG-FUN-P" "DEBUG-FUN-START-LOCATION"
-              "DEBUG-FUN-SYMBOL-VARS"
-              "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR"
-              "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE"
-              "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
-              "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
-              "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
-              "DELETE-BREAKPOINT" "DO-BLOCKS"
-              "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS"
-              "DO-DEBUG-FUN-VARS"
-              "FORM-NUMBER-TRANSLATIONS"
-              "FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION"
-              "FRAME-DEBUG-FUN" "FRAME-DOWN"
-              "FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
-              "FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
-              "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
-              "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
-              "NO-DEBUG-FUN-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
-              "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
-              "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
-              "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
-              "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
+               "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VAR-NAME" "BREAKPOINT"
+               "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUN" "BREAKPOINT-INFO"
+               "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
+               "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUN"
+               "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
+               "CODE-LOCATION-P" "CODE-LOCATION-TOPLEVEL-FORM-OFFSET"
+               "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
+               "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
+               "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
+               "DEBUG-FUN" "DEBUG-FUN-FUN" "DEBUG-FUN-KIND"
+               "DEBUG-FUN-LAMBDA-LIST" "DEBUG-FUN-NAME"
+               "DEBUG-FUN-P" "DEBUG-FUN-START-LOCATION"
+               "DEBUG-FUN-SYMBOL-VARS"
+               "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR"
+               "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE"
+               "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME"
+               "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE"
+               "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE"
+               "DELETE-BREAKPOINT" "DO-BLOCKS"
+               "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS"
+               "DO-DEBUG-FUN-VARS"
+               "FORM-NUMBER-TRANSLATIONS"
+               "FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION"
+               "FRAME-DEBUG-FUN" "FRAME-DOWN"
+               "FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
+               "FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
+               "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
+               "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
+               "NO-DEBUG-FUN-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
+               "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
+               "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
+               "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
+               "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
 
    #s(sb-cold:package-data
       :name "SB!DISASSEM"
       :doc "private: stuff related to the implementation of the disassembler"
       :use ("CL" "SB!EXT" "SB!INT")
       :export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
-              "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
-              "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
-              "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
-              "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
-              "DISASSEMBLE-CODE-COMPONENT"
-              "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
-              "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
-              "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP"
+               "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
+               "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
+               "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
+               "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
+               "DISASSEMBLE-CODE-COMPONENT"
+               "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
+               "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
+               "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP"
                "DSTATE-GET-PROP" "DSTATE-PUT-INST-PROP"
-              "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
-              "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
-              "FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
-              "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
-              "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS"
-              "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
-              "INST" "INST-FORMAT" "LABEL-SEGMENTS"
-              "MAYBE-NOTE-ASSEMBLER-ROUTINE"
-              "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
-              "MAYBE-NOTE-NIL-INDEXED-OBJECT"
-              "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
-              "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
-              "NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
-              "PRIN1-SHORT" "PRINT-BYTES"
-              "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
-              "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
-              "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUN"
-              "SEG-LENGTH" "SEG-START" "SEGMENT"
-              "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
-              "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
-              "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
-              "DEFINE-ARG-TYPE" "GEN-ARG-TYPE-DEF-FORM"
-              "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
-              "MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
-              "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
-              "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
-              "DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
-              "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
-              "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
-              "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
-              "DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
-              "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
-              "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
-              "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
-              "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
-              "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
-              "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR"))
+               "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
+               "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
+               "FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
+               "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
+               "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS"
+               "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
+               "INST" "INST-FORMAT" "LABEL-SEGMENTS"
+               "MAYBE-NOTE-ASSEMBLER-ROUTINE"
+               "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
+               "MAYBE-NOTE-NIL-INDEXED-OBJECT"
+               "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF"
+               "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
+               "NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
+               "PRIN1-SHORT" "PRINT-BYTES"
+               "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
+               "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
+               "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUN"
+               "SEG-LENGTH" "SEG-START" "SEGMENT"
+               "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
+               "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
+               "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
+               "DEFINE-ARG-TYPE" "GEN-ARG-TYPE-DEF-FORM"
+               "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
+               "MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
+               "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
+               "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
+               "DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
+               "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
+               "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
+               "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
+               "DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
+               "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
+               "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
+               "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
+               "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
+               "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
+               "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR"))
 
    #!+sb-dyncount
    #s(sb-cold:package-data
       :name "SB!DYNCOUNT"
       :doc "private: some somewhat-stale code for collecting runtime statistics"
       :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM"
-                "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
+                 "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS")
       :export ("*COLLECT-DYNAMIC-STATISTICS*"
-              "COUNT-ME"
-              "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
-              "IR2-COMPONENT-DYNCOUNT-INFO"
-              "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
+               "COUNT-ME"
+               "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS"
+               "IR2-COMPONENT-DYNCOUNT-INFO"
+               "DYNCOUNT-INFO" "DYNCOUNT-INFO-P"))
 
    #s(sb-cold:package-data
       :name "SB!FASL"
       :doc "private: stuff related to FASL load/dump logic (and GENESIS)"
       :use ("CL" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM" "SB!C"
-                "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
+                 "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS")
       :export ("*ASSEMBLER-ROUTINES*"
-              "+BACKEND-FASL-FILE-IMPLEMENTATION+"
-              "BUILD-ID-CORE-ENTRY-TYPE-CODE"
-              "*FASL-FILE-TYPE*"
-              "CLOSE-FASL-OUTPUT"
-              "DUMP-ASSEMBLER-ROUTINES"
-              "DUMP-OBJECT"
-              "DYNAMIC-CORE-SPACE-ID"
-              "END-CORE-ENTRY-TYPE-CODE"
-              "FASL-CONSTANT-ALREADY-DUMPED-P"
-              "+FASL-FILE-VERSION+"
-              "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
-              "FASL-DUMP-COLD-FSET"
-              "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
-              "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL"
-              "FASL-NOTE-HANDLE-FOR-CONSTANT"
-              "FASL-OUTPUT" "FASL-OUTPUT-P"
-              "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
-              "FASL-VALIDATE-STRUCTURE"
-              "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
-              "*!LOAD-TIME-VALUES*"
-              "LOAD-TYPE-PREDICATE"
-              "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
-              "OPEN-FASL-OUTPUT"
-              "READ-ONLY-CORE-SPACE-ID"
-              "*!REVERSED-COLD-TOPLEVELS*"
-              "STATIC-CORE-SPACE-ID"
-              "VERSION-CORE-ENTRY-TYPE-CODE"))
+               "+BACKEND-FASL-FILE-IMPLEMENTATION+"
+               "BUILD-ID-CORE-ENTRY-TYPE-CODE"
+               "*FASL-FILE-TYPE*"
+               "CLOSE-FASL-OUTPUT"
+               "DUMP-ASSEMBLER-ROUTINES"
+               "DUMP-OBJECT"
+               "DYNAMIC-CORE-SPACE-ID"
+               "END-CORE-ENTRY-TYPE-CODE"
+               "FASL-CONSTANT-ALREADY-DUMPED-P"
+               "+FASL-FILE-VERSION+"
+               "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT"
+               "FASL-DUMP-COLD-FSET"
+               "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA"
+               "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL"
+               "FASL-NOTE-HANDLE-FOR-CONSTANT"
+               "FASL-OUTPUT" "FASL-OUTPUT-P"
+               "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM"
+               "FASL-VALIDATE-STRUCTURE"
+               "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
+               "*!LOAD-TIME-VALUES*"
+               "LOAD-TYPE-PREDICATE"
+               "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
+               "OPEN-FASL-OUTPUT"
+               "READ-ONLY-CORE-SPACE-ID"
+               "*!REVERSED-COLD-TOPLEVELS*"
+               "STATIC-CORE-SPACE-ID"
+               "VERSION-CORE-ENTRY-TYPE-CODE"))
 
    ;; This package is a grab bag for things which used to be internal
    ;; symbols in package COMMON-LISP. Lots of these symbols are accessed
@@ -545,24 +545,24 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
       :name "SB!IMPL"
       :doc "private: a grab bag of implementation details"
       :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!DEBUG" "SB!EXT"
-                "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
+                 "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS"))
 
    #s(sb-cold:package-data
       :name "SB!EXT"
       :doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
-      :export (        ;; Information about how the program was invoked is
-              ;; nonstandard but very useful.
-              "*POSIX-ARGV*"
-              "POSIX-GETENV" "POSIX-ENVIRON"
-                           
-              ;; People have various good reasons to mess with the GC.
-              "*AFTER-GC-HOOKS*"
-              "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
-              "BYTES-CONSED-BETWEEN-GCS"
-              "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
-              "*GC-RUN-TIME*"
-              "PURIFY"
+      :export ( ;; Information about how the program was invoked is
+               ;; nonstandard but very useful.
+               "*POSIX-ARGV*"
+               "POSIX-GETENV" "POSIX-ENVIRON"
+
+               ;; People have various good reasons to mess with the GC.
+               "*AFTER-GC-HOOKS*"
+               "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*"
+               "BYTES-CONSED-BETWEEN-GCS"
+               "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED"
+               "*GC-RUN-TIME*"
+               "PURIFY"
 
                ;; Customizing printing of compiler and debugger messages
                "*COMPILER-PRINT-VARIABLE-ALIST*"
@@ -571,160 +571,160 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; Hooks into init & save sequences
                "*INIT-HOOKS*" "*SAVE-HOOKS*"
 
-              ;; There is no one right way to report progress on
-              ;; hairy compiles.
-              "*COMPILE-PROGRESS*"
+               ;; There is no one right way to report progress on
+               ;; hairy compiles.
+               "*COMPILE-PROGRESS*"
 
-              ;; It can be handy to be able to evaluate expressions involving
-              ;; the thing under examination by CL:INSPECT.
-              "*INSPECTED*"
+               ;; It can be handy to be able to evaluate expressions involving
+               ;; the thing under examination by CL:INSPECT.
+               "*INSPECTED*"
 
-              ;; There is no one right way to do efficiency notes.
-              "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
+               ;; There is no one right way to do efficiency notes.
+               "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*"
 
-              ;; There's no one right way to report errors.
-              "*ENCLOSING-SOURCE-CUTOFF*"
-              "*UNDEFINED-WARNING-LIMIT*"
+               ;; There's no one right way to report errors.
+               "*ENCLOSING-SOURCE-CUTOFF*"
+               "*UNDEFINED-WARNING-LIMIT*"
 
-              ;; and for dedicated users who really want to customize
-              ;; error reporting, we have
-              "DEFINE-SOURCE-CONTEXT"
+               ;; and for dedicated users who really want to customize
+               ;; error reporting, we have
+               "DEFINE-SOURCE-CONTEXT"
 
-              ;; and given how many users dislike strict treatment of
-              ;; DEFCONSTANT, let's give them enough rope to escape by
-              "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
-              "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
+               ;; and given how many users dislike strict treatment of
+               ;; DEFCONSTANT, let's give them enough rope to escape by
+               "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME"
+               "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE"
 
                ;; package-locking stuff
-               #!+sb-package-locks "PACKAGE-LOCKED-P" 
-               #!+sb-package-locks "LOCK-PACKAGE" 
+               #!+sb-package-locks "PACKAGE-LOCKED-P"
+               #!+sb-package-locks "LOCK-PACKAGE"
                #!+sb-package-locks "UNLOCK-PACKAGE"
-               #!+sb-package-locks "PACKAGE-IMPLEMENTED-BY-LIST" 
+               #!+sb-package-locks "PACKAGE-IMPLEMENTED-BY-LIST"
                #!+sb-package-locks "PACKAGE-IMPLEMENTS-LIST"
-               #!+sb-package-locks "ADD-IMPLEMENTATION-PACKAGE" 
+               #!+sb-package-locks "ADD-IMPLEMENTATION-PACKAGE"
                #!+sb-package-locks "REMOVE-IMPLEMENTATION-PACKAGE"
                #!+sb-package-locks "WITH-UNLOCKED-PACKAGES"
                #!+sb-package-locks "PACKAGE-LOCK-VIOLATION"
                #!+sb-package-locks "PACKAGE-LOCKED-ERROR"
-               #!+sb-package-locks "SYMBOL-PACKAGE-LOCKED-ERROR"            
+               #!+sb-package-locks "SYMBOL-PACKAGE-LOCKED-ERROR"
                #!+sb-package-locks "PACKAGE-LOCKED-ERROR-SYMBOL"
                "WITHOUT-PACKAGE-LOCKS"
                "DISABLE-PACKAGE-LOCKS"
                "ENABLE-PACKAGE-LOCKS"
 
-              ;; error signalled when attempt to load an invalid fasl
-              ;; is made, so that user code can try to recompile, etc.
-              "INVALID-FASL"
-
-              ;; conditions that can be handled to reduce compiler
-              ;; verbosity
-              "CODE-DELETION-NOTE" "COMPILER-NOTE"
-
-              ;; and a mechanism for controlling same at compile time
-              "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
-
-              ;; FIXME: This name doesn't match the DEFFOO - vs. -
-              ;; DEFINE-FOO convention used in the ANSI spec, and so
-              ;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After
-              ;; a year or so it can go away completely.
-              "DEF-SOURCE-CONTEXT"
-
-              ;; FIXME: These seem like the right thing, but are they
-              ;; consistent with ANSI? (And actually maybe they're not
-              ;; quite the right thing; it might be better to also do
-              ;; WITH-STANDARD-IO-SYNTAX or something.)
-              "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
-
-              ;; extended declarations..
-              "FREEZE-TYPE" "INHIBIT-WARNINGS"
-              "MAYBE-INLINE"
-
-              ;; ..and variables to control compiler policy
-              "*INLINE-EXPANSION-LIMIT*"
-              "*USE-IMPLEMENTATION-TYPES*"
-              "*DERIVE-FUNCTION-TYPES*"
-
-              ;; ..and inspector of compiler policy
-              "DESCRIBE-COMPILER-POLICY"
-
-              ;; a special form for breaking out of our "declarations
-              ;; are assertions" default
-              "TRULY-THE"
-
-              ;; This is something which must exist inside any Common
-              ;; Lisp implementation, and which someone writing a
-              ;; customized toplevel might well want. It seems perverse
-              ;; to hide it from them..
-              "INTERACTIVE-EVAL"
-
-              ;; weak pointers and finalization
-              "CANCEL-FINALIZATION"
-              "FINALIZE"
-              "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
-              "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
-
-              ;; If the user knows we're doing IEEE, he might reasonably
-              ;; want to do this stuff.
-              "FLOAT-DENORMALIZED-P"
-              "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
-              "FLOAT-INFINITY-P"
-              "SHORT-FLOAT-NEGATIVE-INFINITY"
-              "SHORT-FLOAT-POSITIVE-INFINITY"
-              "SINGLE-FLOAT-NEGATIVE-INFINITY"
-              "SINGLE-FLOAT-POSITIVE-INFINITY"
-              "DOUBLE-FLOAT-NEGATIVE-INFINITY"
-              "DOUBLE-FLOAT-POSITIVE-INFINITY"
-              "LONG-FLOAT-NEGATIVE-INFINITY"
-              "LONG-FLOAT-POSITIVE-INFINITY"
-
-              ;; hacks to work around system limitations
-              "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
-                                       ; memory is exhausted
-
-              ;; saving Lisp images
-              "SAVE-LISP-AND-DIE"
-
-              ;; provided for completeness to make it more convenient
-              ;; to use command-line --disable-debugger functionality
-              ;; in oddball situations (like building core files using
-              ;; scripts which run unattended, when the core files are
-              ;; intended for interactive use)
-              "DISABLE-DEBUGGER"
-              "ENABLE-DEBUGGER"
-
-              ;; the mechanism by which {en,dis}able-debugger works is
-              ;; also exported for people writing alternative toplevels
-              ;; (Emacs, CLIM interfaces, etc)
-              "*INVOKE-DEBUGGER-HOOK*"
-
-              ;; miscellaneous useful supported extensions
-              "QUIT"
-              "*ED-FUNCTIONS*"
-              "*MODULE-PROVIDER-FUNCTIONS*"
-              "WITH-TIMEOUT" "TIMEOUT"
-
-              ;; stepping interface
-              "STEP-CONDITION" "STEP-FORM-CONDITION"
-              "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION"
-              "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH"
+               ;; error signalled when attempt to load an invalid fasl
+               ;; is made, so that user code can try to recompile, etc.
+               "INVALID-FASL"
+
+               ;; conditions that can be handled to reduce compiler
+               ;; verbosity
+               "CODE-DELETION-NOTE" "COMPILER-NOTE"
+
+               ;; and a mechanism for controlling same at compile time
+               "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS"
+
+               ;; FIXME: This name doesn't match the DEFFOO - vs. -
+               ;; DEFINE-FOO convention used in the ANSI spec, and so
+               ;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After
+               ;; a year or so it can go away completely.
+               "DEF-SOURCE-CONTEXT"
+
+               ;; FIXME: These seem like the right thing, but are they
+               ;; consistent with ANSI? (And actually maybe they're not
+               ;; quite the right thing; it might be better to also do
+               ;; WITH-STANDARD-IO-SYNTAX or something.)
+               "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
+
+               ;; extended declarations..
+               "FREEZE-TYPE" "INHIBIT-WARNINGS"
+               "MAYBE-INLINE"
+
+               ;; ..and variables to control compiler policy
+               "*INLINE-EXPANSION-LIMIT*"
+               "*USE-IMPLEMENTATION-TYPES*"
+               "*DERIVE-FUNCTION-TYPES*"
+
+               ;; ..and inspector of compiler policy
+               "DESCRIBE-COMPILER-POLICY"
+
+               ;; a special form for breaking out of our "declarations
+               ;; are assertions" default
+               "TRULY-THE"
+
+               ;; This is something which must exist inside any Common
+               ;; Lisp implementation, and which someone writing a
+               ;; customized toplevel might well want. It seems perverse
+               ;; to hide it from them..
+               "INTERACTIVE-EVAL"
+
+               ;; weak pointers and finalization
+               "CANCEL-FINALIZATION"
+               "FINALIZE"
+               "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER"
+               "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
+
+               ;; If the user knows we're doing IEEE, he might reasonably
+               ;; want to do this stuff.
+               "FLOAT-DENORMALIZED-P"
+               "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
+               "FLOAT-INFINITY-P"
+               "SHORT-FLOAT-NEGATIVE-INFINITY"
+               "SHORT-FLOAT-POSITIVE-INFINITY"
+               "SINGLE-FLOAT-NEGATIVE-INFINITY"
+               "SINGLE-FLOAT-POSITIVE-INFINITY"
+               "DOUBLE-FLOAT-NEGATIVE-INFINITY"
+               "DOUBLE-FLOAT-POSITIVE-INFINITY"
+               "LONG-FLOAT-NEGATIVE-INFINITY"
+               "LONG-FLOAT-POSITIVE-INFINITY"
+
+               ;; hacks to work around system limitations
+               "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when
+                                        ; memory is exhausted
+
+               ;; saving Lisp images
+               "SAVE-LISP-AND-DIE"
+
+               ;; provided for completeness to make it more convenient
+               ;; to use command-line --disable-debugger functionality
+               ;; in oddball situations (like building core files using
+               ;; scripts which run unattended, when the core files are
+               ;; intended for interactive use)
+               "DISABLE-DEBUGGER"
+               "ENABLE-DEBUGGER"
+
+               ;; the mechanism by which {en,dis}able-debugger works is
+               ;; also exported for people writing alternative toplevels
+               ;; (Emacs, CLIM interfaces, etc)
+               "*INVOKE-DEBUGGER-HOOK*"
+
+               ;; miscellaneous useful supported extensions
+               "QUIT"
+               "*ED-FUNCTIONS*"
+               "*MODULE-PROVIDER-FUNCTIONS*"
+               "WITH-TIMEOUT" "TIMEOUT"
+
+               ;; stepping interface
+               "STEP-CONDITION" "STEP-FORM-CONDITION"
+               "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION"
+               "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH"
                "STEP-CONDITION-PATHNAME" "STEP-CONDITION-RESULT"
-               "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO" 
+               "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO"
                "*STEPPER-HOOK*"
-            
-              ;; RUN-PROGRAM is not only useful for users, but also
-              ;; useful to implement parts of SBCL itself, so we're
-              ;; going to have to implement it anyway, so we might
-              ;; as well support it. And then once we're committed
-              ;; to implementing RUN-PROGRAM, it's nice to have it
-              ;; return a PROCESS object with operations defined on
-              ;; that object.
-              "RUN-PROGRAM"
-              "FIND-EXECUTABLE-IN-SEARCH-PATH"
-              "PROCESS-ALIVE-P" "PROCESS-CLOSE"
-              "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
-              "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
-              "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
-              "PROCESS-STATUS-HOOK" "PROCESS-WAIT"
+
+               ;; RUN-PROGRAM is not only useful for users, but also
+               ;; useful to implement parts of SBCL itself, so we're
+               ;; going to have to implement it anyway, so we might
+               ;; as well support it. And then once we're committed
+               ;; to implementing RUN-PROGRAM, it's nice to have it
+               ;; return a PROCESS object with operations defined on
+               ;; that object.
+               "RUN-PROGRAM"
+               "FIND-EXECUTABLE-IN-SEARCH-PATH"
+               "PROCESS-ALIVE-P" "PROCESS-CLOSE"
+               "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
+               "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
+               "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
+               "PROCESS-STATUS-HOOK" "PROCESS-WAIT"
 
                ;; external-format support
                "OCTETS-TO-STRING" "STRING-TO-OCTETS"))
@@ -742,21 +742,21 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
 Lisp extension proposal by David N. Gray"
       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
       :export ("FUNDAMENTAL-BINARY-STREAM"
-              "FUNDAMENTAL-BINARY-INPUT-STREAM"
-              "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
-              "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
-              "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
-              "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
-              "FUNDAMENTAL-STREAM"
-              "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
-              "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
-              "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
-              "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
-              "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
-              "STREAM-READ-SEQUENCE" "STREAM-START-LINE-P" "STREAM-TERPRI"
-              "STREAM-UNREAD-CHAR"
-              "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-SEQUENCE"
-              "STREAM-WRITE-STRING"))
+               "FUNDAMENTAL-BINARY-INPUT-STREAM"
+               "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
+               "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
+               "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
+               "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
+               "FUNDAMENTAL-STREAM"
+               "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT"
+               "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
+               "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
+               "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
+               "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
+               "STREAM-READ-SEQUENCE" "STREAM-START-LINE-P" "STREAM-TERPRI"
+               "STREAM-UNREAD-CHAR"
+               "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-SEQUENCE"
+               "STREAM-WRITE-STRING"))
 
    #s(sb-cold:package-data
       :name "SB!INT"
@@ -766,296 +766,296 @@ the stuff in here originated in CMU CL's EXTENSIONS package and is
 retained, possibly temporariliy, because it might be used internally."
       :use ("CL" "SB!ALIEN" "SB!GRAY" "SB!FASL" "SB!SYS")
       :export (;; lambda list keyword extensions
-              "&MORE"
-
-              ;; INFO stuff doesn't belong in a user-visible package, we
-              ;; should be able to change it without apology.
-              "*INFO-ENVIRONMENT*"
-              "CLEAR-INFO"
-              "COMPACT-INFO-ENVIRONMENT"
-              "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE"
-              "DO-INFO"
-              "INFO"
-              "MAKE-INFO-ENVIRONMENT"
+               "&MORE"
+
+               ;; INFO stuff doesn't belong in a user-visible package, we
+               ;; should be able to change it without apology.
+               "*INFO-ENVIRONMENT*"
+               "CLEAR-INFO"
+               "COMPACT-INFO-ENVIRONMENT"
+               "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE"
+               "DO-INFO"
+               "INFO"
+               "MAKE-INFO-ENVIRONMENT"
 
                ;; stepping control
                "*STEPPING*" "*STEP*"
 
-              ;; packages grabbed once and for all
-              "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
+               ;; packages grabbed once and for all
+               "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
 
-              ;; hash mixing operations
-              "MIX" "MIXF"
+               ;; hash mixing operations
+               "MIX" "MIXF"
 
-              ;; I'm not convinced that FDEFINITIONs are the ideal
-              ;; solution, so exposing ways to peek into the system
-              ;; seems undesirable, since it makes it harder to get
-              ;; rid of FDEFINITIONs entirely later.
-              "*SETF-FDEFINITION-HOOK*"
+               ;; I'm not convinced that FDEFINITIONs are the ideal
+               ;; solution, so exposing ways to peek into the system
+               ;; seems undesirable, since it makes it harder to get
+               ;; rid of FDEFINITIONs entirely later.
+               "*SETF-FDEFINITION-HOOK*"
 
-              ;; error-reporting facilities
-              "ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR"
-              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
-              "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR" 
-              "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION"
-              "SIMPLE-STYLE-WARNING"
+               ;; error-reporting facilities
+               "ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR"
+               "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
+               "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR"
+               "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION"
+               "SIMPLE-STYLE-WARNING"
 
-              "SPECIAL-FORM-FUNCTION"
-              "STYLE-WARN" "SIMPLE-COMPILER-NOTE"
+               "SPECIAL-FORM-FUNCTION"
+               "STYLE-WARN" "SIMPLE-COMPILER-NOTE"
 
                ;; FIXME: potential SB!EXT exports
-              "CHARACTER-CODING-ERROR"
+               "CHARACTER-CODING-ERROR"
                "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS"
                "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE"
                "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR"
-              "ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
+               "ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
 
-              ;; bootstrapping magic, to make things happen both in
-              ;; the cross-compilation host compiler's environment and
-              ;; in the cross-compiler's environment
-              "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
+               ;; bootstrapping magic, to make things happen both in
+               ;; the cross-compilation host compiler's environment and
+               ;; in the cross-compiler's environment
+               "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE"
 
-              ;; stuff for hinting to the compiler
-              "NAMED-LAMBDA"
+               ;; stuff for hinting to the compiler
+               "NAMED-LAMBDA"
 
-              ;; other variations on DEFFOO stuff useful for bootstrapping
-              ;; and cross-compiling
-              "DEFMACRO-MUNDANELY"
-              "DEFCONSTANT-EQX"
+               ;; other variations on DEFFOO stuff useful for bootstrapping
+               ;; and cross-compiling
+               "DEFMACRO-MUNDANELY"
+               "DEFCONSTANT-EQX"
                "DEFINE-UNSUPPORTED-FUN"
 
-              ;; messing with PATHNAMEs
-              "MAKE-TRIVIAL-DEFAULT-PATHNAME"
-              "PHYSICALIZE-PATHNAME"
-              "SANE-DEFAULT-PATHNAME-DEFAULTS"
-
-              ;; PCOUNTERs
-              "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
-              "INCF-PCOUNTER"
-              "INCF-PCOUNTER-OR-FIXNUM"
-              "MAKE-PCOUNTER"
-              "PCOUNTER"
-              "PCOUNTER->INTEGER"
-              "PCOUNTER-OR-FIXNUM->INTEGER"
-              "PCOUNTER-P"
-              "*N-BYTES-FREED-OR-PURIFIED*"
-
-              ;; miscellaneous non-standard but handy user-level functions..
-              "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
-              "ADJUST-LIST"
-              "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
-              "SANE-PACKAGE"
-              "CYCLIC-LIST-P"
-              "COMPOUND-OBJECT-P"
-              "SWAPPED-ARGS-FUN"
-              "AND/TYPE" "NOT/TYPE"
-              "ANY/TYPE" "EVERY/TYPE"
-              "EQUAL-BUT-NO-CAR-RECURSION"
-              "TYPE-BOUND-NUMBER"
-              "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
-              "PSXHASH"
-              "%BREAK"
-              "NTH-BUT-WITH-SANE-ARG-ORDER"
-              "DEPRECATION-WARNING"
-              "BIT-VECTOR-="
-
-              ;; ..and macros..
-              "COLLECT"
-              "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
-              "NAMED-LET"
-              "ONCE-ONLY"
-              "DEFENUM"
-              "DEFPRINTER"
-              "AVER" "ENFORCE-TYPE"
-              "AWHEN" "ACOND" "IT"
-              "BINDING*"
-              "!DEF-BOOLEAN-ATTRIBUTE"
-              "WITH-REBOUND-IO-SYNTAX"
-              "WITH-SANE-IO-SYNTAX"
-
-              ;; ..and CONDITIONs..
-              "BUG"
-              "UNSUPPORTED-OPERATOR"
-
-              "BOOTSTRAP-PACKAGE-NAME" 
-              "BOOTSTRAP-PACKAGE-NOT-FOUND"
-              "DEBOOTSTRAP-PACKAGE"
-
-              "REFERENCE-CONDITION" "REFERENCE-CONDITION-REFERENCES"
-              "*PRINT-CONDITION-REFERENCES*"
-
-              "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
-              "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH"
-              "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH"
-              "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
-              "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
+               ;; messing with PATHNAMEs
+               "MAKE-TRIVIAL-DEFAULT-PATHNAME"
+               "PHYSICALIZE-PATHNAME"
+               "SANE-DEFAULT-PATHNAME-DEFAULTS"
+
+               ;; PCOUNTERs
+               "FASTBIG-INCF-PCOUNTER-OR-FIXNUM"
+               "INCF-PCOUNTER"
+               "INCF-PCOUNTER-OR-FIXNUM"
+               "MAKE-PCOUNTER"
+               "PCOUNTER"
+               "PCOUNTER->INTEGER"
+               "PCOUNTER-OR-FIXNUM->INTEGER"
+               "PCOUNTER-P"
+               "*N-BYTES-FREED-OR-PURIFIED*"
+
+               ;; miscellaneous non-standard but handy user-level functions..
+               "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ"
+               "ADJUST-LIST"
+               "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE"
+               "SANE-PACKAGE"
+               "CYCLIC-LIST-P"
+               "COMPOUND-OBJECT-P"
+               "SWAPPED-ARGS-FUN"
+               "AND/TYPE" "NOT/TYPE"
+               "ANY/TYPE" "EVERY/TYPE"
+               "EQUAL-BUT-NO-CAR-RECURSION"
+               "TYPE-BOUND-NUMBER"
+               "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0"
+               "PSXHASH"
+               "%BREAK"
+               "NTH-BUT-WITH-SANE-ARG-ORDER"
+               "DEPRECATION-WARNING"
+               "BIT-VECTOR-="
+
+               ;; ..and macros..
+               "COLLECT"
+               "DO-ANONYMOUS" "DOHASH" "DOVECTOR"
+               "NAMED-LET"
+               "ONCE-ONLY"
+               "DEFENUM"
+               "DEFPRINTER"
+               "AVER" "ENFORCE-TYPE"
+               "AWHEN" "ACOND" "IT"
+               "BINDING*"
+               "!DEF-BOOLEAN-ATTRIBUTE"
+               "WITH-REBOUND-IO-SYNTAX"
+               "WITH-SANE-IO-SYNTAX"
+
+               ;; ..and CONDITIONs..
+               "BUG"
+               "UNSUPPORTED-OPERATOR"
+
+               "BOOTSTRAP-PACKAGE-NAME"
+               "BOOTSTRAP-PACKAGE-NOT-FOUND"
+               "DEBOOTSTRAP-PACKAGE"
+
+               "REFERENCE-CONDITION" "REFERENCE-CONDITION-REFERENCES"
+               "*PRINT-CONDITION-REFERENCES*"
+
+               "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME"
+               "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH"
+               "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH"
+               "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING"
+               "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE"
                "STRUCTURE-INITARG-NOT-KEYWORD"
 
                "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION"
                "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS"
                "RESOLVE-CONFLICT"
-               
-              ;; ..and DEFTYPEs..
-              "INDEX" "LOAD/STORE-INDEX"
-              "SIGNED-BYTE-WITH-A-BITE-OUT"
-              "UNSIGNED-BYTE-WITH-A-BITE-OUT"
-              "SFUNCTION" "UNSIGNED-BYTE*"
-              ;; ..and type predicates
-              "INSTANCEP"
-              "DOUBLE-FLOAT-P"
-              "LOGICAL-PATHNAME-P"
-              "LONG-FLOAT-P"
-              "SHORT-FLOAT-P"
-              "SINGLE-FLOAT-P"
-              "FIXNUMP"
-              "BIGNUMP"
-              "RATIOP"
-
-              ;; encapsulation
-              "ARG-LIST"
-              "BASIC-DEFINITION"
-              "ENCAPSULATE" "ENCAPSULATED-P"
-              "UNENCAPSULATE"
-
-              ;; various CHAR-CODEs
-              "BACKSPACE-CHAR-CODE" "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE"
-              "FORM-FEED-CHAR-CODE" "LINE-FEED-CHAR-CODE"
-              "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
-
-              ;; symbol-hacking idioms
-              "KEYWORDICATE" "SYMBOLICATE"
-
-              ;; certainly doesn't belong in public extensions
-              ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
-              "CONSTANT-ARG"
-
-              ;; various internal defaults
-              "DEFAULT-INIT-CHAR" "*DEFAULT-INIT-CHAR-FORM*"
-              "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT"
-
-              ;; hash caches
-              "DEFINE-HASH-CACHE"
-              "DEFUN-CACHED"
-              "DEFINE-CACHED-SYNONYM"
-
-              ;; time
-              "FORMAT-DECODED-TIME"
-              "FORMAT-UNIVERSAL-TIME"
-
-              ;; indenting
-              "MAKE-INDENTING-STREAM"
-
-              ;; stream commands, used by the debugger
-              "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
-              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
-
-              ;; used for FORMAT tilde paren
-              "MAKE-CASE-FROB-STREAM"
-
-              ;; helpers for C library calls
-              "STRERROR" "SIMPLE-PERROR"
-
-              ;; debuggers' little helpers
-              #!+sb-show "*/SHOW*"
-              #!+sb-show "HEXSTR"
-              "/SHOW"  "/NOSHOW"
-              "/XHOW"  "/NOXHOW"
-              "/SHOW0" "/NOSHOW0"
-              "/HEXSTR" "/NOHEXSTR"
-              "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
-
-              ;; cross-compilation bootstrap hacks which turn into
-              ;; placeholders in a target system
-              "UNCROSS"
-
-              ;; might as well be shared among the various files which
-              ;; need it:
-              "*EOF-OBJECT*"
-
-              ;; allocation to static space
-              "MAKE-STATIC-VECTOR"
-
-              ;; alien interface utilities
-              "C-STRINGS->STRING-LIST"
-
-              ;; misc. utilities used internally
-              "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT? 
-              "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
-              "FUN-NAME-BLOCK-NAME"
-              "FUN-NAME-INLINE-EXPANSION"
-              "LISTEN-SKIP-WHITESPACE"
-              "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
-              "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
-              "PROPER-LIST-OF-LENGTH-P"
-              "LIST-OF-LENGTH-AT-LEAST-P"
-              "LIST-WITH-LENGTH-P"
-              "SINGLETON-P"
-              "READ-SEQUENCE-OR-DIE"
-              "RENAME-KEY-ARGS"
-              "MISSING-ARG"
-              "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
-              "FEATUREP"
-              "FLUSH-STANDARD-OUTPUT-STREAMS"
-              "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST" 
-              "ABOUT-TO-MODIFY-SYMBOL-VALUE"
-              "SYMBOL-SELF-EVALUATING-P"
-              "PRINT-PRETTY-ON-STREAM-P"
-              "ARRAY-READABLY-PRINTABLE-P"
-              "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
-              "POSITIVE-PRIMEP"
-              "EVAL-IN-LEXENV"
-              "DEBUG-NAMIFY"
-              "FORCE" "DELAY" "PROMISE-READY-P"
-              "FIND-RESTART-OR-CONTROL-ERROR"
-
-              ;; These could be moved back into SB!EXT if someone has
-              ;; compelling reasons, but hopefully we can get by
-              ;; without supporting them, at least not as publicly
-              ;; accessible things with fixed interfaces.
-              "GET-FLOATING-POINT-MODES"
-              "SET-FLOATING-POINT-MODES"
-              "WITH-FLOAT-TRAPS-MASKED"
-              "DEFINE-HASH-TABLE-TEST"
-
-              ;; compatibility hacks for old-style CMU CL data formats
-              "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
-              "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
-
-              ;; a sort of quasi-unbound tag for use in hash tables
-              "+EMPTY-HT-SLOT+"
-
-              ;; low-level i/o stuff
-              "DONE-WITH-FAST-READ-BYTE"
-              "DONE-WITH-FAST-READ-CHAR"
-              "FAST-READ-BYTE"
-              "FAST-READ-BYTE-REFILL"
-              "FAST-READ-CHAR"
-              "FAST-READ-CHAR-REFILL"
-              "FAST-READ-S-INTEGER"
-              "FAST-READ-U-INTEGER"
-              "FAST-READ-VAR-U-INTEGER"
-              "FILE-NAME"
-              "INTERN*"
-              "PREPARE-FOR-FAST-READ-BYTE"
-              "PREPARE-FOR-FAST-READ-CHAR"
-
-              ;; reflection of our backquote implementation that the
-              ;; pprinter needs
-              "*BACKQ-TOKENS*"
-            
-              ;; hackery to help set up for cold init
-              "!BEGIN-COLLECTING-COLD-INIT-FORMS"
-              "!COLD-INIT-FORMS"
-              "COLD-FSET"
-              "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
-
-              ;; catch tags
-              "TOPLEVEL-CATCHER"
-
-              ;; hooks for contrib/ stuff we're insufficiently sure
-              ;; about to add to SB!EXT
-              "*REPL-PROMPT-FUN*"
-              "*REPL-READ-FORM-FUN*"))
+
+               ;; ..and DEFTYPEs..
+               "INDEX" "LOAD/STORE-INDEX"
+               "SIGNED-BYTE-WITH-A-BITE-OUT"
+               "UNSIGNED-BYTE-WITH-A-BITE-OUT"
+               "SFUNCTION" "UNSIGNED-BYTE*"
+               ;; ..and type predicates
+               "INSTANCEP"
+               "DOUBLE-FLOAT-P"
+               "LOGICAL-PATHNAME-P"
+               "LONG-FLOAT-P"
+               "SHORT-FLOAT-P"
+               "SINGLE-FLOAT-P"
+               "FIXNUMP"
+               "BIGNUMP"
+               "RATIOP"
+
+               ;; encapsulation
+               "ARG-LIST"
+               "BASIC-DEFINITION"
+               "ENCAPSULATE" "ENCAPSULATED-P"
+               "UNENCAPSULATE"
+
+               ;; various CHAR-CODEs
+               "BACKSPACE-CHAR-CODE" "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE"
+               "FORM-FEED-CHAR-CODE" "LINE-FEED-CHAR-CODE"
+               "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE"
+
+               ;; symbol-hacking idioms
+               "KEYWORDICATE" "SYMBOLICATE"
+
+               ;; certainly doesn't belong in public extensions
+               ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff?
+               "CONSTANT-ARG"
+
+               ;; various internal defaults
+               "DEFAULT-INIT-CHAR" "*DEFAULT-INIT-CHAR-FORM*"
+               "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT"
+
+               ;; hash caches
+               "DEFINE-HASH-CACHE"
+               "DEFUN-CACHED"
+               "DEFINE-CACHED-SYNONYM"
+
+               ;; time
+               "FORMAT-DECODED-TIME"
+               "FORMAT-UNIVERSAL-TIME"
+
+               ;; indenting
+               "MAKE-INDENTING-STREAM"
+
+               ;; stream commands, used by the debugger
+               "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
+               "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
+
+               ;; used for FORMAT tilde paren
+               "MAKE-CASE-FROB-STREAM"
+
+               ;; helpers for C library calls
+               "STRERROR" "SIMPLE-PERROR"
+
+               ;; debuggers' little helpers
+               #!+sb-show "*/SHOW*"
+               #!+sb-show "HEXSTR"
+               "/SHOW"  "/NOSHOW"
+               "/XHOW"  "/NOXHOW"
+               "/SHOW0" "/NOSHOW0"
+               "/HEXSTR" "/NOHEXSTR"
+               "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
+
+               ;; cross-compilation bootstrap hacks which turn into
+               ;; placeholders in a target system
+               "UNCROSS"
+
+               ;; might as well be shared among the various files which
+               ;; need it:
+               "*EOF-OBJECT*"
+
+               ;; allocation to static space
+               "MAKE-STATIC-VECTOR"
+
+               ;; alien interface utilities
+               "C-STRINGS->STRING-LIST"
+
+               ;; misc. utilities used internally
+               "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT?
+               "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
+               "FUN-NAME-BLOCK-NAME"
+               "FUN-NAME-INLINE-EXPANSION"
+               "LISTEN-SKIP-WHITESPACE"
+               "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT"
+               "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING"
+               "PROPER-LIST-OF-LENGTH-P"
+               "LIST-OF-LENGTH-AT-LEAST-P"
+               "LIST-WITH-LENGTH-P"
+               "SINGLETON-P"
+               "READ-SEQUENCE-OR-DIE"
+               "RENAME-KEY-ARGS"
+               "MISSING-ARG"
+               "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX
+               "FEATUREP"
+               "FLUSH-STANDARD-OUTPUT-STREAMS"
+               "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
+               "ABOUT-TO-MODIFY-SYMBOL-VALUE"
+               "SYMBOL-SELF-EVALUATING-P"
+               "PRINT-PRETTY-ON-STREAM-P"
+               "ARRAY-READABLY-PRINTABLE-P"
+               "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P"
+               "POSITIVE-PRIMEP"
+               "EVAL-IN-LEXENV"
+               "DEBUG-NAMIFY"
+               "FORCE" "DELAY" "PROMISE-READY-P"
+               "FIND-RESTART-OR-CONTROL-ERROR"
+
+               ;; These could be moved back into SB!EXT if someone has
+               ;; compelling reasons, but hopefully we can get by
+               ;; without supporting them, at least not as publicly
+               ;; accessible things with fixed interfaces.
+               "GET-FLOATING-POINT-MODES"
+               "SET-FLOATING-POINT-MODES"
+               "WITH-FLOAT-TRAPS-MASKED"
+               "DEFINE-HASH-TABLE-TEST"
+
+               ;; compatibility hacks for old-style CMU CL data formats
+               "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL"
+               "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL"
+
+               ;; a sort of quasi-unbound tag for use in hash tables
+               "+EMPTY-HT-SLOT+"
+
+               ;; low-level i/o stuff
+               "DONE-WITH-FAST-READ-BYTE"
+               "DONE-WITH-FAST-READ-CHAR"
+               "FAST-READ-BYTE"
+               "FAST-READ-BYTE-REFILL"
+               "FAST-READ-CHAR"
+               "FAST-READ-CHAR-REFILL"
+               "FAST-READ-S-INTEGER"
+               "FAST-READ-U-INTEGER"
+               "FAST-READ-VAR-U-INTEGER"
+               "FILE-NAME"
+               "INTERN*"
+               "PREPARE-FOR-FAST-READ-BYTE"
+               "PREPARE-FOR-FAST-READ-CHAR"
+
+               ;; reflection of our backquote implementation that the
+               ;; pprinter needs
+               "*BACKQ-TOKENS*"
+
+               ;; hackery to help set up for cold init
+               "!BEGIN-COLLECTING-COLD-INIT-FORMS"
+               "!COLD-INIT-FORMS"
+               "COLD-FSET"
+               "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS"
+
+               ;; catch tags
+               "TOPLEVEL-CATCHER"
+
+               ;; hooks for contrib/ stuff we're insufficiently sure
+               ;; about to add to SB!EXT
+               "*REPL-PROMPT-FUN*"
+               "*REPL-READ-FORM-FUN*"))
 
    ;; FIXME: This package is awfully huge. It'd probably be good to
    ;; split it. There's at least one natural way to split it: the
@@ -1067,7 +1067,7 @@ retained, possibly temporariliy, because it might be used internally."
    ;;   * Pull GC stuff (*GC-INHIBIT*, *NEED-TO-COLLECT-GARBAGE*, etc.)
    ;;     out into SB-GC.
    ;;   * Pull special case implementations of sequence functions (e.g.
-   ;;     %MAP-TO-LIST-ARITY-1 and %FIND-POSITION-IF-NOT) and 
+   ;;     %MAP-TO-LIST-ARITY-1 and %FIND-POSITION-IF-NOT) and
    ;;     other sequence function implementation grot into SB-SEQ.
    ;;   * Pull all the math stuff (%ACOS, %COSH, WORD-LOGICAL-AND...)
    ;;     into SB-MATH.
@@ -1085,7 +1085,7 @@ retained, possibly temporariliy, because it might be used internally."
 integration' (said CMU CL architecture.tex) and that probably was and
 is a good idea, but see SB-SYS re. blurring of boundaries."
       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM"
-                "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
+                 "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
       :reexport ("DEF!STRUCT" "DEF!MACRO")
       :export ("%ACOS"
                "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
@@ -1131,7 +1131,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%SET-SAP-REF-SINGLE" "%SET-SIGNED-SAP-REF-16"
                "%SET-SIGNED-SAP-REF-32" "%SET-SIGNED-SAP-REF-64"
                "%SET-SIGNED-SAP-REF-WORD"
-              "%SET-SIGNED-SAP-REF-8" "%SET-STACK-REF"
+               "%SET-SIGNED-SAP-REF-8" "%SET-STACK-REF"
                "%SET-SYMBOL-HASH" "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
                "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
                "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
@@ -1148,7 +1148,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "WORD-LOGICAL-XOR" "ALIEN-TYPE-TYPE"
                "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
                "ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR"
-              "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
+               "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
                "COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
                "DISABLED-PACKAGE-LOCKS"
                "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
@@ -1169,7 +1169,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CALLABLE" "CASE-BODY-ERROR"
                "CHARACTER-SET" "CHARACTER-SET-TYPE"
                "CHARACTER-SET-TYPE-PAIRS"
-              #!+sb-unicode "CHARACTER-STRING-P"
+               #!+sb-unicode "CHARACTER-STRING-P"
                "CHARPOS"
                "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR" "CLOSED-FLAME"
                "CODE-COMPONENT" "CODE-COMPONENT-P" "CODE-DEBUG-INFO"
@@ -1190,7 +1190,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
                "CURRENT-DYNAMIC-SPACE-START" "DATA-VECTOR-REF"
                "DATA-VECTOR-SET" "DECLARATION-TYPE-CONFLICT-ERROR"
-              "DECODE-DOUBLE-FLOAT"
+               "DECODE-DOUBLE-FLOAT"
                #!+long-float "DECODE-LONG-FLOAT"
                "DECODE-SINGLE-FLOAT"
                "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
@@ -1202,7 +1202,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
                "EFFECTIVE-FIND-POSITION-TEST"
                "EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
-              "EXTENDED-CHAR-P"
+               "EXTENDED-CHAR-P"
                "FAILED-%WITH-ARRAY-DATA" "FDEFINITION-OBJECT"
                "FDOCUMENTATION" "FILENAME"
                "FIND-AND-INIT-OR-CHECK-LAYOUT" "FLOAT-EXPONENT"
@@ -1234,7 +1234,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
                "KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
                "LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
-              "LAYOUT-N-UNTAGGED-SLOTS"
+               "LAYOUT-N-UNTAGGED-SLOTS"
                #!+(or x86-64 x86) "%LEA"
                "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM"
                "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
@@ -1275,7 +1275,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-CHARACTER-ERROR"
                "OBJECT-NOT-BASE-STRING-ERROR" "OBJECT-NOT-BIGNUM-ERROR"
                "OBJECT-NOT-BIT-VECTOR-ERROR"
-              #!+sb-unicode "OBJECT-NOT-CHARACTER-STRING-ERROR"
+               #!+sb-unicode "OBJECT-NOT-CHARACTER-STRING-ERROR"
                "OBJECT-NOT-COMPLEX-ERROR"
                "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
                "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
@@ -1342,7 +1342,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
                "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
                "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR"
-              #!+sb-unicode "OBJECT-NOT-SIMPLE-CHARACTER-STRING-ERROR"
+               #!+sb-unicode "OBJECT-NOT-SIMPLE-CHARACTER-STRING-ERROR"
                "OBJECT-NOT-SIMPLE-STRING-ERROR"
                "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
                "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
@@ -1352,8 +1352,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                ;; FIXME: 32/64-bit issues
                "OBJECT-NOT-UNSIGNED-BYTE-64-ERROR"
                "OBJECT-NOT-VECTOR-ERROR"
-              "OBJECT-NOT-VECTOR-NIL-ERROR"
-              "OBJECT-NOT-WEAK-POINTER-ERROR"
+               "OBJECT-NOT-VECTOR-NIL-ERROR"
+               "OBJECT-NOT-WEAK-POINTER-ERROR"
                "ODD-KEY-ARGS-ERROR" "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT"
                "PACKAGE-DESIGNATOR" "PACKAGE-DOC-STRING"
                "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE"
@@ -1364,7 +1364,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+(or x86 x86-64) "*PSEUDO-ATOMIC-INTERRUPTED*"
                "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR"
                "READER-PACKAGE-ERROR" "READER-EOF-ERROR"
-               "RESTART-DESIGNATOR" 
+               "RESTART-DESIGNATOR"
                "RUN-PENDING-FINALIZERS"
                "SCALE-DOUBLE-FLOAT"
                #!+long-float "SCALE-LONG-FLOAT"
@@ -1402,7 +1402,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "SIMPLE-ARRAY-SIGNED-BYTE-61-P"
                "SIMPLE-ARRAY-SIGNED-BYTE-64-P"
                "SIMPLE-ARRAY-SIGNED-BYTE-8-P" "SIMPLE-BASE-STRING-P"
-              #!+sb-unicode "SIMPLE-CHARACTER-STRING-P"
+               #!+sb-unicode "SIMPLE-CHARACTER-STRING-P"
                "SIMPLE-PACKAGE-ERROR" "SIMPLE-UNBOXED-ARRAY"
                "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
                "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
@@ -1530,7 +1530,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
 
                "CONDITION-READER-FUNCTION"
                "CONDITION-WRITER-FUNCTION"
-            
+
                "CONDITION-SLOT-ALLOCATION"
                "CONDITION-SLOT-DOCUMENTATION"
                "CONDITION-SLOT-INITARGS"
@@ -1538,7 +1538,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CONDITION-SLOT-INITFORM-P"
                "CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS"
                "CONDITION-SLOT-WRITERS"
-            
+
                "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
                "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
                "!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT"
@@ -1556,7 +1556,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
 
                "GC-REINIT"
                "SIGNAL-COLD-INIT-OR-REINIT"
-               "STREAM-COLD-INIT-OR-RESET" 
+               "STREAM-COLD-INIT-OR-RESET"
 
                ;; Cleanups to run before saving a core
                "DEBUG-DEINIT" "FOREIGN-DEINIT" "PROFILE-DEINIT"
@@ -1594,14 +1594,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "INTERRUPT-THREAD-ERROR-THREAD"
                "INTERRUPT-THREAD-ERROR-ERRNO"
                "INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD"
-              "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
+               "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE"
                "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX"
-              "WITH-RECURSIVE-LOCK"
-              "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
-              "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST"
-              "MAKE-LISTENER-THREAD"
-              "RELEASE-FOREGROUND" "WITH-NEW-SESSION"))
+               "WITH-RECURSIVE-LOCK"
+               "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME"
+               "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST"
+               "MAKE-LISTENER-THREAD"
+               "RELEASE-FOREGROUND" "WITH-NEW-SESSION"))
+
    #s(sb-cold:package-data
       :name "SB!LOOP"
       :doc "private: implementation details of LOOP"
@@ -1616,99 +1616,99 @@ The Art of the Metaobject Protocol, by Kiczales, des Rivieres and Bobrow:
 ISBN 0-262-61074-4, with exceptions as noted in the User Manual."
       :use ("CL")
       :reexport ("ADD-METHOD"
-                "ALLOCATE-INSTANCE"
-                "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
-                "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
-                "METHOD-QUALIFIERS" "REMOVE-METHOD"
-                "BUILT-IN-CLASS" "CLASS"
-                "FUNCTION" "GENERIC-FUNCTION"
-                "METHOD" "METHOD-COMBINATION"
-                "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION"
-                "STANDARD-METHOD" "STANDARD-OBJECT" "T")
+                 "ALLOCATE-INSTANCE"
+                 "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
+                 "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
+                 "METHOD-QUALIFIERS" "REMOVE-METHOD"
+                 "BUILT-IN-CLASS" "CLASS"
+                 "FUNCTION" "GENERIC-FUNCTION"
+                 "METHOD" "METHOD-COMBINATION"
+                 "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION"
+                 "STANDARD-METHOD" "STANDARD-OBJECT" "T")
       :export ("ADD-DEPENDENT"
-              "ADD-DIRECT-METHOD"
-              "ADD-DIRECT-SUBCLASS"
-              "CLASS-DEFAULT-INITARGS"
-              "CLASS-DIRECT-DEFAULT-INITARGS"
-              "CLASS-DIRECT-SLOTS"
-              "CLASS-DIRECT-SUBCLASSES"
-              "CLASS-DIRECT-SUPERCLASSES"
-              "CLASS-FINALIZED-P"
-              "CLASS-PRECEDENCE-LIST"
-              "CLASS-PROTOTYPE"
-              "CLASS-SLOTS"
-              "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
-              "COMPUTE-CLASS-PRECEDENCE-LIST"
-              "COMPUTE-DEFAULT-INITARGS"
-              "COMPUTE-DISCRIMINATING-FUNCTION"
-              "COMPUTE-EFFECTIVE-METHOD"
-              "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
-              "COMPUTE-SLOTS"
-              "DIRECT-SLOT-DEFINITION"
-              "DIRECT-SLOT-DEFINITION-CLASS"
-              "EFFECTIVE-SLOT-DEFINITION"
-              "EFFECTIVE-SLOT-DEFINITION-CLASS"
-              "ENSURE-CLASS"
-              "ENSURE-CLASS-USING-CLASS"
-              "ENSURE-GENERIC-FUNCTION-USING-CLASS"
-              "EQL-SPECIALIZER"
-              "EQL-SPECIALIZER-OBJECT"
-              "EXTRACT-LAMBDA-LIST"
-              "EXTRACT-SPECIALIZER-NAMES"
-              "FINALIZE-INHERITANCE"
-              "FIND-METHOD-COMBINATION"
-              "FORWARD-REFERENCED-CLASS"
-              "FUNCALLABLE-STANDARD-CLASS"
-              "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
-              "FUNCALLABLE-STANDARD-OBJECT"
-              "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
-              "GENERIC-FUNCTION-DECLARATIONS"
-              "GENERIC-FUNCTION-LAMBDA-LIST"
-              "GENERIC-FUNCTION-METHOD-CLASS"
-              "GENERIC-FUNCTION-METHOD-COMBINATION"
-              "GENERIC-FUNCTION-METHODS"
-              "GENERIC-FUNCTION-NAME"
-              "INTERN-EQL-SPECIALIZER"
-              "MAKE-METHOD-LAMBDA"
-              "MAP-DEPENDENTS"
-              ;; KLUDGE: See the User Manual
-              ;; "METAOBJECT"
-              "METHOD-FUNCTION"
-              "METHOD-GENERIC-FUNCTION"
-              "METHOD-LAMBDA-LIST"
-              "METHOD-SPECIALIZERS"
-              "ACCESSOR-METHOD-SLOT-DEFINITION"
-              "READER-METHOD-CLASS"
-              "REMOVE-DEPENDENT"
-              "REMOVE-DIRECT-METHOD"
-              "REMOVE-DIRECT-SUBCLASS"
-              "SET-FUNCALLABLE-INSTANCE-FUNCTION"
-              "SLOT-BOUNDP-USING-CLASS"
-              "SLOT-DEFINITION"
-              "SLOT-DEFINITION-ALLOCATION"
-              "SLOT-DEFINITION-INITARGS"
-              "SLOT-DEFINITION-INITFORM"
-              "SLOT-DEFINITION-INITFUNCTION"
-              "SLOT-DEFINITION-LOCATION"
-              "SLOT-DEFINITION-NAME"
-              "SLOT-DEFINITION-READERS"
-              "SLOT-DEFINITION-WRITERS"
-              "SLOT-DEFINITION-TYPE"
-              "SLOT-MAKUNBOUND-USING-CLASS"
-              "SLOT-VALUE-USING-CLASS"
-              "SPECIALIZER"
-              "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
-              "SPECIALIZER-DIRECT-METHODS"
-              "STANDARD-ACCESSOR-METHOD"
-              "STANDARD-DIRECT-SLOT-DEFINITION"
-              "STANDARD-EFFECTIVE-SLOT-DEFINITION"
-              "STANDARD-INSTANCE-ACCESS"
-              "STANDARD-READER-METHOD"
-              "STANDARD-SLOT-DEFINITION"
-              "STANDARD-WRITER-METHOD"
-              "UPDATE-DEPENDENT"
-              "VALIDATE-SUPERCLASS"
-              "WRITER-METHOD-CLASS"))
+               "ADD-DIRECT-METHOD"
+               "ADD-DIRECT-SUBCLASS"
+               "CLASS-DEFAULT-INITARGS"
+               "CLASS-DIRECT-DEFAULT-INITARGS"
+               "CLASS-DIRECT-SLOTS"
+               "CLASS-DIRECT-SUBCLASSES"
+               "CLASS-DIRECT-SUPERCLASSES"
+               "CLASS-FINALIZED-P"
+               "CLASS-PRECEDENCE-LIST"
+               "CLASS-PROTOTYPE"
+               "CLASS-SLOTS"
+               "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
+               "COMPUTE-CLASS-PRECEDENCE-LIST"
+               "COMPUTE-DEFAULT-INITARGS"
+               "COMPUTE-DISCRIMINATING-FUNCTION"
+               "COMPUTE-EFFECTIVE-METHOD"
+               "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
+               "COMPUTE-SLOTS"
+               "DIRECT-SLOT-DEFINITION"
+               "DIRECT-SLOT-DEFINITION-CLASS"
+               "EFFECTIVE-SLOT-DEFINITION"
+               "EFFECTIVE-SLOT-DEFINITION-CLASS"
+               "ENSURE-CLASS"
+               "ENSURE-CLASS-USING-CLASS"
+               "ENSURE-GENERIC-FUNCTION-USING-CLASS"
+               "EQL-SPECIALIZER"
+               "EQL-SPECIALIZER-OBJECT"
+               "EXTRACT-LAMBDA-LIST"
+               "EXTRACT-SPECIALIZER-NAMES"
+               "FINALIZE-INHERITANCE"
+               "FIND-METHOD-COMBINATION"
+               "FORWARD-REFERENCED-CLASS"
+               "FUNCALLABLE-STANDARD-CLASS"
+               "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
+               "FUNCALLABLE-STANDARD-OBJECT"
+               "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
+               "GENERIC-FUNCTION-DECLARATIONS"
+               "GENERIC-FUNCTION-LAMBDA-LIST"
+               "GENERIC-FUNCTION-METHOD-CLASS"
+               "GENERIC-FUNCTION-METHOD-COMBINATION"
+               "GENERIC-FUNCTION-METHODS"
+               "GENERIC-FUNCTION-NAME"
+               "INTERN-EQL-SPECIALIZER"
+               "MAKE-METHOD-LAMBDA"
+               "MAP-DEPENDENTS"
+               ;; KLUDGE: See the User Manual
+               ;; "METAOBJECT"
+               "METHOD-FUNCTION"
+               "METHOD-GENERIC-FUNCTION"
+               "METHOD-LAMBDA-LIST"
+               "METHOD-SPECIALIZERS"
+               "ACCESSOR-METHOD-SLOT-DEFINITION"
+               "READER-METHOD-CLASS"
+               "REMOVE-DEPENDENT"
+               "REMOVE-DIRECT-METHOD"
+               "REMOVE-DIRECT-SUBCLASS"
+               "SET-FUNCALLABLE-INSTANCE-FUNCTION"
+               "SLOT-BOUNDP-USING-CLASS"
+               "SLOT-DEFINITION"
+               "SLOT-DEFINITION-ALLOCATION"
+               "SLOT-DEFINITION-INITARGS"
+               "SLOT-DEFINITION-INITFORM"
+               "SLOT-DEFINITION-INITFUNCTION"
+               "SLOT-DEFINITION-LOCATION"
+               "SLOT-DEFINITION-NAME"
+               "SLOT-DEFINITION-READERS"
+               "SLOT-DEFINITION-WRITERS"
+               "SLOT-DEFINITION-TYPE"
+               "SLOT-MAKUNBOUND-USING-CLASS"
+               "SLOT-VALUE-USING-CLASS"
+               "SPECIALIZER"
+               "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
+               "SPECIALIZER-DIRECT-METHODS"
+               "STANDARD-ACCESSOR-METHOD"
+               "STANDARD-DIRECT-SLOT-DEFINITION"
+               "STANDARD-EFFECTIVE-SLOT-DEFINITION"
+               "STANDARD-INSTANCE-ACCESS"
+               "STANDARD-READER-METHOD"
+               "STANDARD-SLOT-DEFINITION"
+               "STANDARD-WRITER-METHOD"
+               "UPDATE-DEPENDENT"
+               "VALIDATE-SUPERCLASS"
+               "WRITER-METHOD-CLASS"))
 
    #s(sb-cold:package-data
       :name "SB!PCL"
@@ -1723,103 +1723,103 @@ package is deprecated in favour of SB-MOP."
       ;; away, as they're superseded by the use of SB-MOP as the
       ;; publically-accessible package.
       :reexport ( ;; CL symbols
-                "ADD-METHOD"
-                "ALLOCATE-INSTANCE"
-                "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
-                "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
-                "METHOD-QUALIFIERS" "REMOVE-METHOD"
-                ;; MOP symbols
-                "ADD-DEPENDENT"
-                "ADD-DIRECT-METHOD"
-                "ADD-DIRECT-SUBCLASS"
-                "CLASS-DEFAULT-INITARGS"
-                "CLASS-DIRECT-DEFAULT-INITARGS"
-                "CLASS-DIRECT-SLOTS"
-                "CLASS-DIRECT-SUBCLASSES"
-                "CLASS-DIRECT-SUPERCLASSES"
-                "CLASS-FINALIZED-P"
-                "CLASS-PRECEDENCE-LIST"
-                "CLASS-PROTOTYPE"
-                "CLASS-SLOTS"
-                "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
-                "COMPUTE-CLASS-PRECEDENCE-LIST"
-                "COMPUTE-DEFAULT-INITARGS"
-                "COMPUTE-DISCRIMINATING-FUNCTION"
-                "COMPUTE-EFFECTIVE-METHOD"
-                "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
-                "COMPUTE-SLOTS"
-                "DIRECT-SLOT-DEFINITION"
-                "DIRECT-SLOT-DEFINITION-CLASS"
-                "EFFECTIVE-SLOT-DEFINITION"
-                "EFFECTIVE-SLOT-DEFINITION-CLASS"
-                "ENSURE-CLASS"
-                "ENSURE-CLASS-USING-CLASS"
-                "ENSURE-GENERIC-FUNCTION-USING-CLASS"
-                "EQL-SPECIALIZER"
-                "EQL-SPECIALIZER-OBJECT"
-                "EXTRACT-LAMBDA-LIST"
-                "EXTRACT-SPECIALIZER-NAMES"
-                "FINALIZE-INHERITANCE"
-                "FIND-METHOD-COMBINATION"
-                "FORWARD-REFERENCED-CLASS"
-                "FUNCALLABLE-STANDARD-CLASS"
-                "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
-                "FUNCALLABLE-STANDARD-OBJECT"
-                "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
-                "GENERIC-FUNCTION-DECLARATIONS"
-                "GENERIC-FUNCTION-LAMBDA-LIST"
-                "GENERIC-FUNCTION-METHOD-CLASS"
-                "GENERIC-FUNCTION-METHOD-COMBINATION"
-                "GENERIC-FUNCTION-METHODS"
-                "GENERIC-FUNCTION-NAME"
-                "INTERN-EQL-SPECIALIZER"
-                "MAKE-METHOD-LAMBDA"
-                "MAP-DEPENDENTS"
-                "METHOD-FUNCTION"
-                "METHOD-GENERIC-FUNCTION"
-                "METHOD-LAMBDA-LIST"
-                "METHOD-SPECIALIZERS"
-                "ACCESSOR-METHOD-SLOT-DEFINITION"
-                "READER-METHOD-CLASS"
-                "REMOVE-DEPENDENT"
-                "REMOVE-DIRECT-METHOD"
-                "REMOVE-DIRECT-SUBCLASS"
-                "SET-FUNCALLABLE-INSTANCE-FUNCTION"
-                "SLOT-BOUNDP-USING-CLASS"
-                "SLOT-DEFINITION"
-                "SLOT-DEFINITION-ALLOCATION"
-                "SLOT-DEFINITION-INITARGS"
-                "SLOT-DEFINITION-INITFORM"
-                "SLOT-DEFINITION-INITFUNCTION"
-                "SLOT-DEFINITION-LOCATION"
-                "SLOT-DEFINITION-NAME"
-                "SLOT-DEFINITION-READERS"
-                "SLOT-DEFINITION-WRITERS"
-                "SLOT-DEFINITION-TYPE"
-                "SLOT-MAKUNBOUND-USING-CLASS"
-                "SLOT-VALUE-USING-CLASS"
-                "SPECIALIZER"
-                "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
-                "SPECIALIZER-DIRECT-METHODS"
-                "STANDARD-ACCESSOR-METHOD"
-                "STANDARD-DIRECT-SLOT-DEFINITION"
-                "STANDARD-EFFECTIVE-SLOT-DEFINITION"
-                "STANDARD-INSTANCE-ACCESS"
-                "STANDARD-READER-METHOD"
-                "STANDARD-SLOT-DEFINITION"
-                "STANDARD-WRITER-METHOD"
-                "UPDATE-DEPENDENT"
-                "VALIDATE-SUPERCLASS"
-                "WRITER-METHOD-CLASS"))
+                 "ADD-METHOD"
+                 "ALLOCATE-INSTANCE"
+                 "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS"
+                 "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE"
+                 "METHOD-QUALIFIERS" "REMOVE-METHOD"
+                 ;; MOP symbols
+                 "ADD-DEPENDENT"
+                 "ADD-DIRECT-METHOD"
+                 "ADD-DIRECT-SUBCLASS"
+                 "CLASS-DEFAULT-INITARGS"
+                 "CLASS-DIRECT-DEFAULT-INITARGS"
+                 "CLASS-DIRECT-SLOTS"
+                 "CLASS-DIRECT-SUBCLASSES"
+                 "CLASS-DIRECT-SUPERCLASSES"
+                 "CLASS-FINALIZED-P"
+                 "CLASS-PRECEDENCE-LIST"
+                 "CLASS-PROTOTYPE"
+                 "CLASS-SLOTS"
+                 "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
+                 "COMPUTE-CLASS-PRECEDENCE-LIST"
+                 "COMPUTE-DEFAULT-INITARGS"
+                 "COMPUTE-DISCRIMINATING-FUNCTION"
+                 "COMPUTE-EFFECTIVE-METHOD"
+                 "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
+                 "COMPUTE-SLOTS"
+                 "DIRECT-SLOT-DEFINITION"
+                 "DIRECT-SLOT-DEFINITION-CLASS"
+                 "EFFECTIVE-SLOT-DEFINITION"
+                 "EFFECTIVE-SLOT-DEFINITION-CLASS"
+                 "ENSURE-CLASS"
+                 "ENSURE-CLASS-USING-CLASS"
+                 "ENSURE-GENERIC-FUNCTION-USING-CLASS"
+                 "EQL-SPECIALIZER"
+                 "EQL-SPECIALIZER-OBJECT"
+                 "EXTRACT-LAMBDA-LIST"
+                 "EXTRACT-SPECIALIZER-NAMES"
+                 "FINALIZE-INHERITANCE"
+                 "FIND-METHOD-COMBINATION"
+                 "FORWARD-REFERENCED-CLASS"
+                 "FUNCALLABLE-STANDARD-CLASS"
+                 "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
+                 "FUNCALLABLE-STANDARD-OBJECT"
+                 "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
+                 "GENERIC-FUNCTION-DECLARATIONS"
+                 "GENERIC-FUNCTION-LAMBDA-LIST"
+                 "GENERIC-FUNCTION-METHOD-CLASS"
+                 "GENERIC-FUNCTION-METHOD-COMBINATION"
+                 "GENERIC-FUNCTION-METHODS"
+                 "GENERIC-FUNCTION-NAME"
+                 "INTERN-EQL-SPECIALIZER"
+                 "MAKE-METHOD-LAMBDA"
+                 "MAP-DEPENDENTS"
+                 "METHOD-FUNCTION"
+                 "METHOD-GENERIC-FUNCTION"
+                 "METHOD-LAMBDA-LIST"
+                 "METHOD-SPECIALIZERS"
+                 "ACCESSOR-METHOD-SLOT-DEFINITION"
+                 "READER-METHOD-CLASS"
+                 "REMOVE-DEPENDENT"
+                 "REMOVE-DIRECT-METHOD"
+                 "REMOVE-DIRECT-SUBCLASS"
+                 "SET-FUNCALLABLE-INSTANCE-FUNCTION"
+                 "SLOT-BOUNDP-USING-CLASS"
+                 "SLOT-DEFINITION"
+                 "SLOT-DEFINITION-ALLOCATION"
+                 "SLOT-DEFINITION-INITARGS"
+                 "SLOT-DEFINITION-INITFORM"
+                 "SLOT-DEFINITION-INITFUNCTION"
+                 "SLOT-DEFINITION-LOCATION"
+                 "SLOT-DEFINITION-NAME"
+                 "SLOT-DEFINITION-READERS"
+                 "SLOT-DEFINITION-WRITERS"
+                 "SLOT-DEFINITION-TYPE"
+                 "SLOT-MAKUNBOUND-USING-CLASS"
+                 "SLOT-VALUE-USING-CLASS"
+                 "SPECIALIZER"
+                 "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
+                 "SPECIALIZER-DIRECT-METHODS"
+                 "STANDARD-ACCESSOR-METHOD"
+                 "STANDARD-DIRECT-SLOT-DEFINITION"
+                 "STANDARD-EFFECTIVE-SLOT-DEFINITION"
+                 "STANDARD-INSTANCE-ACCESS"
+                 "STANDARD-READER-METHOD"
+                 "STANDARD-SLOT-DEFINITION"
+                 "STANDARD-WRITER-METHOD"
+                 "UPDATE-DEPENDENT"
+                 "VALIDATE-SUPERCLASS"
+                 "WRITER-METHOD-CLASS"))
 
    #s(sb-cold:package-data
       :name "SB!PRETTY"
       :doc "private: implementation of pretty-printing"
       :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")
       :export ("OUTPUT-PRETTY-OBJECT"
-              "PRETTY-STREAM" "PRETTY-STREAM-P"
-              "PPRINT-DISPATCH-TABLE"
-              "!PPRINT-COLD-INIT"))
+               "PRETTY-STREAM" "PRETTY-STREAM-P"
+               "PPRINT-DISPATCH-TABLE"
+               "!PPRINT-COLD-INIT"))
 
    #s(sb-cold:package-data
       :name "SB!PROFILE"
@@ -1839,80 +1839,80 @@ Some anomalies (e.g. FIND-IF-IN-CLOSURE being in SB-SYS instead of
 SB-KERNEL) have been undone, but probably more remain."
       :use ("CL" "SB!EXT" "SB!INT")
       :export ("%ASSEMBLER-CODE-TYPE"
-              "%BIND-ALIGNED-SAP"
-              ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
-              ;; is for OS-dependent stuff. %PRIMITIVE should probably be in
-              ;; SB!KERNEL.)
-              "%PRIMITIVE"
-              "%STANDARD-CHAR-P"
+               "%BIND-ALIGNED-SAP"
+               ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS
+               ;; is for OS-dependent stuff. %PRIMITIVE should probably be in
+               ;; SB!KERNEL.)
+               "%PRIMITIVE"
+               "%STANDARD-CHAR-P"
                "*FOREIGN-LOCK*"
                "*LINKAGE-INFO*"
-              "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
+               "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
                "*RUNTIME-DLHANDLE*"
                "*SHARED-OBJECTS*"
                "*STATIC-FOREIGN-SYMBOLS*"
-              "*STDERR*" "*STDIN*"
-              "*STDOUT*" "*TASK-DATA*"
-              "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
-              "ADD-FD-HANDLER"
-              "ALLOCATE-SYSTEM-MEMORY"
-              "BEEP" "BITS" 
-              "BYTES" "C-PROCEDURE"
+               "*STDERR*" "*STDIN*"
+               "*STDOUT*" "*TASK-DATA*"
+               "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
+               "ADD-FD-HANDLER"
+               "ALLOCATE-SYSTEM-MEMORY"
+               "BEEP" "BITS"
+               "BYTES" "C-PROCEDURE"
                "CLOSE-SHARED-OBJECTS"
-              "COMPILER-VERSION"
-              "DEALLOCATE-SYSTEM-MEMORY"
-              "DEFAULT-INTERRUPT"
-              "DEPORT-BOOLEAN" "DEPORT-INTEGER"
+               "COMPILER-VERSION"
+               "DEALLOCATE-SYSTEM-MEMORY"
+               "DEFAULT-INTERRUPT"
+               "DEPORT-BOOLEAN" "DEPORT-INTEGER"
                "DYNAMIC-FOREIGN-SYMBOLS-P"
                "DLOPEN-OR-LOSE"
-              "FROB-DO-BODY"
-              "ENABLE-INTERRUPT" 
-              "ENUMERATION"
-              "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
-              "EXTERN-ALIEN-NAME"
-              "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" 
-              "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
-              "FIND-FOREIGN-SYMBOL-ADDRESS"
+               "FROB-DO-BODY"
+               "ENABLE-INTERRUPT"
+               "ENUMERATION"
+               "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
+               "EXTERN-ALIEN-NAME"
+               "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P"
+               "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS"
+               "FIND-FOREIGN-SYMBOL-ADDRESS"
                "FIND-FOREIGN-SYMBOL-IN-TABLE"
-              "FOREIGN-SYMBOL-SAP" 
+               "FOREIGN-SYMBOL-SAP"
                "FOREIGN-SYMBOL-ADDRESS"
                "FOREIGN-SYMBOL-DATAREF-SAP"
-              "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
-              "IGNORE-INTERRUPT"
-              "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
-              "LIST-DYNAMIC-FOREIGN-SYMBOLS"
-              "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
-              "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
-              "OBJECT-SET-OPERATION"
-              "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
-              "POINTER" "POINTER<" "POINTER>"
-              "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
-              "REMOVE-FD-HANDLER"
+               "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
+               "IGNORE-INTERRUPT"
+               "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
+               "LIST-DYNAMIC-FOREIGN-SYMBOLS"
+               "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE"
+               "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER"
+               "OBJECT-SET-OPERATION"
+               "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES"
+               "POINTER" "POINTER<" "POINTER>"
+               "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
+               "REMOVE-FD-HANDLER"
                "REOPEN-SHARED-OBJECTS"
-              "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
-              "SAP+" "SAP-" 
-              "SAP-FOREIGN-SYMBOL"
-              "SAP-INT"
-              "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
-              "SAP-REF-8"
-              "SAP-REF-DESCRIPTOR"
-              "SAP-REF-DOUBLE" "SAP-REF-LONG"
-              "SAP-REF-SAP" "SAP-REF-SINGLE"
-              "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
-              "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
-              "SERVE-EVENT" "SERVER" "SERVER-MESSAGE"
-              "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
-              "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-WORD" "SIGNED-SAP-REF-8"
-              ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
-              "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
-              "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" 
-              "UNDEFINED-FOREIGN-SYMBOLS-P"
+               "RESOLVE-LOADED-ASSEMBLER-REFERENCES"
+               "SAP+" "SAP-"
+               "SAP-FOREIGN-SYMBOL"
+               "SAP-INT"
+               "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD"
+               "SAP-REF-8"
+               "SAP-REF-DESCRIPTOR"
+               "SAP-REF-DOUBLE" "SAP-REF-LONG"
+               "SAP-REF-SAP" "SAP-REF-SINGLE"
+               "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
+               "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
+               "SERVE-EVENT" "SERVER" "SERVER-MESSAGE"
+               "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
+               "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-WORD" "SIGNED-SAP-REF-8"
+               ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL.
+               "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM"
+               "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P"
+               "UNDEFINED-FOREIGN-SYMBOLS-P"
                "UPDATE-LINKAGE-TABLE" "VECTOR-SAP"
-              "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
-              "WITH-FD-HANDLER"
-              "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
-              "WITHOUT-INTERRUPTS" "WORDS"
-              "ALLOCATE-SYSTEM-MEMORY-AT"))
+               "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS"
+               "WITH-FD-HANDLER"
+               "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING"
+               "WITHOUT-INTERRUPTS" "WORDS"
+               "ALLOCATE-SYSTEM-MEMORY-AT"))
 
    #s(sb-cold:package-data
       :name "SB!UNIX"
@@ -1926,125 +1926,125 @@ This package only tries to implement what happens to be
 needed by the current implementation of SBCL, and makes
 no guarantees of interface stability."
       :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS")
-      :export (        ;; wrappers around Unix stuff to give just what Lisp needs
+      :export ( ;; wrappers around Unix stuff to give just what Lisp needs
                "NANOSLEEP"
-              "UID-USERNAME"
-              "UID-HOMEDIR"
+               "UID-USERNAME"
+               "UID-HOMEDIR"
                "WITH-RESTARTED-SYSCALL"
 
-              ;; stuff with a one-to-one mapping to Unix constructs
-              "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
-              "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" "F-GETFD" "F-GETFL"
-              "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC"
-              "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T"
-              "INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER"
-              "KBDCGET" "KBDCRESET"
-              "KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET"
-              "L_INCR" "L_SET" "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL"
-              "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "POSIX-GETCWD"
-              "POSIX-GETCWD/" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
-              "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
-              "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
-              "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
-              "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
-              "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
-              "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
-              "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
-              "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
-              "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
-              "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
-              "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "TERMINAL-SPEEDS" "TIME-T"
-              "TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
-              "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
-              "TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
-              "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE" "UNIX-DUP"
-              "UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT" "UNIX-GETHOSTNAME"
-              "UNIX-GETPID" "UNIX-GETRUSAGE" "UNIX-GETTIMEOFDAY" "UNIX-GETUID"
-              "UNIX-GID" "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT"
-              "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" "UNIX-PIPE"
-              "UNIX-READ" "UNIX-READLINK" "UNIX-RENAME" "UNIX-SELECT"
-              "UNIX-STAT" "UNIX-UID" "UNIX-UNLINK" "UNIX-WRITE" "WINSIZE"
-              "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
-              "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK"
-
-              ;; signals
-              "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE"
-              "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL"
-              "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS"
-              "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG"
-              "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH"
-              "SIGXCPU" "SIGXFSZ"
-
-              ;; errors
-              "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT"
-              "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED"
-              "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM"
-              "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN"
-              "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO"
-              "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK"
-              "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET"
-              "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT"
-              "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK"
-              "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO"
-              "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM"
-              "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE"
-              "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE"
-              "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY"
-              "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV"
-
-              "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT"
-              "UNIX-FILE-KIND" "UNIX-KILL" "CODESET"
-              "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
-              "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
-              "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG"
-              "TIOCSIGSEND"
-              "C-IFLAG" "C-LFLAG" "C-OFLAG"
-              "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
-              "O_NDELAY" "O_NOCTTY"
-              "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
-              "TCIOFLUSH" "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
-              "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
-              "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
-              "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
-              "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
-              "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
-              "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
-              "TTY-ECHOPRT" "TTY-ECHOKE"  "TTY-DEFECHO" "TTY-FLUSHO"
-              "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
-              "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
-              "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
-              "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
-              "VSUSP" "VSTART" "VSTOP" "VDSUSP"
-              #!+(or svr4 bsd linux) "O_NDELAY"
-              #!+(or svr4 linux)
-              ("EADDRINUSE"
-               "EADDRNOTAVAIL" "EADV"
-               "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD"
-               "EBADMSG" "EBADR" "EBADRQC"
-               "EBADSLT" "EBFONT" #!+svr4 "ECANCELED"
-               "ECHRNG" "ECOMM" "ECONNABORTED"
-               "ECONNREFUSED" "ECONNRESET" "EDEADLK"
-               "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT"
-               #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH"
-               "EIDRM" "EILSEQ" "EINPROGRESS"
-               "EISCONN" #!+linux "EISNAM" "EL2HLT"
-               "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC"
-               "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
-               "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP"
-               "ENAMETOOLONG" #!+linux "ENAVAIL"
-               "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
-               "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK"
-               "ENOLINK" "ENOMSG" "ENONET" "ENOPKG"
-               "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS"
-               "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM"
-               "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ"
-               "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT"
-               "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE"
-               "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO"
-               "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
-               "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME"
-               "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN"
-               "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL")))
+               ;; stuff with a one-to-one mapping to Unix constructs
+               "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT"
+               "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" "F-GETFD" "F-GETFL"
+               "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC"
+               "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T"
+               "INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER"
+               "KBDCGET" "KBDCRESET"
+               "KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET"
+               "L_INCR" "L_SET" "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL"
+               "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "POSIX-GETCWD"
+               "POSIX-GETCWD/" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
+               "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
+               "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
+               "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
+               "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
+               "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
+               "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
+               "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
+               "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
+               "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS"
+               "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK"
+               "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "TERMINAL-SPEEDS" "TIME-T"
+               "TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC"
+               "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP"
+               "TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC"
+               "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE" "UNIX-DUP"
+               "UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT" "UNIX-GETHOSTNAME"
+               "UNIX-GETPID" "UNIX-GETRUSAGE" "UNIX-GETTIMEOFDAY" "UNIX-GETUID"
+               "UNIX-GID" "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT"
+               "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" "UNIX-PIPE"
+               "UNIX-READ" "UNIX-READLINK" "UNIX-RENAME" "UNIX-SELECT"
+               "UNIX-STAT" "UNIX-UID" "UNIX-UNLINK" "UNIX-WRITE" "WINSIZE"
+               "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
+               "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK"
+
+               ;; signals
+               "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE"
+               "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL"
+               "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS"
+               "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG"
+               "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH"
+               "SIGXCPU" "SIGXFSZ"
+
+               ;; errors
+               "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT"
+               "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED"
+               "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM"
+               "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN"
+               "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO"
+               "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK"
+               "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET"
+               "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT"
+               "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK"
+               "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO"
+               "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM"
+               "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE"
+               "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE"
+               "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY"
+               "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV"
+
+               "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT"
+               "UNIX-FILE-KIND" "UNIX-KILL" "CODESET"
+               "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS"
+               "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE"
+               "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG"
+               "TIOCSIGSEND"
+               "C-IFLAG" "C-LFLAG" "C-OFLAG"
+               "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS"
+               "O_NDELAY" "O_NOCTTY"
+               "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
+               "TCIOFLUSH" "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
+               "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
+               "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
+               "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
+               "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
+               "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
+               "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
+               "TTY-ECHOPRT" "TTY-ECHOKE"  "TTY-DEFECHO" "TTY-FLUSHO"
+               "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
+               "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
+               "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
+               "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
+               "VSUSP" "VSTART" "VSTOP" "VDSUSP"
+               #!+(or svr4 bsd linux) "O_NDELAY"
+               #!+(or svr4 linux)
+               ("EADDRINUSE"
+                "EADDRNOTAVAIL" "EADV"
+                "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD"
+                "EBADMSG" "EBADR" "EBADRQC"
+                "EBADSLT" "EBFONT" #!+svr4 "ECANCELED"
+                "ECHRNG" "ECOMM" "ECONNABORTED"
+                "ECONNREFUSED" "ECONNRESET" "EDEADLK"
+                "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT"
+                #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH"
+                "EIDRM" "EILSEQ" "EINPROGRESS"
+                "EISCONN" #!+linux "EISNAM" "EL2HLT"
+                "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC"
+                "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
+                "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP"
+                "ENAMETOOLONG" #!+linux "ENAVAIL"
+                "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
+                "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK"
+                "ENOLINK" "ENOMSG" "ENONET" "ENOPKG"
+                "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS"
+                "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM"
+                "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ"
+                "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT"
+                "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE"
+                "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO"
+                "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
+                "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME"
+                "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN"
+                "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL")))
 
    #s(sb-cold:package-data
       :name "SB!VM"
@@ -2052,251 +2052,251 @@ no guarantees of interface stability."
       "internal: the default place to hide information about the hardware and data
 structure representations"
       :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C"
-                "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
+                 "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
       :export ("*ASSEMBLY-UNIT-LENGTH*"
-              "*PRIMITIVE-OBJECTS*"
-              "AFTER-BREAKPOINT-TRAP"
-              "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
-              "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
-              "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
-              "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG"
-              "CHARACTER-REG-SC-NUMBER"
-              "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG"
-              "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE"
-              "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP"
-              "N-BYTE-BITS" "BYTE-REG-SC-NUMBER"
-              "CATCH-BLOCK-CURRENT-CODE-SLOT"
-              "CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
-              "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
-              "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
-              "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
-              "CLOSURE-FUN-SLOT"
-              "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
-              "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
-              "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT"
-              "CODE-HEADER-WIDETAG"
-              "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-WIDETAG"
-              "COMPLEX-BIT-VECTOR-WIDETAG" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT"
-              "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT"
-              "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG"
-              "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
-              "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
-              #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT"
-              #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT"
-              #!+long-float "COMPLEX-LONG-FLOAT-SIZE"
-              #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
-              #!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
-              #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
-              "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
-              "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
-              "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
-              "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
-              #!+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG"
+               "*PRIMITIVE-OBJECTS*"
+               "AFTER-BREAKPOINT-TRAP"
+               "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
+               "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT"
+               "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT"
+               "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG"
+               "CHARACTER-REG-SC-NUMBER"
+               "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG"
+               "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE"
+               "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP"
+               "N-BYTE-BITS" "BYTE-REG-SC-NUMBER"
+               "CATCH-BLOCK-CURRENT-CODE-SLOT"
+               "CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
+               "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
+               "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
+               "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
+               "CLOSURE-FUN-SLOT"
+               "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
+               "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET"
+               "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT"
+               "CODE-HEADER-WIDETAG"
+               "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-WIDETAG"
+               "COMPLEX-BIT-VECTOR-WIDETAG" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT"
+               "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT"
+               "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG"
+               "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER"
+               "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT"
+               #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT"
+               #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT"
+               #!+long-float "COMPLEX-LONG-FLOAT-SIZE"
+               #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG"
+               #!+long-float "COMPLEX-LONG-REG-SC-NUMBER"
+               #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER"
+               "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT"
+               "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG"
+               "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER"
+               "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG"
+               #!+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG"
                "COMPLEX-WIDETAG"
-              "COMPLEX-VECTOR-NIL-WIDETAG"
-              "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT"
-              "CONS-SIZE" "CONSTANT-SC-NUMBER"
-              "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
-              "CONTEXT-PC" "CONTEXT-REGISTER"
-              "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
-              "*CURRENT-CATCH-BLOCK*"
-              "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
-              "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
-              "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
-              "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
-              "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
-              "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
-              "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
-              "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
-              "DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT"
-              "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
-              "DOUBLE-STACK-SC-NUMBER"
-              "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
-              "EXPORTED-STATIC-SYMBOLS"
-              "FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
-              "FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
-              "FIXNUM-TAG-MASK"
-              "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
-              "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
-              "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
-              "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
-              "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
-              "FORWARDING-POINTER-TYPE"
-              "FP-CONSTANT-SC-NUMBER"
-              "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
-              "FUNCALLABLE-INSTANCE-FUN-SLOT"
-              "FUNCALLABLE-INSTANCE-HEADER-WIDETAG"
-              "FUNCALLABLE-INSTANCE-INFO-OFFSET"
-              "SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
-              "FUN-END-BREAKPOINT-TRAP"
-              "SIMPLE-FUN-HEADER-CODE-OFFSET"
-              "SIMPLE-FUN-HEADER-NEXT-SLOT"
-              "SIMPLE-FUN-HEADER-SELF-SLOT"
-              "SIMPLE-FUN-HEADER-WIDETAG"
-              "SIMPLE-FUN-HEADER-TYPE-SLOT"
-              "SIMPLE-FUN-NAME-SLOT"
-              "SIMPLE-FUN-NEXT-SLOT"
-              "FUN-POINTER-LOWTAG"
-              "SIMPLE-FUN-SELF-SLOT"
-              "SIMPLE-FUN-TYPE-SLOT"
-              "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
-              "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
-              "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
-              "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
-              "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*"
-              "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
-              "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
-              "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
-              "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
-              ;; FIXME: Possibly these other parameters (see
-              ;; compiler/{x86,sparc}/parms.lisp) should be defined
-              ;; conditionally on #!+LONG-FLOAT)
-              "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
-              "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
-              "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
-              #!+long-float "LONG-FLOAT-SIZE"
-              "LONG-FLOAT-TRAPPING-NAN-BIT"
-              #!+long-float "LONG-FLOAT-WIDETAG"
-              #!+long-float "LONG-FLOAT-VALUE-SLOT"
-              #!+long-float "LONG-REG-SC-NUMBER"
-              #!+long-float "LONG-STACK-SC-NUMBER"
-              "LOWTAG-LIMIT" "LOWTAG-MASK"
-              "LRA-SAVE-OFFSET"
-              "MEMORY-USAGE" "MOST-POSITIVE-COST"
-              "N-LOWTAG-BITS" 
-              "N-FIXNUM-TAG-BITS"
-              "N-POSITIVE-FIXNUM-BITS"
-              "NEGATIVE-IMMEDIATE-SC-NUMBER"
-              "NFP-SAVE-OFFSET"
-              "NON-DESCRIPTOR-REG-SC-NUMBER"
-              "NULL-SC-NUMBER"
-              "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP"
-              "OCFP-SAVE-OFFSET"
-              "ODD-FIXNUM-LOWTAG"
-              "OFFSET-STATIC-SYMBOL"
-              "OTHER-IMMEDIATE-0-LOWTAG"
-              "OTHER-IMMEDIATE-1-LOWTAG"
-              ;; FIXME: 32/64-bit issues
-              "OTHER-IMMEDIATE-2-LOWTAG"
-              "OTHER-IMMEDIATE-3-LOWTAG"
-              "OTHER-POINTER-LOWTAG"
-              "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
-              "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-WIDETAG"
-              "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
-              "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
-              "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
-              "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS"
-              "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
-              "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
-              "*READ-ONLY-SPACE-FREE-POINTER*"
-              "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-WIDETAG"
-              "RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
-              "SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
-              "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
-              "SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
-              "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
-              "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
-              "SANCTIFY-FOR-EXECUTION"
-              "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
-              "SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
-              "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
-              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
-              #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
-              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
-              "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
-              #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
-              "SIMPLE-ARRAY-NIL-WIDETAG"
-              "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
-              "SIMPLE-ARRAY-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-29-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-60-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-63-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-64-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG"
-              "SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-SIGNED-BYTE-30-WIDETAG"
-              "SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-SIGNED-BYTE-61-WIDETAG"
-              "SIMPLE-ARRAY-SIGNED-BYTE-64-WIDETAG"
-              "SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG"
-              "SIMPLE-BIT-VECTOR-WIDETAG"
-              "SIMPLE-BASE-STRING-WIDETAG"
-              #!+sb-unicode "SIMPLE-CHARACTER-STRING-WIDETAG"
-              "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS"
-              "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
-              "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
-              "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE"
-              "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT"
-              "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT"
-              "SINGLE-INT-CARG-REG-SC-NUMBER"
-              "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
-              "SINGLE-STEP-BREAKPOINT-TRAP"
-              "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
-              "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
-              "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
-              "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
-              "*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
-              "STRUCTURE-USAGE"
-              "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
-              "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
-              "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
-              "*BINDING-STACK-START*"
-              "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
-              "CONTROL-STACK-POINTER-VALID-P"
-              "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
-              #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
-              #!-gencgc "DYNAMIC-0-SPACE-START" 
-              #!-gencgc "DYNAMIC-0-SPACE-END" 
-              #!-gencgc "DYNAMIC-1-SPACE-START" 
-              #!-gencgc "DYNAMIC-1-SPACE-END" 
-              "READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
-              "TARGET-BYTE-ORDER" "TARGET-HEAP-ADDRESS-SPACE"
-              "STATIC-SPACE-START" "STATIC-SPACE-END"
+               "COMPLEX-VECTOR-NIL-WIDETAG"
+               "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT"
+               "CONS-SIZE" "CONSTANT-SC-NUMBER"
+               "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER"
+               "CONTEXT-PC" "CONTEXT-REGISTER"
+               "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
+               "*CURRENT-CATCH-BLOCK*"
+               "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
+               "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
+               "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
+               "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
+               "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
+               "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
+               "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
+               "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
+               "DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT"
+               "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
+               "DOUBLE-STACK-SC-NUMBER"
+               "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
+               "EXPORTED-STATIC-SYMBOLS"
+               "FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
+               "FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
+               "FIXNUM-TAG-MASK"
+               "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
+               "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
+               "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
+               "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
+               "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
+               "FORWARDING-POINTER-TYPE"
+               "FP-CONSTANT-SC-NUMBER"
+               "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
+               "FUNCALLABLE-INSTANCE-FUN-SLOT"
+               "FUNCALLABLE-INSTANCE-HEADER-WIDETAG"
+               "FUNCALLABLE-INSTANCE-INFO-OFFSET"
+               "SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
+               "FUN-END-BREAKPOINT-TRAP"
+               "SIMPLE-FUN-HEADER-CODE-OFFSET"
+               "SIMPLE-FUN-HEADER-NEXT-SLOT"
+               "SIMPLE-FUN-HEADER-SELF-SLOT"
+               "SIMPLE-FUN-HEADER-WIDETAG"
+               "SIMPLE-FUN-HEADER-TYPE-SLOT"
+               "SIMPLE-FUN-NAME-SLOT"
+               "SIMPLE-FUN-NEXT-SLOT"
+               "FUN-POINTER-LOWTAG"
+               "SIMPLE-FUN-SELF-SLOT"
+               "SIMPLE-FUN-TYPE-SLOT"
+               "FUNCALLABLE-INSTANCE-LAYOUT-SLOT"
+               "FUNCALLABLE-INSTANCE-LEXENV-SLOT"
+               "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER"
+               "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER"
+               "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*"
+               "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG"
+               "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE"
+               "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS"
+               "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG"
+               ;; FIXME: Possibly these other parameters (see
+               ;; compiler/{x86,sparc}/parms.lisp) should be defined
+               ;; conditionally on #!+LONG-FLOAT)
+               "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE"
+               "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX"
+               "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE"
+               #!+long-float "LONG-FLOAT-SIZE"
+               "LONG-FLOAT-TRAPPING-NAN-BIT"
+               #!+long-float "LONG-FLOAT-WIDETAG"
+               #!+long-float "LONG-FLOAT-VALUE-SLOT"
+               #!+long-float "LONG-REG-SC-NUMBER"
+               #!+long-float "LONG-STACK-SC-NUMBER"
+               "LOWTAG-LIMIT" "LOWTAG-MASK"
+               "LRA-SAVE-OFFSET"
+               "MEMORY-USAGE" "MOST-POSITIVE-COST"
+               "N-LOWTAG-BITS"
+               "N-FIXNUM-TAG-BITS"
+               "N-POSITIVE-FIXNUM-BITS"
+               "NEGATIVE-IMMEDIATE-SC-NUMBER"
+               "NFP-SAVE-OFFSET"
+               "NON-DESCRIPTOR-REG-SC-NUMBER"
+               "NULL-SC-NUMBER"
+               "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP"
+               "OCFP-SAVE-OFFSET"
+               "ODD-FIXNUM-LOWTAG"
+               "OFFSET-STATIC-SYMBOL"
+               "OTHER-IMMEDIATE-0-LOWTAG"
+               "OTHER-IMMEDIATE-1-LOWTAG"
+               ;; FIXME: 32/64-bit issues
+               "OTHER-IMMEDIATE-2-LOWTAG"
+               "OTHER-IMMEDIATE-3-LOWTAG"
+               "OTHER-POINTER-LOWTAG"
+               "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP"
+               "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-WIDETAG"
+               "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
+               "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
+               "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
+               "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS"
+               "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
+               "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
+               "*READ-ONLY-SPACE-FREE-POINTER*"
+               "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-WIDETAG"
+               "RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
+               "SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
+               "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
+               "SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER"
+               "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE"
+               "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*"
+               "SANCTIFY-FOR-EXECUTION"
+               "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE"
+               "SAP-STACK-SC-NUMBER" "SAP-WIDETAG"
+               "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER"
+               "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG"
+               #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG"
+               "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG"
+               "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG"
+               #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG"
+               "SIMPLE-ARRAY-NIL-WIDETAG"
+               "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG"
+               "SIMPLE-ARRAY-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-29-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-60-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-63-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-64-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG"
+               "SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-SIGNED-BYTE-30-WIDETAG"
+               "SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-SIGNED-BYTE-61-WIDETAG"
+               "SIMPLE-ARRAY-SIGNED-BYTE-64-WIDETAG"
+               "SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG"
+               "SIMPLE-BIT-VECTOR-WIDETAG"
+               "SIMPLE-BASE-STRING-WIDETAG"
+               #!+sb-unicode "SIMPLE-CHARACTER-STRING-WIDETAG"
+               "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS"
+               "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE"
+               "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX"
+               "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE"
+               "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT"
+               "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT"
+               "SINGLE-INT-CARG-REG-SC-NUMBER"
+               "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER"
+               "SINGLE-STEP-BREAKPOINT-TRAP"
+               "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
+               "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
+               "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
+               "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
+               "*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
+               "STRUCTURE-USAGE"
+               "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
+               "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
+               "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
+               "*BINDING-STACK-START*"
+               "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
+               "CONTROL-STACK-POINTER-VALID-P"
+               "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
+               #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
+               #!-gencgc "DYNAMIC-0-SPACE-START"
+               #!-gencgc "DYNAMIC-0-SPACE-END"
+               #!-gencgc "DYNAMIC-1-SPACE-START"
+               #!-gencgc "DYNAMIC-1-SPACE-END"
+               "READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
+               "TARGET-BYTE-ORDER" "TARGET-HEAP-ADDRESS-SPACE"
+               "STATIC-SPACE-START" "STATIC-SPACE-END"
                #!+linkage-table "LINKAGE-TABLE-SPACE-START"
                #!+linkage-table "LINKAGE-TABLE-SPACE-END"
                #!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE"
-              "TRACE-TABLE-CALL-SITE"
-              "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
-              "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
-              "UNBOUND-MARKER-WIDETAG"
-              "UNSIGNED-IMMEDIATE-SC-NUMBER"
-              "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
-              "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT"
-              "UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
-              "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-WIDETAG" "VALUE-CELL-SIZE"
-              "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
-              "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
-              "VECTOR-VALID-HASHING-SUBTYPE"
-              "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
-              "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
-              "WEAK-POINTER-VALUE-SLOT"
-              "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
-              "WORD-REG-SC-NUMBER" "WORD-SHIFT"
-              "ZERO-SC-NUMBER"))
+               "TRACE-TABLE-CALL-SITE"
+               "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE"
+               "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK"
+               "UNBOUND-MARKER-WIDETAG"
+               "UNSIGNED-IMMEDIATE-SC-NUMBER"
+               "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER"
+               "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT"
+               "UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
+               "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-WIDETAG" "VALUE-CELL-SIZE"
+               "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
+               "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
+               "VECTOR-VALID-HASHING-SUBTYPE"
+               "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
+               "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
+               "WEAK-POINTER-VALUE-SLOT"
+               "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS"
+               "WORD-REG-SC-NUMBER" "WORD-SHIFT"
+               "ZERO-SC-NUMBER"))
 
    #s(sb-cold:package-data
       :name "SB!WALKER"
       :doc "internal: a code walker used by PCL"
       :use ("CL" "SB!INT" "SB!EXT")
       :export ("DEFINE-WALKER-TEMPLATE"
-              "WALK-FORM"
-              "*WALK-FORM-EXPAND-MACROS-P*" 
-              "VAR-LEXICAL-P" "VAR-SPECIAL-P"
-              "VAR-GLOBALLY-SPECIAL-P"
-              "*VAR-DECLARATIONS*" "VAR-DECLARATION"
-
-              ;; These were exported from the original PCL version of this 
-              ;; package, but aren't used in SBCL.
-              ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
-              )))
+               "WALK-FORM"
+               "*WALK-FORM-EXPAND-MACROS-P*"
+               "VAR-LEXICAL-P" "VAR-SPECIAL-P"
+               "VAR-GLOBALLY-SPECIAL-P"
+               "*VAR-DECLARATIONS*" "VAR-DECLARATION"
+
+               ;; These were exported from the original PCL version of this
+               ;; package, but aren't used in SBCL.
+               ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL"
+               )))
index e1001c4..8cbf594 100644 (file)
@@ -11,7 +11,7 @@
  * While most of SBCL is derived from the CMU CL system, many
  * utilities for the build process (like this one) were written from
  * scratch after the fork from CMU CL.
- * 
+ *
  * This software is in the public domain and is provided with
  * absolutely no warranty. See the COPYING and CREDITS files for
  * more information.
@@ -24,27 +24,27 @@ int main (int argc, char *argv[]) {
     char *bar = (char *) &foo;
     switch(*bar) {
     case ' ':
-       /* Do nothing */
-       break;
+        /* Do nothing */
+        break;
     case '#':
-       printf(" :little-endian");
-       break;
+        printf(" :little-endian");
+        break;
     default:
-       /* FIXME: How do we do sane error processing in Unix?  This
-          program will be called from a script, in a manner somewhat
-          like:
+        /* FIXME: How do we do sane error processing in Unix?  This
+           program will be called from a script, in a manner somewhat
+           like:
 
-              tools-for-build/determine-endianness >> $ltf
+               tools-for-build/determine-endianness >> $ltf
 
            but what if we have a too-smart C compiler that actually
-          gets us down to this branch?  I suppose that if we have a C
-          compiler that is that smart, we're doomed to miscompile the
-          runtime anyway, so we won't get here.  Still, it might be
-          good to have "set -e" in the various scripts so that we can
-          exit with an error here and have it be caught by the build
-          tools.  -- CSR, 2002-11-24
-       */
-       exit(1);
+           gets us down to this branch?  I suppose that if we have a C
+           compiler that is that smart, we're doomed to miscompile the
+           runtime anyway, so we won't get here.  Still, it might be
+           good to have "set -e" in the various scripts so that we can
+           exit with an error here and have it be caught by the build
+           tools.  -- CSR, 2002-11-24
+        */
+        exit(1);
     }
-    exit(0); 
+    exit(0);
 }
index cf02e27..3a2b615 100644 (file)
@@ -12,7 +12,7 @@
  * While most of SBCL is derived from the CMU CL system, many
  * utilities for the build process (like this one) were written from
  * scratch after the fork from CMU CL.
- * 
+ *
  * This software is in the public domain and is provided with
  * absolutely no warranty. See the COPYING and CREDITS files for
  * more information.
@@ -46,7 +46,7 @@ void
 defconstant(char* lisp_name, long unix_number)
 {
     printf("(defconstant %s %ld) ; #x%lx\n",
-          lisp_name, unix_number, unix_number);
+           lisp_name, unix_number, unix_number);
 }
 
 void deferrno(char* lisp_name, long unix_number)
@@ -64,8 +64,8 @@ main(int argc, char *argv[])
 {
     /* don't need no steenking command line arguments */
     if (1 != argc) {
-       fprintf(stderr, "argh! command line argument(s)\n");
-       exit(1);
+        fprintf(stderr, "argh! command line argument(s)\n");
+        exit(1);
     }
 
     /* don't need no steenking hand-editing */
@@ -78,11 +78,11 @@ main(int argc, char *argv[])
     printf("(in-package \"SB!ALIEN\")\n\n");
 
     printf (";;;flags for dlopen()\n");
-    
+
     defconstant ("rtld-lazy", RTLD_LAZY);
     defconstant ("rtld-now", RTLD_NOW);
     defconstant ("rtld-global", RTLD_GLOBAL);
-    
+
     printf("(in-package \"SB!UNIX\")\n\n");
 
     printf(";;; langinfo\n");
@@ -126,7 +126,7 @@ main(int argc, char *argv[])
     defconstant("s-ifblk", S_IFBLK);
     defconstant("s-ifreg", S_IFREG);
     printf("\n");
-  
+
     defconstant("s-iflnk",  S_IFLNK);
     defconstant("s-ifsock", S_IFSOCK);
     printf("\n");
@@ -203,7 +203,7 @@ main(int argc, char *argv[])
     defsignal("sigstkflt", SIGSTKFLT);
 #endif
     defsignal("sigstop", SIGSTOP);
-#if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86))) 
+#if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86)))
     defsignal("sigsys", SIGSYS);
 #endif
     defsignal("sigterm", SIGTERM);
index 132c44a..6d33c02 100644 (file)
@@ -1,16 +1,16 @@
-;;;; Generate stubs for C-linkage library functions which we need to refer to 
+;;;; Generate stubs for C-linkage library functions which we need to refer to
 ;;;; from Lisp.
 ;;;;
 ;;;; (But note this is only the Linux version, as per the FIXME
 ;;;; note in the BSD version in undefineds.h.)
 ;;;;
-;;;; These stubs exist for the benefit of Lisp code that needs to refer 
+;;;; These stubs exist for the benefit of Lisp code that needs to refer
 ;;;; to foreign symbols when dlsym() is not available (i.e. when dumping
 ;;;; cold-sbcl.core, when we may be running in a host that's not SBCL,
 ;;;; or on platforms that don't have it at all). If the runtime is
 ;;;; dynamically linked, library functions won't be linked into it, so
 ;;;; the map file won't show them. So, we need a bunch of stubs that
-;;;; nm(1) _can_ see.  
+;;;; nm(1) _can_ see.
 ;;;;
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
 ;;; 2001-09-18. -- CSR
 ;;;
 ;;; And an attempt to work around the Sun toolchain... --ns
-#!+sparc 
+#!+sparc
 (defun ldso-stubify (fct str)
   (apply #'format str "
 .globl ldso_stub__~A ;                          \\
-       FUNCDEF(ldso_stub__~A) ;                \\
+        FUNCDEF(ldso_stub__~A) ;                \\
 ldso_stub__~A: ;                                \\
-       sethi %hi(~A),%g1       ;               \\
-       jmpl %g1+%lo(~A),%g0    ;               \\
-       nop /* delay slot*/     ;               \\
+        sethi %hi(~A),%g1       ;               \\
+        jmpl %g1+%lo(~A),%g0    ;               \\
+        nop /* delay slot*/     ;               \\
 .L~Ae1: ;                                       \\
-       .size    ldso_stub__~A,.L~Ae1-ldso_stub__~A ;~%"
+        .size    ldso_stub__~A,.L~Ae1-ldso_stub__~A ;~%"
           (make-list 9 :initial-element fct)))
 
 (defvar *preludes* '("
@@ -59,60 +59,60 @@ ldso_stub__~A: ;                                \\
 
 #!+(or x86 x86-64) "
 #define LDSO_STUBIFY(fct)                       \\
-       .align 16 ;                             \\
+        .align 16 ;                             \\
 .globl ldso_stub__ ## fct ;                     \\
-       .type    ldso_stub__ ## fct,@function ; \\
+        .type    ldso_stub__ ## fct,@function ; \\
 ldso_stub__ ## fct: ;                           \\
-       jmp fct ;                               \\
+        jmp fct ;                               \\
 .L ## fct ## e1: ;                              \\
-       .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
+        .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
 
 ;;; osf1 has ancient cpp that doesn't do ##
 #!+(and osf1 alpha) "
 #define LDSO_STUBIFY(fct)                       \\
 .globl ldso_stub__/**/fct ;                     \\
 ldso_stub__/**/fct: ;                           \\
-       jmp fct ;                               \\
+        jmp fct ;                               \\
 .L/**/fct/**/e1: ;"
 
 ;;; but there's no reason we need to put up with that on modern (Linux) OSes
 #!+(and linux alpha) "
 #define LDSO_STUBIFY(fct)                       \\
 .globl ldso_stub__ ## fct ;                     \\
-       .type    ldso_stub__ ## fct,@function ; \\
+        .type    ldso_stub__ ## fct,@function ; \\
 ldso_stub__ ## fct: ;                           \\
-       jmp fct ;                               \\
+        jmp fct ;                               \\
 .L ## fct ## e1: ;                              \\
-       .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
+        .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
 
 #!+(and linux ppc) "
 #define LDSO_STUBIFY(fct)                       \\
 .globl ldso_stub__ ## fct ;                     \\
-       .type    ldso_stub__ ## fct,@function ; \\
+        .type    ldso_stub__ ## fct,@function ; \\
 ldso_stub__ ## fct: ;                           \\
         b fct ;                                 \\
 .L ## fct ## e1: ;                              \\
         .size    ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;"
 
 #!+(and darwin ppc) "
-#define LDSO_STUBIFY(fct)                      @\\
+#define LDSO_STUBIFY(fct)                       @\\
 .text                                           @\\
-.globl  ldso_stub___ ## fct                    @\\
-ldso_stub___ ## fct:                           @\\
-       b ldso_stub__ ## fct ## stub            @\\
-.symbol_stub ldso_stub__ ## fct ## stub:       @\\
-.indirect_symbol _ ## fct                      @\\
-       lis     r11,ha16(ldso_stub__ ## fct ## $lazy_ptr)       @\\
-       lwz     r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11)  @\\
-       mtctr   r12                             @\\
-       addi    r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr)   @\\
-       bctr                                    @\\
-.lazy_symbol_pointer                           @\\
-ldso_stub__ ## fct ## $lazy_ptr:               @\\
-       .indirect_symbol _ ## fct               @\\
-       .long dyld_stub_binding_helper"
-       
-;;; KLUDGE: set up the vital fifth argument, passed on the 
+.globl  ldso_stub___ ## fct                     @\\
+ldso_stub___ ## fct:                            @\\
+        b ldso_stub__ ## fct ## stub            @\\
+.symbol_stub ldso_stub__ ## fct ## stub:        @\\
+.indirect_symbol _ ## fct                       @\\
+        lis     r11,ha16(ldso_stub__ ## fct ## $lazy_ptr)       @\\
+        lwz     r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11)  @\\
+        mtctr   r12                             @\\
+        addi    r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr)   @\\
+        bctr                                    @\\
+.lazy_symbol_pointer                            @\\
+ldso_stub__ ## fct ## $lazy_ptr:                @\\
+        .indirect_symbol _ ## fct               @\\
+        .long dyld_stub_binding_helper"
+
+;;; KLUDGE: set up the vital fifth argument, passed on the
 ;;; stack.  Do this unconditionally, even if the stub is for a
 ;;; function with few arguments: it can't hurt.  We only do this for
 ;;; the fifth argument, as the first four are passed in registers
@@ -121,31 +121,31 @@ ldso_stub__ ## fct ## $lazy_ptr:          @\\
 ;;; Expanded to 8 arguments regardless.  -- ths, 2005-03-24
 #!+mips "
 #define LDSO_STUBIFY(fct)                      \\
-       .globl  ldso_stub__ ## fct ;           \\
-       .type   ldso_stub__ ## fct,@function ; \\
-       .ent    ldso_stub__ ## fct ;           \\
+        .globl  ldso_stub__ ## fct ;           \\
+        .type   ldso_stub__ ## fct,@function ; \\
+        .ent    ldso_stub__ ## fct ;           \\
 ldso_stub__ ## fct: ;                  \\
-       .set noat ;                    \\
-       addiu $29,-48 ;                \\
-       sw $28,40($29) ;               \\
-       sw $31,44($29) ;               \\
-       lw $25,64($29) ;               \\
-       lw  $1,68($29) ;               \\
-       sw $25,16($29) ;               \\
-       sw  $1,20($29) ;               \\
-       lw $25,72($29) ;               \\
-       lw  $1,76($29) ;               \\
-       sw $25,24($29) ;               \\
-       sw  $1,28($29) ;               \\
-       .set at ;                      \\
-       la $25, fct ;                  \\
-       jalr $25 ;                     \\
-       lw $31,44($29) ;               \\
-       lw $28,40($29) ;               \\
-       addiu $29,48 ;                 \\
-       jr $31 ;                       \\
-       .end    ldso_stub__ ## fct ;   \\
-       .size   ldso_stub__ ## fct,.-ldso_stub__ ## fct ;"))
+        .set noat ;                    \\
+        addiu $29,-48 ;                \\
+        sw $28,40($29) ;               \\
+        sw $31,44($29) ;               \\
+        lw $25,64($29) ;               \\
+        lw  $1,68($29) ;               \\
+        sw $25,16($29) ;               \\
+        sw  $1,20($29) ;               \\
+        lw $25,72($29) ;               \\
+        lw  $1,76($29) ;               \\
+        sw $25,24($29) ;               \\
+        sw  $1,28($29) ;               \\
+        .set at ;                      \\
+        la $25, fct ;                  \\
+        jalr $25 ;                     \\
+        lw $31,44($29) ;               \\
+        lw $28,40($29) ;               \\
+        addiu $29,48 ;                 \\
+        jr $31 ;                       \\
+        .end    ldso_stub__ ## fct ;   \\
+        .size   ldso_stub__ ## fct,.-ldso_stub__ ## fct ;"))
 
 (defvar *stubs* (append
                  '("accept"
@@ -210,7 +210,7 @@ ldso_stub__ ## fct: ;                  \\
                    "malloc"
                    "memmove"
                    "mkdir"
-                  "nanosleep"
+                   "nanosleep"
                    "nl_langinfo"
                    "open"
                    "opendir"
@@ -246,7 +246,7 @@ ldso_stub__ ## fct: ;                  \\
                    "tzname"
                    "unlink"
                    "utimes"
-                   "wait3"     
+                   "wait3"
                    "write")
                  ;; These aren't needed on the X86 because they're microcoded into the
                  ;; FPU, so the Lisp VOPs can implement them directly without having to
@@ -254,15 +254,15 @@ ldso_stub__ ## fct: ;                  \\
                  ;;
                  ;; Note: There might be some other functions in this category as well.
                  ;; E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07
-                 #!-x86 
+                 #!-x86
                  '("sin"
-                   "cos" 
-                   "tan"      
-                   "atan" 
-                   "atan2" 
-                   "exp"      
-                   "log" 
-                   "log10" 
+                   "cos"
+                   "tan"
+                   "atan"
+                   "atan2"
+                   "exp"
+                   "log"
+                   "log10"
                    "sqrt")
                  #!+alpha
                  '("ieee_get_fp_control"
@@ -272,8 +272,8 @@ ldso_stub__ ## fct: ;                  \\
                    "dlerror"
                    "dlopen"
                    "dlsym")
-                #!+os-provides-dladdr 
-                '("dladdr")
+                 #!+os-provides-dladdr
+                 '("dladdr")
                  #!-(and sparc sunos) ;; !defined(SVR4)
                  '("sigsetmask")))
 
index 4b0f472..ba899a2 100644 (file)
@@ -1,4 +1,4 @@
-/* test to build and run so that we know if we have dladdr 
+/* test to build and run so that we know if we have dladdr
  */
 
 /* bloody FSF dlcfn.h won't give us dladdr without this */
index 4ecfdbb..eb21782 100644 (file)
 (defparameter *decomposition-base* nil)
 
 (defun hash-misc (gc-index bidi-index ccc-index decimal-digit digit
-                 bidi-mirrored cl-both-case-p)
+                  bidi-mirrored cl-both-case-p)
   (let* ((list (list gc-index bidi-index ccc-index decimal-digit digit
-                    bidi-mirrored cl-both-case-p))
-        (index (gethash list *misc-hash*)))
+                     bidi-mirrored cl-both-case-p))
+         (index (gethash list *misc-hash*)))
     (or index
-       (progn
-         (vector-push list *misc-table*)
-         (setf (gethash list *misc-hash*)
-               (incf *misc-index*))))))
+        (progn
+          (vector-push list *misc-table*)
+          (setf (gethash list *misc-hash*)
+                (incf *misc-index*))))))
 
 (defun compare-misc-entry (left right)
   (destructuring-bind (left-gc-index left-bidi-index left-ccc-index
-                      left-decimal-digit left-digit left-bidi-mirrored
-                      left-cl-both-case-p)
+                       left-decimal-digit left-digit left-bidi-mirrored
+                       left-cl-both-case-p)
       left
     (destructuring-bind (right-gc-index right-bidi-index right-ccc-index
-                        right-decimal-digit right-digit right-bidi-mirrored
-                        right-cl-both-case-p)
-       right
+                         right-decimal-digit right-digit right-bidi-mirrored
+                         right-cl-both-case-p)
+        right
       (or (and left-cl-both-case-p (not right-cl-both-case-p))
-         (and (or left-cl-both-case-p (not right-cl-both-case-p))
-              (or (< left-gc-index right-gc-index)
-                  (and (= left-gc-index right-gc-index)
-                       (or (< left-bidi-index right-bidi-index)
-                           (and (= left-bidi-index right-bidi-index)
-                                (or (< left-ccc-index right-ccc-index)
-                                    (and (= left-ccc-index right-ccc-index)
-                                         (or (string< left-decimal-digit
-                                                      right-decimal-digit)
-                                             (and (string= left-decimal-digit
-                                                           right-decimal-digit)
-                                                  (or (string< left-digit right-digit)
-                                                      (and (string= left-digit
-                                                                    right-digit)
-                                                           (string< left-bidi-mirrored
-                                                                    right-bidi-mirrored))))))))))))))))
+          (and (or left-cl-both-case-p (not right-cl-both-case-p))
+               (or (< left-gc-index right-gc-index)
+                   (and (= left-gc-index right-gc-index)
+                        (or (< left-bidi-index right-bidi-index)
+                            (and (= left-bidi-index right-bidi-index)
+                                 (or (< left-ccc-index right-ccc-index)
+                                     (and (= left-ccc-index right-ccc-index)
+                                          (or (string< left-decimal-digit
+                                                       right-decimal-digit)
+                                              (and (string= left-decimal-digit
+                                                            right-decimal-digit)
+                                                   (or (string< left-digit right-digit)
+                                                       (and (string= left-digit
+                                                                     right-digit)
+                                                            (string< left-bidi-mirrored
+                                                                     right-bidi-mirrored))))))))))))))))
 
 (defun build-misc-table ()
   (sort *misc-table* #'compare-misc-entry)
   (setq *misc-mapping* (make-array (1+ *misc-index*)))
   (loop for i from 0 to *misc-index*
-       do (setf (aref *misc-mapping*
-                      (gethash (aref *misc-table* i) *misc-hash*))
-                i)))
+        do (setf (aref *misc-mapping*
+                       (gethash (aref *misc-table* i) *misc-hash*))
+                 i)))
 
 (defun slurp-ucd ()
   (setq *last-uppercase* nil)
   (setq *decomposition-types* (make-hash-table :test #'equal))
   (setq *decomposition-length-max* 0)
   (setq *decomposition-base* (make-array (ash #x110000
-                                             (- *page-size-exponent*))
-                                        :initial-element nil))
+                                              (- *page-size-exponent*))
+                                         :initial-element nil))
   (setq *ucd-base* (make-array (ash #x110000 (- *page-size-exponent*))
-                              :initial-element nil))
+                               :initial-element nil))
   (with-open-file (*standard-input*
-                  (make-pathname :name "UnicodeData"
-                                 :type "txt"
-                                 :defaults *unicode-character-database*)
-                  :direction :input)
+                   (make-pathname :name "UnicodeData"
+                                  :type "txt"
+                                  :defaults *unicode-character-database*)
+                   :direction :input)
     (loop for line = (read-line nil nil)
-         while line
-         do (slurp-ucd-line line)))
+          while line
+          do (slurp-ucd-line line)))
   (second-pass)
   (build-misc-table)
   *decompositions*)
 
 (defun split-string (line character)
   (loop for prev-position = 0 then (1+ position)
-       for position = (position character line :start prev-position)
-       collect (subseq line prev-position position)
-       do (unless position
-            (loop-finish))))
+        for position = (position character line :start prev-position)
+        collect (subseq line prev-position position)
+        do (unless position
+             (loop-finish))))
 
 (defun init-indices (strings)
   (let ((hash (make-hash-table :test #'equal)))
     (loop for string in strings
-         for index from 0
-         do (setf (gethash string hash) index))
+          for index from 0
+          do (setf (gethash string hash) index))
     hash))
 
 (defparameter *general-categories*
   (init-indices '("Lu" "Ll" "Lt" "Lm" "Lo" "Cc" "Cf" "Co" "Cs" "Mc"
-                 "Me" "Mn" "Nd" "Nl" "No" "Pc" "Pd" "Pe" "Pf" "Pi"
-                 "Po" "Ps" "Sc" "Sk" "Sm" "So" "Zl" "Zp" "Zs")))
+                  "Me" "Mn" "Nd" "Nl" "No" "Pc" "Pd" "Pe" "Pf" "Pi"
+                  "Po" "Ps" "Sc" "Sk" "Sm" "So" "Zl" "Zp" "Zs")))
 (defparameter *bidi-classes*
   (init-indices '("AL" "AN" "B" "BN" "CS" "EN" "ES" "ET" "L" "LRE" "LRO"
-                 "NSM" "ON" "PDF" "R" "RLE" "RLO" "S" "WS")))
+                  "NSM" "ON" "PDF" "R" "RLE" "RLO" "S" "WS")))
 
 
 (defparameter *block-first* nil)
 ;;; 100000  --  10FFFD: private use
 (defun encode-ucd-line (line code-point)
   (destructuring-bind (name general-category canonical-combining-class
-                           bidi-class decomposition-type-and-mapping
-                           decimal-digit digit numeric bidi-mirrored
-                           unicode-1-name iso-10646-comment simple-uppercase
-                           simple-lowercase simple-titlecase)
+                            bidi-class decomposition-type-and-mapping
+                            decimal-digit digit numeric bidi-mirrored
+                            unicode-1-name iso-10646-comment simple-uppercase
+                            simple-lowercase simple-titlecase)
       line
     (declare (ignore unicode-1-name iso-10646-comment))
     (if (and (> (length name) 8)
-            (string= ", First>" name :start2 (- (length name) 8)))
-       (progn
-         (setq *block-first* code-point)
-         nil)
-       (let* ((gc-index (or (gethash general-category *general-categories*)
-                            (error "unknown general category ~A"
-                                   general-category)))
-              (bidi-index (or (gethash bidi-class *bidi-classes*)
-                              (error "unknown bidirectional class ~A"
-                                     bidi-class)))
-              (ccc-index (parse-integer canonical-combining-class))
-              (digit-index (unless (string= "" decimal-digit)
-                             (parse-integer decimal-digit)))
-              (upper-index (unless (string= "" simple-uppercase)
-                             (parse-integer simple-uppercase :radix 16)))
-              (lower-index (unless (string= "" simple-lowercase)
-                             (parse-integer simple-lowercase :radix 16)))
-              (title-index (unless (string= "" simple-titlecase)
-                             (parse-integer simple-titlecase :radix 16)))
-              (cl-both-case-p
-               (not (null (or (and (= gc-index 0) lower-index)
-                              (and (= gc-index 1) upper-index)))))
-              (misc-index (hash-misc gc-index bidi-index ccc-index
-                                     decimal-digit digit bidi-mirrored
-                                     cl-both-case-p)))
-         (declare (ignore digit-index))
-         (incf *name-size* (length name))
-         (when (string/= "" decomposition-type-and-mapping)
-           (let ((split (split-string decomposition-type-and-mapping
-                                      #\Space)))
-             (when (char= #\< (aref (first split) 0))
-               (setf (gethash (pop split) *decomposition-types*) t))
-             (unless (aref *decomposition-base* (cp-high code-point))
-               (setf (aref *decomposition-base* (cp-high code-point))
-                     (make-array (ash 1 *page-size-exponent*)
-                                 :initial-element nil)))
-             (setf (aref (aref *decomposition-base* (cp-high code-point))
-                         (cp-low code-point))
-                   (mapcar #'(lambda (string)
-                               (parse-integer string :radix 16))
-                           split))
-             (setq *decomposition-length-max*
-                   (max *decomposition-length-max* (length split)))
-             (incf *decompositions* (length split))))
-         (when (and (string/= "" simple-uppercase)
-                    (string/= "" simple-lowercase))
-           (push (list code-point upper-index lower-index) *both-cases*))
-         (when (string/= simple-uppercase simple-titlecase)
-           (push (cons code-point title-index) *different-titlecases*))
-         (when (string/= digit numeric)
-           (push (cons code-point numeric) *different-numerics*))
-         (cond
-           ((= gc-index 8)
-            (unless *last-uppercase*
-              (incf *uppercase-transition-count*))
-            (setq *last-uppercase* t))
-           (t
-            (when *last-uppercase*
-              (incf *uppercase-transition-count*))
-            (setq *last-uppercase* nil)))
-         (when (> ccc-index 255)
-           (error "canonical combining class too large ~A" ccc-index))
-         (let ((result (vector misc-index (or upper-index lower-index 0))))
-           (when (and (> (length name) 7)
-                      (string= ", Last>" name :start2 (- (length name) 7)))
-             (let ((page-start (ash (+ *block-first*
-                                       (ash 1 *page-size-exponent*)
-                                       -1)
-                                    (- *page-size-exponent*)))
-                   (page-end (ash code-point (- *page-size-exponent*))))
-               (loop for point from *block-first*
-                     below (ash page-start *page-size-exponent*)
-                     do (setf (aref (aref *ucd-base* (cp-high point))
-                                    (cp-low point))
-                              result))
-               (loop for page from page-start below page-end
-                     do (setf (aref *ucd-base* page)
-                              (make-array (ash 1 *page-size-exponent*)
-                                          :initial-element result)))
-               (loop for point from (ash page-end *page-size-exponent*)
-                     below code-point
-                     do (setf (aref (aref *ucd-base* (cp-high point))
-                                    (cp-low point))
-                              result))))
-           result)))))
+             (string= ", First>" name :start2 (- (length name) 8)))
+        (progn
+          (setq *block-first* code-point)
+          nil)
+        (let* ((gc-index (or (gethash general-category *general-categories*)
+                             (error "unknown general category ~A"
+                                    general-category)))
+               (bidi-index (or (gethash bidi-class *bidi-classes*)
+                               (error "unknown bidirectional class ~A"
+                                      bidi-class)))
+               (ccc-index (parse-integer canonical-combining-class))
+               (digit-index (unless (string= "" decimal-digit)
+                              (parse-integer decimal-digit)))
+               (upper-index (unless (string= "" simple-uppercase)
+                              (parse-integer simple-uppercase :radix 16)))
+               (lower-index (unless (string= "" simple-lowercase)
+                              (parse-integer simple-lowercase :radix 16)))
+               (title-index (unless (string= "" simple-titlecase)
+                              (parse-integer simple-titlecase :radix 16)))
+               (cl-both-case-p
+                (not (null (or (and (= gc-index 0) lower-index)
+                               (and (= gc-index 1) upper-index)))))
+               (misc-index (hash-misc gc-index bidi-index ccc-index
+                                      decimal-digit digit bidi-mirrored
+                                      cl-both-case-p)))
+          (declare (ignore digit-index))
+          (incf *name-size* (length name))
+          (when (string/= "" decomposition-type-and-mapping)
+            (let ((split (split-string decomposition-type-and-mapping
+                                       #\Space)))
+              (when (char= #\< (aref (first split) 0))
+                (setf (gethash (pop split) *decomposition-types*) t))
+              (unless (aref *decomposition-base* (cp-high code-point))
+                (setf (aref *decomposition-base* (cp-high code-point))
+                      (make-array (ash 1 *page-size-exponent*)
+                                  :initial-element nil)))
+              (setf (aref (aref *decomposition-base* (cp-high code-point))
+                          (cp-low code-point))
+                    (mapcar #'(lambda (string)
+                                (parse-integer string :radix 16))
+                            split))
+              (setq *decomposition-length-max*
+                    (max *decomposition-length-max* (length split)))
+              (incf *decompositions* (length split))))
+          (when (and (string/= "" simple-uppercase)
+                     (string/= "" simple-lowercase))
+            (push (list code-point upper-index lower-index) *both-cases*))
+          (when (string/= simple-uppercase simple-titlecase)
+            (push (cons code-point title-index) *different-titlecases*))
+          (when (string/= digit numeric)
+            (push (cons code-point numeric) *different-numerics*))
+          (cond
+            ((= gc-index 8)
+             (unless *last-uppercase*
+               (incf *uppercase-transition-count*))
+             (setq *last-uppercase* t))
+            (t
+             (when *last-uppercase*
+               (incf *uppercase-transition-count*))
+             (setq *last-uppercase* nil)))
+          (when (> ccc-index 255)
+            (error "canonical combining class too large ~A" ccc-index))
+          (let ((result (vector misc-index (or upper-index lower-index 0))))
+            (when (and (> (length name) 7)
+                       (string= ", Last>" name :start2 (- (length name) 7)))
+              (let ((page-start (ash (+ *block-first*
+                                        (ash 1 *page-size-exponent*)
+                                        -1)
+                                     (- *page-size-exponent*)))
+                    (page-end (ash code-point (- *page-size-exponent*))))
+                (loop for point from *block-first*
+                      below (ash page-start *page-size-exponent*)
+                      do (setf (aref (aref *ucd-base* (cp-high point))
+                                     (cp-low point))
+                               result))
+                (loop for page from page-start below page-end
+                      do (setf (aref *ucd-base* page)
+                               (make-array (ash 1 *page-size-exponent*)
+                                           :initial-element result)))
+                (loop for point from (ash page-end *page-size-exponent*)
+                      below code-point
+                      do (setf (aref (aref *ucd-base* (cp-high point))
+                                     (cp-low point))
+                               result))))
+            result)))))
 
 (defun slurp-ucd-line (line)
   (let* ((split-line (split-string line #\;))
-        (code-point (parse-integer (first split-line) :radix 16))
-        (code-high (ash code-point (- *page-size-exponent*)))
-        (code-low (ldb (byte *page-size-exponent* 0) code-point)))
+         (code-point (parse-integer (first split-line) :radix 16))
+         (code-high (ash code-point (- *page-size-exponent*)))
+         (code-low (ldb (byte *page-size-exponent* 0) code-point)))
     (unless (aref *ucd-base* code-high)
       (setf (aref *ucd-base* code-high)
-           (make-array (ash 1 *page-size-exponent*)
-                       :initial-element nil)))
+            (make-array (ash 1 *page-size-exponent*)
+                        :initial-element nil)))
     (setf (aref (aref *ucd-base* code-high) code-low)
-         (encode-ucd-line (cdr split-line) code-point))))
+          (encode-ucd-line (cdr split-line) code-point))))
 
 (defun second-pass ()
   (loop for i from 0 below (length *ucd-base*)
-       when (aref *ucd-base* i)
-       do (loop for j from 0 below (length (aref *ucd-base* i))
-                for result = (aref (aref *ucd-base* i) j)
-                when result
-                when (let* ((transform-point (aref result 1))
-                            (transform-high (ash transform-point
-                                                 (- *page-size-exponent*)))
-                            (transform-low (ldb (byte *page-size-exponent* 0)
-                                                transform-point)))
-                       (and (plusp transform-point)
-                            (/= (aref (aref (aref *ucd-base* transform-high)
-                                            transform-low)
-                                      1)
-                                (+ (ash i *page-size-exponent*) j))))
-                do (destructuring-bind (gc-index bidi-index ccc-index
-                                        decimal-digit digit bidi-mirrored
-                                        cl-both-case-p)
-                       (aref *misc-table* (aref result 0))
-                     (declare (ignore cl-both-case-p))
-                     (format t "~A~%" (+ (ash i *page-size-exponent*) j))
-                     (setf (aref result 0)
-                           (hash-misc gc-index bidi-index ccc-index
-                                      decimal-digit digit bidi-mirrored
-                                      nil))))))
+        when (aref *ucd-base* i)
+        do (loop for j from 0 below (length (aref *ucd-base* i))
+                 for result = (aref (aref *ucd-base* i) j)
+                 when result
+                 when (let* ((transform-point (aref result 1))
+                             (transform-high (ash transform-point
+                                                  (- *page-size-exponent*)))
+                             (transform-low (ldb (byte *page-size-exponent* 0)
+                                                 transform-point)))
+                        (and (plusp transform-point)
+                             (/= (aref (aref (aref *ucd-base* transform-high)
+                                             transform-low)
+                                       1)
+                                 (+ (ash i *page-size-exponent*) j))))
+                 do (destructuring-bind (gc-index bidi-index ccc-index
+                                         decimal-digit digit bidi-mirrored
+                                         cl-both-case-p)
+                        (aref *misc-table* (aref result 0))
+                      (declare (ignore cl-both-case-p))
+                      (format t "~A~%" (+ (ash i *page-size-exponent*) j))
+                      (setf (aref result 0)
+                            (hash-misc gc-index bidi-index ccc-index
+                                       decimal-digit digit bidi-mirrored
+                                       nil))))))
 
 (defun write-3-byte (triplet stream)
   (write-byte (ldb (byte 8 0) triplet) stream)
 
 (defun output ()
   (let ((hash (make-hash-table :test #'equalp))
-       (index 0))
+        (index 0))
     (loop for page across *ucd-base*
-         do (when page
-              (unless (gethash page hash)
-                (setf (gethash page hash)
-                      (incf index)))))
+          do (when page
+               (unless (gethash page hash)
+                 (setf (gethash page hash)
+                       (incf index)))))
     (let ((array (make-array (1+ index))))
       (maphash #'(lambda (key value)
-                  (setf (aref array value) key))
-              hash)
+                   (setf (aref array value) key))
+               hash)
       (setf (aref array 0)
-           (make-array (ash 1 *page-size-exponent*) :initial-element nil))
+            (make-array (ash 1 *page-size-exponent*) :initial-element nil))
       (with-open-file (stream (make-pathname :name "ucd"
-                                            :type "dat"
-                                            :defaults *output-directory*)
-                             :direction :output
-                             :element-type '(unsigned-byte 8)
-                             :if-exists :supersede
-                             :if-does-not-exist :create)
-       (loop for (gc-index bidi-index ccc-index decimal-digit digit
-                           bidi-mirrored)
-             across *misc-table*
-             do (write-byte gc-index stream)
-             do (write-byte bidi-index stream)
-             do (write-byte ccc-index stream)
-             do (write-byte (digit-to-byte decimal-digit) stream)
-             do (write-byte (digit-to-byte digit) stream)
-             do (write-byte (if (string= "N" bidi-mirrored) 0 1) stream)
-             do (write-byte 0 stream)
-             do (write-byte 0 stream))
-       (loop for page across *ucd-base*
-             do (write-byte (if page (gethash page hash) 0) stream))
-       (loop for page across array
-             do (loop for entry across page
-                      do (write-byte (if entry
-                                         (aref *misc-mapping* (aref entry 0))
-                                         255)
-                                     stream)
-                      do (write-3-byte (if entry (aref entry 1) 0)
-                                       stream))))))
+                                             :type "dat"
+                                             :defaults *output-directory*)
+                              :direction :output
+                              :element-type '(unsigned-byte 8)
+                              :if-exists :supersede
+                              :if-does-not-exist :create)
+        (loop for (gc-index bidi-index ccc-index decimal-digit digit
+                            bidi-mirrored)
+              across *misc-table*
+              do (write-byte gc-index stream)
+              do (write-byte bidi-index stream)
+              do (write-byte ccc-index stream)
+              do (write-byte (digit-to-byte decimal-digit) stream)
+              do (write-byte (digit-to-byte digit) stream)
+              do (write-byte (if (string= "N" bidi-mirrored) 0 1) stream)
+              do (write-byte 0 stream)
+              do (write-byte 0 stream))
+        (loop for page across *ucd-base*
+              do (write-byte (if page (gethash page hash) 0) stream))
+        (loop for page across array
+              do (loop for entry across page
+                       do (write-byte (if entry
+                                          (aref *misc-mapping* (aref entry 0))
+                                          255)
+                                      stream)
+                       do (write-3-byte (if entry (aref entry 1) 0)
+                                        stream))))))
   (with-open-file (*standard-output*
-                  (make-pathname :name "numerics"
-                                 :type "lisp-expr"
-                                 :defaults *output-directory*)
-                  :direction :output
-                  :if-exists :supersede
-                  :if-does-not-exist :create)
+                   (make-pathname :name "numerics"
+                                  :type "lisp-expr"
+                                  :defaults *output-directory*)
+                   :direction :output
+                   :if-exists :supersede
+                   :if-does-not-exist :create)
     (let ((*print-pretty* t))
       (prin1 (mapcar #'(lambda (x) (cons (car x) (read-from-string (cdr x))))
-                    *different-numerics*))))
+                     *different-numerics*))))
   (with-open-file (*standard-output*
-                  (make-pathname :name "titlecases"
-                                 :type "lisp-expr"
-                                 :defaults *output-directory*)
-                  :direction :output
-                  :if-exists :supersede
-                  :if-does-not-exist :create)
+                   (make-pathname :name "titlecases"
+                                  :type "lisp-expr"
+                                  :defaults *output-directory*)
+                   :direction :output
+                   :if-exists :supersede
+                   :if-does-not-exist :create)
     (let ((*print-pretty* t))
       (prin1 *different-titlecases*)))
   (with-open-file (*standard-output*
-                  (make-pathname :name "misc"
-                                 :type "lisp-expr"
-                                 :defaults *output-directory*)
-                  :direction :output
-                  :if-exists :supersede
-                  :if-does-not-exist :create)
+                   (make-pathname :name "misc"
+                                  :type "lisp-expr"
+                                  :defaults *output-directory*)
+                   :direction :output
+                   :if-exists :supersede
+                   :if-does-not-exist :create)
     (let ((*print-pretty* t))
       (prin1 `(:length ,(length *misc-table*)
-              :uppercase ,(loop for (gc-index) across *misc-table*
-                                for i from 0
-                                when (= gc-index 0)
-                                collect i)
-              :lowercase ,(loop for (gc-index) across *misc-table*
-                                for i from 0
-                                when (= gc-index 1)
-                                collect i)
-              :titlecase ,(loop for (gc-index) across *misc-table*
-                                for i from 0
-                                when (= gc-index 2)
-                                collect i)))))
+               :uppercase ,(loop for (gc-index) across *misc-table*
+                                 for i from 0
+                                 when (= gc-index 0)
+                                 collect i)
+               :lowercase ,(loop for (gc-index) across *misc-table*
+                                 for i from 0
+                                 when (= gc-index 1)
+                                 collect i)
+               :titlecase ,(loop for (gc-index) across *misc-table*
+                                 for i from 0
+                                 when (= gc-index 2)
+                                 collect i)))))
   (values))
 
 ;;; Use of the generated files
 
 (defun read-compiled-ucd ()
   (with-open-file (stream (make-pathname :name "ucd"
-                                        :type "dat"
-                                        :defaults *output-directory*)
-                         :direction :input
-                         :element-type '(unsigned-byte 8))
+                                         :type "dat"
+                                         :defaults *output-directory*)
+                          :direction :input
+                          :element-type '(unsigned-byte 8))
     (let ((length (file-length stream)))
       (setq *compiled-ucd*
-           (make-array length :element-type '(unsigned-byte 8)))
+            (make-array length :element-type '(unsigned-byte 8)))
       (read-sequence *compiled-ucd* stream)))
   (values))
 
 
 (defun cp-index (cp)
   (let* ((cp-high (cp-high cp))
-        (page (aref *compiled-ucd* (+ (* 8 *length*) cp-high))))
+         (page (aref *compiled-ucd* (+ (* 8 *length*) cp-high))))
     (+ (* 8 *length*)
        (ash #x110000 (- *page-size-exponent*))
        (* (ash 4 *page-size-exponent*) page)
 (defun cp-value-1 (cp)
   (let ((index (cp-index cp)))
     (dpb (aref *compiled-ucd* (+ index 3)) (byte 8 16)
-        (dpb (aref *compiled-ucd* (+ index 2)) (byte 8 8)
-             (aref *compiled-ucd* (1+ index))))))
+         (dpb (aref *compiled-ucd* (+ index 2)) (byte 8 8)
+              (aref *compiled-ucd* (1+ index))))))
 
 (defun cp-general-category (cp)
   (aref *compiled-ucd* (* 8 (cp-value-0 cp))))
 (defun cp-decimal-digit (cp)
   (let ((decimal-digit (aref *compiled-ucd* (+ 3 (* 8 (cp-value-0 cp))))))
     (and (< decimal-digit 10)
-        decimal-digit)))
+         decimal-digit)))
 
 (defun cp-alpha-char-p (cp)
   (< (cp-general-category cp) 5))
 (defun cp-alphanumericp (cp)
   (let ((gc (cp-general-category cp)))
     (or (< gc 5)
-       (= gc 12))))
+        (= gc 12))))
 
 (defun cp-digit-char-p (cp &optional (radix 10))
   (let ((number (or (cp-decimal-digit cp)
-                   (and (<= 65 cp 90)
-                        (- cp 55))
-                   (and (<= 97 cp 122)
-                        (- cp 87)))))
+                    (and (<= 65 cp 90)
+                         (- cp 55))
+                    (and (<= 97 cp 122)
+                         (- cp 87)))))
     (when (and number (< number radix))
       number)))
 
index cfe6e14..edcd646 100644 (file)
@@ -12,7 +12,7 @@
  * While most of SBCL is derived from the CMU CL system, many
  * utilities for the build process (like this one) were written from
  * scratch after the fork from CMU CL.
- * 
+ *
  * This software is in the public domain and is provided with
  * absolutely no warranty. See the COPYING and CREDITS files for
  * more information.
 #include <sys/ucontext.h>
 
 int main (int argc, char *argv[]) {
-    
+
     if(argc != 1) {
-       fprintf(stderr,"%s: command line arguments provided.  Don't do that.\n", argv[0]);
-       exit(1);
+        fprintf(stderr,"%s: command line arguments provided.  Don't do that.\n", argv[0]);
+        exit(1);
     }
-    
+
     printf("\
 /* This is an automatically-generated file; please do not edit it.\n\
    See the program tools-for-build/where-is-mcontext.c.\n\
  */\n\n");
-    
+
     printf("\
 #ifndef PPC_LINUX_MCONTEXT_H\n\
 #define PPC_LINUX_MCONTEXT_H\n\n");
 
     if (offsetof(ucontext_t,uc_mcontext) > 40) {
-       printf("#define GLIBC232_STYLE_UCONTEXT\n\n");
+        printf("#define GLIBC232_STYLE_UCONTEXT\n\n");
     } else {
-       printf("#define GLIBC231_STYLE_UCONTEXT\n\n");
+        printf("#define GLIBC231_STYLE_UCONTEXT\n\n");
     }
     printf("\
 #endif /* PPC_LINUX_MCONTEXT_H */\n");
index 710f072..4de0235 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.2.50"
+"0.9.2.51"