0.8.13.54:
authorNathan Froyd <froydnj@cs.rice.edu>
Tue, 10 Aug 2004 15:38:13 +0000 (15:38 +0000)
committerNathan Froyd <froydnj@cs.rice.edu>
Tue, 10 Aug 2004 15:38:13 +0000 (15:38 +0000)
Define an appropriate primitive type alias for SB!C::RAW-VECTOR;
  the src/compiler/*/array.lisp changes from a version or two
  ago should now build properly (thanks to Xophe for the alias
  idea).

Merge changes to package-data-list.lisp-expr, including support
  for various 32/64-bit-isms which have not yet landed.

package-data-list.lisp-expr
src/compiler/generic/vm-fndb.lisp
version.lisp-expr

index 6468c22..17e12bd 100644 (file)
@@ -187,167 +187,171 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                 "SB!KERNEL" "SB!SYS")
       :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE")
       :export ("%ALIEN-FUNCALL"
-              "%CATCH-BREAKUP" "%CONTINUE-UNWIND" 
-              "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
-              "%UNWIND-PROTECT-BREAKUP"
-
-              "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
-              "*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
-              "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*"
-              "*BACKEND-REGISTER-SAVE-PENALTY*"
-              "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
-              "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
-              "*BACKEND-SPECIAL-ARG-TYPES*"
-              "*BACKEND-SUBFEATURES*"
-              "*BACKEND-T-PRIMITIVE-TYPE*"
-
-              "*CODE-SEGMENT*"
-              "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"
-              "*LEXENV*"
-              "*SETF-ASSUMED-FBOUNDP*"
-              "*SUPPRESS-VALUES-DECLARATION*"
-
-              "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
-              "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
-              "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
-              "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
-              "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
-              "ATTRIBUTES=" "BIND"
-              "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
-              "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN"
-              "CASE-BODY" "CATCH-BLOCK" "CHECK-CONS"
-              "CHECK-FIXNUM" "CHECK-FUN"
-              "CHECK-SIGNED-BYTE-32" "CHECK-SYMBOL" "CHECK-UNSIGNED-BYTE-32"
-              "CLOSURE-INIT" "CLOSURE-REF"
-              "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
-              "COMPILE-IN-LEXENV"
-              "COMPILE-LAMBDA-FOR-DEFUN"
-              "%COMPILER-DEFUN" "COMPILER-ERROR" "FATAL-COMPILER-ERROR"
-              "COMPILER-NOTIFY"
-              "COMPILER-STYLE-WARN" "COMPILER-WARN"
-              "COMPONENT" "COMPONENT-HEADER-LENGTH"
-              "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
-              "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
-              "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
-              "CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
-              "DEALLOC-NUMBER-STACK-SPACE"
-              "DEF-IR1-TRANSLATOR"
-              "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
-              "DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
-              "DEFINE-ASSEMBLY-ROUTINE"
-              "DEFINE-MODULAR-FUN"
-              "DEFINE-MOVE-FUN"
-              "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
-              "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
-              "DEFKNOWN" "DEFOPTIMIZER"
-              "DEFTRANSFORM" "DERIVE-TYPE"
-              "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
-              "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
-              "FAST-SYMBOL-VALUE" 
-              "FIXUP-NOTE-KIND"
-              "FIXUP-NOTE-FIXUP"
-              "FIXUP-NOTE-POSITION"
-              "FOLDABLE"
-              "FORCE-TN-TO-STACK"
-              "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
-              "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
-              "GET-VECTOR-SUBTYPE"
-              "HALT"
-              "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
-              "INSTANCE-REF" "INSTANCE-SET"
-              "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
-              "IR2-PHYSENV-NUMBER-STACK-P"
-              "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
-              "LAMBDA-WITH-LEXENV" "LEXENV-FIND"
-              "LOCATION=" "LTN-ANNOTATE"
-              "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
-              "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
-              "MAKE-FIXUP-NOTE"
-              "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
-              "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
-              "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
-              "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
-              "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
-              "MAYBE-INLINE-SYNTACTIC-CLOSURE"
-              "META-PRIMITIVE-TYPE-OR-LOSE"
-              "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
-              "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
-              "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
-              "MULTIPLE-CALL-VARIABLE"
-              "%%NIP-VALUES"
-              "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
-              "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
-              "NOTE-THIS-LOCATION" "OPTIMIZER" "PACK-TRACE-TABLE"
-              "PARSE-EVAL-WHEN-SITUATIONS"
-              "POLICY" "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
-              "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
-              "PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
-              "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
-              "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
-              "RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
-              "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
-              "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE" "SC-OFFSET"
-              "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
-              "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
-              "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
-              "SOURCE-TRANSFORM-LAMBDA"
-              "SPECIFY-SAVE-TN"
-              "TAIL-CALL" "TAIL-CALL-NAMED"
-              "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
-              "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
-              "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
-              "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
-              "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
-              "UNSAFE" "UNWIND" "UWP-ENTRY"
-              "VERIFY-ARG-COUNT" "WRITE-PACKED-BIT-VECTOR"
-              "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
-              "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
-              "FIXUP-P" "MAKE-FIXUP"
-              "DEF-ALLOC"
-              "VAR-ALLOC"
-              "SAFE-FDEFN-FUN"
-              "NOTE-FIXUP"
-              "DEF-REFFER"
-              "EMIT-NOP"
-              "DEF-SETTER"
-              "FIXED-ALLOC"
-              "MAKE-UNBOUND-MARKER"
-              "RETURN-SINGLE"
-              "NOTE-NEXT-INSTRUCTION"
-              "SET-SLOT"
-              "LOCATION-NUMBER"
-              "*COMPONENT-BEING-COMPILED*"
-              "BLOCK-NUMBER"
-              "BACKEND"
-              "IR2-BLOCK-BLOCK"
-              "FUNCALLABLE-INSTANCE-LEXENV"
-              "VOP-BLOCK"
-              "*ASSEMBLY-OPTIMIZE*"
-              "LARGE-ALLOC"
-              "%SET-SIMPLE-FUN-SELF"
-              "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
-              "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
-              "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
-              "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
-              "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
-              "VM-SUPPORT-ROUTINES-STANDARD-ARG-LOCATION"
-              "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
-              "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
-              "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
-              "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
-              "VM-SUPPORT-ROUTINES-MAKE-ARG-COUNT-LOCATION"
-              "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
-              "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
-              "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
-              "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
-              "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
-              "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
-              "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
-              "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARG-START-LOCATION"
-              "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
-              "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
-              "VM-SUPPORT-ROUTINES-EMIT-NOP"
-              "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"))
+               "%CATCH-BREAKUP" "%CONTINUE-UNWIND" 
+               "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
+               "%UNWIND-PROTECT-BREAKUP"
+
+               "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*"
+               "*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*"
+               "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*"
+               "*BACKEND-REGISTER-SAVE-PENALTY*"
+               "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*"
+               "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*"
+               "*BACKEND-SPECIAL-ARG-TYPES*"
+               "*BACKEND-SUBFEATURES*"
+               "*BACKEND-T-PRIMITIVE-TYPE*"
+
+               "*CODE-SEGMENT*"
+               "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FREE-FUNS*"
+               "*LEXENV*"
+               "*SETF-ASSUMED-FBOUNDP*"
+               "*SUPPRESS-VALUES-DECLARATION*"
+
+               "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
+               "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
+               "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
+               "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
+               "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION"
+               "ATTRIBUTES=" "BIND"
+               "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-OUT" "CALL-VARIABLE"
+               "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN"
+               "CASE-BODY" "CATCH-BLOCK" "CHECK-CONS"
+               "CHECK-FIXNUM" "CHECK-FUN"
+               ;; FIXME: 32/64-bit issues
+               "CHECK-SIGNED-BYTE-32" "CHECK-SIGNED-BYTE-64"
+               "CHECK-SYMBOL"
+               ;; FIXME: 32/64-bit issues
+               "CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
+               "CLOSURE-INIT" "CLOSURE-REF"
+               "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
+               "COMPILE-IN-LEXENV"
+               "COMPILE-LAMBDA-FOR-DEFUN"
+               "%COMPILER-DEFUN" "COMPILER-ERROR" "FATAL-COMPILER-ERROR"
+               "COMPILER-NOTIFY"
+               "COMPILER-STYLE-WARN" "COMPILER-WARN"
+               "COMPONENT" "COMPONENT-HEADER-LENGTH"
+               "COMPONENT-INFO" "COMPONENT-LIVE-TN" "COMPUTE-FUN"
+               "COMPUTE-OLD-NFP" "COPY-MORE-ARG"
+               "CURRENT-BINDING-POINTER" "CURRENT-NFP-TN"
+               "CURRENT-STACK-POINTER" "DEALLOC-ALIEN-STACK-SPACE"
+               "DEALLOC-NUMBER-STACK-SPACE"
+               "DEF-IR1-TRANSLATOR"
+               "!DEF-PRIMITIVE-TYPE" "!DEF-PRIMITIVE-TYPE-ALIAS"
+               "DEFINE-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE"
+               "DEFINE-ASSEMBLY-ROUTINE"
+               "DEFINE-MODULAR-FUN"
+               "DEFINE-MOVE-FUN"
+               "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE"
+               "DEFINE-STORAGE-CLASS" "DEFINE-VOP"
+               "DEFKNOWN" "DEFOPTIMIZER"
+               "DEFTRANSFORM" "DERIVE-TYPE"
+               "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
+               "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
+               "FAST-SYMBOL-VALUE" 
+               "FIXUP-NOTE-KIND"
+               "FIXUP-NOTE-FIXUP"
+               "FIXUP-NOTE-POSITION"
+               "FOLDABLE"
+               "FORCE-TN-TO-STACK"
+               "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT"
+               "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER"
+               "GET-VECTOR-SUBTYPE"
+               "HALT"
+               "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
+               "INSTANCE-REF" "INSTANCE-SET"
+               "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
+               "IR2-PHYSENV-NUMBER-STACK-P"
+               "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
+               "LAMBDA-WITH-LEXENV" "LEXENV-FIND"
+               "LOCATION=" "LTN-ANNOTATE"
+               "MAKE-ALIAS-TN" "MAKE-CATCH-BLOCK"
+               "MAKE-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXNUM"
+               "MAKE-FIXUP-NOTE"
+               "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN"
+               "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN"
+               "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET"
+               "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK"
+               "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY"
+               "MAYBE-INLINE-SYNTACTIC-CLOSURE"
+               "META-PRIMITIVE-TYPE-OR-LOSE"
+               "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE"
+               "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL"
+               "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
+               "MULTIPLE-CALL-VARIABLE"
+               "%%NIP-VALUES"
+               "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
+               "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
+               "NOTE-THIS-LOCATION" "OPTIMIZER" "PACK-TRACE-TABLE"
+               "PARSE-EVAL-WHEN-SITUATIONS"
+               "POLICY" "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
+               "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
+               "PRIMITIVE-TYPE-NAME" "PUSH-VALUES"
+               "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING"
+               "RESET-STACK-POINTER" "RESTORE-DYNAMIC-STATE"
+               "RETURN-MULTIPLE" "SAVE-DYNAMIC-STATE" "SB"
+               "SB-ALLOCATED-SIZE" "SB-NAME" "SB-OR-LOSE" "SB-P" "SC" "SC-CASE"
+               "SC-IS" "SC-NAME" "SC-NUMBER" "SC-NUMBER-OR-LOSE" "SC-OFFSET"
+               "SC-OFFSET-OFFSET" "SC-OFFSET-SCN" "SC-OR-LOSE" "SC-P" "SC-SB"
+               "SET-UNWIND-PROTECT" "SET-VECTOR-SUBTYPE"
+               "SETUP-CLOSURE-ENVIRONMENT" "SETUP-ENVIRONMENT"
+               "SOURCE-TRANSFORM-LAMBDA"
+               "SPECIFY-SAVE-TN"
+               "TAIL-CALL" "TAIL-CALL-NAMED"
+               "TAIL-CALL-VARIABLE" "TEMPLATE-OR-LOSE"
+               "TN" "TN-OFFSET" "TN-P" "TN-REF" "TN-REF-ACROSS" "TN-REF-LOAD-TN"
+               "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
+               "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
+               "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
+               "UNSAFE" "UNWIND" "UWP-ENTRY"
+               "VERIFY-ARG-COUNT" "WRITE-PACKED-BIT-VECTOR"
+               "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
+               "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
+               "FIXUP-P" "MAKE-FIXUP"
+               "DEF-ALLOC"
+               "VAR-ALLOC"
+               "SAFE-FDEFN-FUN"
+               "NOTE-FIXUP"
+               "DEF-REFFER"
+               "EMIT-NOP"
+               "DEF-SETTER"
+               "FIXED-ALLOC"
+               "MAKE-UNBOUND-MARKER"
+               "RETURN-SINGLE"
+               "NOTE-NEXT-INSTRUCTION"
+               "SET-SLOT"
+               "LOCATION-NUMBER"
+               "*COMPONENT-BEING-COMPILED*"
+               "BLOCK-NUMBER"
+               "BACKEND"
+               "IR2-BLOCK-BLOCK"
+               "FUNCALLABLE-INSTANCE-LEXENV"
+               "VOP-BLOCK"
+               "*ASSEMBLY-OPTIMIZE*"
+               "LARGE-ALLOC"
+               "%SET-SIMPLE-FUN-SELF"
+               "VM-SUPPORT-ROUTINES-IMMEDIATE-CONSTANT-SC"
+               "VM-SUPPORT-ROUTINES-LOCATION-PRINT-NAME"
+               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE-OF"
+               "VM-SUPPORT-ROUTINES-PRIMITIVE-TYPE"
+               "VM-SUPPORT-ROUTINES-MAKE-CALL-OUT-TNS"
+               "VM-SUPPORT-ROUTINES-STANDARD-ARG-LOCATION"
+               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-PASSING-LOCATION"
+               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-PASSING-LOCATION"
+               "VM-SUPPORT-ROUTINES-MAKE-OLD-FP-SAVE-LOCATION"
+               "VM-SUPPORT-ROUTINES-MAKE-RETURN-PC-SAVE-LOCATION"
+               "VM-SUPPORT-ROUTINES-MAKE-ARG-COUNT-LOCATION"
+               "VM-SUPPORT-ROUTINES-MAKE-NFP-TN"
+               "VM-SUPPORT-ROUTINES-MAKE-STACK-POINTER-TN"
+               "VM-SUPPORT-ROUTINES-MAKE-NUMBER-STACK-POINTER-TN"
+               "VM-SUPPORT-ROUTINES-MAKE-UNKNOWN-VALUES-LOCATIONS"
+               "VM-SUPPORT-ROUTINES-SELECT-COMPONENT-FORMAT"
+               "VM-SUPPORT-ROUTINES-MAKE-NLX-SP-TN"
+               "VM-SUPPORT-ROUTINES-MAKE-DYNAMIC-STATE-TNS"
+               "VM-SUPPORT-ROUTINES-MAKE-NLX-ENTRY-ARG-START-LOCATION"
+               "VM-SUPPORT-ROUTINES-GENERATE-CALL-SEQUENCE"
+               "VM-SUPPORT-ROUTINES-GENERATE-RETURN-SEQUENCE"
+               "VM-SUPPORT-ROUTINES-EMIT-NOP"
+               "VM-SUPPORT-ROUTINES-LOCATION-NUMBER"))
 
    #s(sb-cold:package-data
       :name "SB!DEBUG"
@@ -1034,539 +1038,443 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                 "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY")
       :reexport ("DEF!STRUCT" "DEF!MACRO")
       :export ("%ACOS"
-              "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS"
-              "%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION"
-              "%ARRAY-DISPLACED-P"
-              "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
-              "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK"
-              "%ASIN" "%ASINH"
-              "%ATAN" "%ATAN2" "%ATANH"
-              "%CALLER-FRAME-AND-PC" "%CHECK-BOUND"
-              "%CHECK-VECTOR-SEQUENCE-BOUNDS" "%CLOSURE-FUN"
-              "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
-              "%COSH" "%DATA-VECTOR-AND-INDEX"
-              "%DEPOSIT-FIELD"
-              "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
-              "%FIND-POSITION" "%FIND-POSITION-VECTOR-MACRO"
-              "%FIND-POSITION-IF" "%FIND-POSITION-IF-VECTOR-MACRO"
-              "%FIND-POSITION-IF-NOT" "%FIND-POSITION-IF-NOT-VECTOR-MACRO"
-              "%FUN-DOC" "%FUN-NAME"
-              "%HYPOT" "%LDB"
-              "%LOG" "%LOGB" "%LOG10" "%LOG1P"
-              #!+long-float "%LONG-FLOAT"
-              "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO"
-              "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" "%MAP-TO-LIST-ARITY-1"
-              "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR"
-              "%MAP-TO-NIL-ON-VECTOR" "%MASK-FIELD" "%NEGATE" "%POW"
-              "%PUTHASH" "%RAW-BITS" "%RAW-REF-COMPLEX-DOUBLE"
-              "%RAW-REF-COMPLEX-LONG"
-              "%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
-              "%RAW-REF-LONG"
-              "%RAW-REF-SINGLE" "%RAW-SET-COMPLEX-DOUBLE"
-              "%RAW-SET-COMPLEX-LONG" "%RAW-SET-COMPLEX-SINGLE"
-              "%RAW-SET-DOUBLE" "%RAW-SET-LONG" "%RAW-SET-SINGLE"
-              "%SCALB" "%SCALBN" "%SET-ARRAY-DIMENSION"
-              "%SET-FUNCALLABLE-INSTANCE-FUN"
-              "%SET-FUNCALLABLE-INSTANCE-INFO" "%SET-RAW-BITS"
-              "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
-              "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE" "%SET-SAP-REF-LONG"
-              "%SET-SAP-REF-SAP" "%SET-SAP-REF-SINGLE"
-              "%SET-SIGNED-SAP-REF-16" "%SET-SIGNED-SAP-REF-32"
-              "%SET-SIGNED-SAP-REF-64" "%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" "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
-              "%WITH-ARRAY-DATA" "%WITH-ARRAY-DATA-MACRO" 
-              "*ALREADY-MAYBE-GCING*"
-              "*CURRENT-LEVEL-IN-PRINT*" "*EMPTY-TYPE*"
-              "*GC-INHIBIT*"
-              "*NEED-TO-COLLECT-GARBAGE*"
-              "*CONTROL-STACK-EXHAUSTION-SAP*"
-              "*UNIVERSAL-TYPE*" "*UNIVERSAL-FUN-TYPE*"
-              "*UNPARSE-FUN-TYPE-SIMPLIFY*" "*WILD-TYPE*"
-              "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
-              "WORD-LOGICAL-ANDC2"
-              "WORD-LOGICAL-EQV" "WORD-LOGICAL-NAND"
-              "WORD-LOGICAL-NOR"
-              "WORD-LOGICAL-NOT" "WORD-LOGICAL-OR"
-              "WORD-LOGICAL-ORC1"
-              "WORD-LOGICAL-ORC2" "WORD-LOGICAL-XOR"
-              "ALIEN-TYPE-TYPE"
-              "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
-              "ALLOCATE-VECTOR"
-              "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
-              "COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
-              "DISABLED-PACKAGE-LOCKS"
-              "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
-              "PACKAGE-ERROR-FORMAT-ARGUMENTS"
-              "PACKAGE-ERROR-FORMAT-CONTROL"
-              "ALWAYS-SUBTYPEP" "ARGS-TYPE" "ARGS-TYPE-ALLOWP"
-              "ARGS-TYPE-KEYP"
-              "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
-              "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST"
-              "ARRAY-HEADER-P" "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
-              "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
-              "ARRAY-TYPE-P"
-              "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX"
-              "ASSERT-ERROR" "BASE-CHAR-P" "BASE-STRING-P"
-              "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY"
-              "BIT-INDEX" "BOGUS-ARG-TO-VALUES-LIST-ERROR"
-              "BOOLE-CODE"
-              "BOUNDING-INDICES-BAD-ERROR"
-              "BYTE-SPECIFIER"
-              "%BYTE-BLT"
-              "CALLABLE" "CASE-BODY-ERROR"
-              "CHARPOS"
-              "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR"
-              "CLOSED-FLAME"
-              "CODE-COMPONENT" "CODE-COMPONENT-P"
-              "CODE-DEBUG-INFO" "CODE-HEADER-REF" "CODE-HEADER-SET"
-              "CODE-INSTRUCTIONS"
-              "COERCE-TO-FUN" "COERCE-TO-LEXENV"
-              "COERCE-TO-LIST" "COERCE-TO-VALUES"
-              "COERCE-TO-VECTOR"
-              "*COLD-INIT-COMPLETE-P*"
-              "COMPLEX-DOUBLE-FLOAT-P"
-              "COMPLEX-FLOAT-P"
-              #!+long-float "COMPLEX-LONG-FLOAT-P"
-              "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P"
-              "COMPOUND-TYPE" "COMPOUND-TYPE-P" "COMPOUND-TYPE-TYPES"
-              "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE"
-              "CONS-TYPE-P"
-              "CONSED-SEQUENCE" "CONSTANT" "CONSTANT-TYPE"
-              "CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE"
-              "CONTAINING-INTEGER-TYPE"
-              "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
-              "COPY-TO-SYSTEM-AREA"
-              "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
-              "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE"
-              "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
-              "CURRENT-DYNAMIC-SPACE-START"
-              "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
-              #!+long-float "DECODE-LONG-FLOAT"
-              "DECODE-SINGLE-FLOAT"
-              "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
-              "!DEFSTRUCT-WITH-ALTERNATE-METACLASS"
-              "DESCEND-INTO"
-              "DISPLACED-TO-ARRAY-TOO-SMALL-ERROR"
-              "DIVISION-BY-ZERO-ERROR"
-              "DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS"
-              "DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS"
-              "DOUBLE-FLOAT-SIGNIFICAND"
-              "FLOAT-WAIT"
-              "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
-              "EFFECTIVE-FIND-POSITION-TEST" "EFFECTIVE-FIND-POSITION-KEY"
-              "ERROR-NUMBER-OR-LOSE"
-              "FAILED-%WITH-ARRAY-DATA"
-              "FDEFINITION-OBJECT"
-              "FDOCUMENTATION" "FILENAME"
-              "FIND-AND-INIT-OR-CHECK-LAYOUT"
-              "FLOAT-EXPONENT"
-              "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME" "FLOAT-FORMAT-MAX"
-              "FLOAT-INT-EXPONENT"
-              "FLOATING-POINT-EXCEPTION"
-              "FORM"
-              "FORMAT-CONTROL"
-              "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
-              "FUN-CODE-HEADER"
-              "FUN-TYPE" "FUN-TYPE-ALLOWP"
-              "FUN-TYPE-KEYP" "FUN-TYPE-KEYWORDS"
-              "FUN-TYPE-NARGS" "FUN-TYPE-OPTIONAL"
-              "FUN-TYPE-P"
-              "FUN-TYPE-REQUIRED" "FUN-TYPE-REST"
-              "FUN-TYPE-RETURNS" "FUN-TYPE-WILD-ARGS"
-              "FUN-WORD-OFFSET"
-              "GENERALIZED-BOOLEAN"
-              "GET-CLOSURE-LENGTH"
-              "GET-HEADER-DATA"
-              "GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
-              "GET-MACHINE-VERSION"
-              "HAIRY-DATA-VECTOR-REF" "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
-              "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
-              "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT"
-              "ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT"
-              "INDEX-OR-MINUS-1"
-              "INDEX-TOO-LARGE-ERROR"
-              "*!INITIAL-ASSEMBLER-ROUTINES*"
-              "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
-              "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
-              "INTEGER-DECODE-DOUBLE-FLOAT"
-              #!+long-float "INTEGER-DECODE-LONG-FLOAT"
-              "INTEGER-DECODE-SINGLE-FLOAT"
-              "INTERNAL-ERROR" "INTERNAL-TIME"
-              "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
-              "INTERSECTION-TYPE-TYPES"
-              "INVALID-ARG-COUNT-ERROR" "INVALID-ARRAY-INDEX-ERROR"
-              "INVALID-UNWIND-ERROR" "IRRATIONAL"
-              "JUST-DUMP-IT-NORMALLY"
-              "KEY-INFO" "KEY-INFO-NAME"
-              "KEY-INFO-P" "KEY-INFO-TYPE"
-              "LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
-              #!+x86 "%LEA"
-              "LEXENV" "LEXENV-DESIGNATOR"
-              "LINE-LENGTH"
-              "ANSI-STREAM"
-              "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT"
-              "ANSI-STREAM-CLOSE"
-              "ANSI-STREAM-ELEMENT-TYPE"
-              "ANSI-STREAM-IN" "ANSI-STREAM-IN-BUFFER"
-              "ANSI-STREAM-IN-INDEX"
-              "ANSI-STREAM-INPUT-STREAM-P"
-              "ANSI-STREAM-MISC" "ANSI-STREAM-N-BIN"
-              "ANSI-STREAM-OPEN-STREAM-P"
-              "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
-              "ANSI-STREAM-OUTPUT-STREAM-P"
-              "LIST-TO-VECTOR*" 
-              "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
-              #!+long-float "LONG-FLOAT-EXPONENT"
-              #!+long-float "LONG-FLOAT-EXP-BITS"
-              #!+long-float "LONG-FLOAT-HIGH-BITS"
-              #!+long-float "LONG-FLOAT-LOW-BITS"
-              #!+long-float "LONG-FLOAT-MID-BITS"
-              "LONG-WORDS"
-              "LRA" "LRA-CODE-HEADER" "LRA-P"
-              "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
-              "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
-              "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE"
-              "MAKE-KEY-INFO" "MAKE-LISP-OBJ"
-              #!+long-float "MAKE-LONG-FLOAT"
-              "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE"
-              "MAKE-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
-              "MAKE-NUMERIC-TYPE"
-              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
-              "MAKE-UNPORTABLE-FLOAT"
-              "%MAKE-INSTANCE"
-              "MAKE-SHORT-VALUES-TYPE"
-              "MAKE-SINGLE-VALUE-TYPE"
-              "MAKE-VALUE-CELL"
-              "MAKE-VALUES-TYPE"
-              "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS"
-              "MEMBER-TYPE-P" "MERGE-BITS" "MODIFIED-NUMERIC-TYPE"
-              "MUTATOR-SELF"
-              "NAMED-TYPE" "NAMED-TYPE-NAME" "NAMED-TYPE-P"
-              "NATIVE-BYTE-ORDER" "NEGATE"
-              "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
-              "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
-              "NIL-FUN-RETURNED-ERROR"
-              "NOT-<=-ERROR" "NOT-=-ERROR"
-              "NOT-DUMPED-AT-ALL"
-              "NUMERIC-CONTAGION" "NUMERIC-TYPE"
-              "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
-              "NUMERIC-TYPE-EQUAL"
-              "NUMERIC-TYPE-FORMAT"
-              "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
-              "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
-              "OBJECT-NOT-BASE-STRING-ERROR"
-              "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR"
-              "OBJECT-NOT-COMPLEX-ERROR"
-              "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
-              "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
-              #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
-              "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
-              "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
-              ;; FIXME: It's confusing using "complex" to mean
-              ;; both "not on the real number line" and "not of
-              ;; a SIMPLE-ARRAY nature". Perhaps we could rename
-              ;; all the uses in the second sense as "hairy" instead?
-              "OBJECT-NOT-COMPLEX-VECTOR-ERROR"
-              "OBJECT-NOT-CONS-ERROR"
-              "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
-              "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
-              "OBJECT-NOT-INSTANCE-ERROR"
-              "OBJECT-NOT-INTEGER-ERROR"
-              "OBJECT-NOT-LIST-ERROR"
-              #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
-              "OBJECT-NOT-NUMBER-ERROR"
-              "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR"
-              "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR"
-              "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
-              #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
-              #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-NIL-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-15-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
-              ;; KLUDGE: 32-bit and 64-bit ports implement a
-              ;; different set of specialized array types.
-              ;; Various bits of code in SBCL assume that
-              ;; symbols connected to the specialized array
-              ;; types are exported.  But there's not a good
-              ;; way at this point to know whether the port
-              ;; for which we're building is 32-bit or 64-bit.
-              ;; Granted, we could hardcode the particulars
-              ;; (or even come up with a special :64BIT feature),
-              ;; but that seems a little inelegant.  For now,
-              ;; we brute-force the issue by always exporting
-              ;; all the names required for both 32-bit and 64-bit
-              ;; ports.  Other bits connected to the same issue
-              ;; are noted throughout the code below with the
-              ;; tag "32/64-bit issues".  --njf, 2004-08-09
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-29-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-31-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
-              ;; FIXME: 32/64-bit issues
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-60-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-63-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-64-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-7-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
-              ;; FIXME: 32/64-bit issues
-              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
-              ;; FIXME: 32/64-bit issues
-              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-61-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-64-ERROR"
-              "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
-              "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
-              "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR"
-              "OBJECT-NOT-SIMPLE-STRING-ERROR"
-              "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
-              "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
-              "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
-              "OBJECT-NOT-TYPE-ERROR"
-              "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
-              "OBJECT-NOT-VECTOR-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"
-              "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
-              "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
-              "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
-              #!+x86 "*PSEUDO-ATOMIC-ATOMIC*"
-              #!+x86 "*PSEUDO-ATOMIC-INTERRUPTED*"
-              "PUNT-PRINT-IF-TOO-LONG"
-              "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR"
-              "READER-EOF-ERROR"
-              "RESTART-DESIGNATOR"
-              "SCALE-DOUBLE-FLOAT"
-              #!+long-float "SCALE-LONG-FLOAT"
-              "SCALE-SINGLE-FLOAT"
-              "SEQUENCE-COUNT"
-              "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
-              "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
-              "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "SIGNED-BYTE-32-P"
-              "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
-              #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
-              "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
-              "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
-              #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
-              "SIMPLE-ARRAY-NIL-P"
-              "SIMPLE-ARRAY-P"
-              "SIMPLE-ARRAY-SINGLE-FLOAT-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-15-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-29-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-31-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-60-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-63-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-64-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-7-P"
-              "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
-              "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
-              "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
-              "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
-              ;; FIXME: 32/64-bit issues
-              "SIMPLE-ARRAY-SIGNED-BYTE-61-P"
-              "SIMPLE-ARRAY-SIGNED-BYTE-64-P"
-              "SIMPLE-ARRAY-SIGNED-BYTE-8-P"
-              "SIMPLE-BASE-STRING-P"
-              "SIMPLE-PACKAGE-ERROR"
-              "SIMPLE-UNBOXED-ARRAY"
-              "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
-              "SINGLE-FLOAT-INT-EXPONENT"
-              "SINGLE-FLOAT-SIGNIFICAND"
-              "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
-              "SPECIALIZABLE" "SPECIALIZABLE-VECTOR"
-              "SPECIFIER-TYPE" "STACK-REF"
-              "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
-              "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE"
-              "SUB-GC"
-              "SYMBOLS-DESIGNATOR"
-              "%INSTANCE-LENGTH"
-              "%INSTANCE-REF" "%INSTANCE-SET"
-              "SYSTEM-AREA-CLEAR"
-              "SYSTEM-AREA-COPY"
-              "TWO-ARG-*"
-              "TWO-ARG-+" "TWO-ARG--"
-              "TWO-ARG-/" "TWO-ARG-/=" "TWO-ARG-<"
-              "TWO-ARG-<=" "TWO-ARG-="
-              "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND"
-              "TWO-ARG-EQV" "TWO-ARG-GCD" "TWO-ARG-IOR"
-              "TWO-ARG-LCM" "TWO-ARG-XOR"
-              "TYPE-DIFFERENCE" "TYPE-EXPAND"
-              "TYPE-INTERSECTION" "TYPE-INTERSECTION2"
-              "TYPE-APPROX-INTERSECTION2"
-              "TYPE-SINGLE-VALUE-P"
-              "TYPE-SPECIFIER" "TYPE-UNION" "TYPE/=" "TYPE="
-              "TYPES-EQUAL-OR-INTERSECT"
-              "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
-              "UNDEFINED-FUN-ERROR" "UNION-TYPE" "UNION-TYPE-P"
-              "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
-              "UNKNOWN-KEY-ARG-ERROR"
-              "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
-              "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
-              "UNSIGNED-BYTE-32-P"
-              "VALUE-CELL-REF" "VALUE-CELL-SET"
-              "VALUES-SPECIFIER-TYPE"
-              "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
-              "VALUES-TYPE"
-              "VALUES-TYPE-ERROR"
-              "VALUES-TYPE-IN"
-              "VALUES-TYPE-INTERSECTION"
-              "VALUES-TYPE-OPTIONAL"
-              "VALUES-TYPE-OUT"
-              "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
-              "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
-              "VALUES-TYPE-TYPES" "VALUES-TYPES"
-              "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
-              "VECTOR-NIL-P"
-              "VECTOR-TO-VECTOR*"
-              "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH"
-              "WITH-ARRAY-DATA"
-              "WRONG-NUMBER-OF-INDICES-ERROR"
-
-              "FDEFN" "MAKE-FDEFN" "FDEFN-P"
-              "FDEFN-NAME" "FDEFN-FUN"
-              "FDEFN-MAKUNBOUND" "OUTER-FDEFN"
-              "%COERCE-CALLABLE-TO-FUN"
-              "FUN-SUBTYPE" "*MAXIMUM-ERROR-DEPTH*"
-              "%SET-SYMBOL-PLIST" "INFINITE-ERROR-PROTECT"
-              "FIND-CALLER-NAME-AND-FRAME"
-              "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
-              "OUTPUT-SYMBOL-NAME"
-              "%COERCE-NAME-TO-FUN"
-              "INVOKE-MACROEXPAND-HOOK"
-              "DEFAULT-STRUCTURE-PRINT"
-              "LAYOUT" "LAYOUT-LENGTH"
-              "LAYOUT-PURE" "DSD-RAW-TYPE"
-              "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
-              "DD-COPIER" "UNDEFINE-FUN-NAME" "DD-TYPE"
-              "CLASSOID-STATE" "INSTANCE"
-              "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT"
-              "DSD-NAME" "%TYPEP" "DD-RAW-INDEX"
-              "DD-NAME" "CLASSOID-SUBCLASSES"
-              "CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
-              "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
-              "%CODE-CODE-SIZE" "DD-SLOTS"
-              "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
-              "%IMAGPART" "DSD-ACCESSOR-NAME"
-              "%CODE-DEBUG-INFO"
-              "LAYOUT-CLASSOID" "LAYOUT-INVALID"
-              "%SIMPLE-FUN-NAME" "DSD-TYPE" "%INSTANCEP"
-              "DEFSTRUCT-SLOT-DESCRIPTION" "%SIMPLE-FUN-ARGLIST"
-              "%SIMPLE-FUN-NEXT" "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE-NAME"
-              "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
-              "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
-              "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"
-              "STRUCTURE-CLASSOID-P" "DSD-INDEX"
-              "STRUCTURE-CLASSOID"
-              "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH"
-              "%SIMPLE-FUN-TYPE" "PROCLAIM-AS-FUN-NAME"
-              "BECOME-DEFINED-FUN-NAME"
-              "%NUMERATOR" "CLASSOID-TYPEP"
-              "DSD-READ-ONLY"
-              "DSD-DEFAULT"
-              "LAYOUT-INHERITS" "DD-LENGTH" "%CODE-ENTRY-POINTS"
-              "%DENOMINATOR"
-
-              "STANDARD-CLASSOID"
-              "CLASSOID-OF"
-              "MAKE-STANDARD-CLASSOID"
-              "CLASSOID-CELL-TYPEP" 
-              "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
-              "FUNCALLABLE-STRUCTURE-CLASSOID"
-              "%RANDOM-DOUBLE-FLOAT"
-              #!+long-float "%RANDOM-LONG-FLOAT"
-              "%RANDOM-SINGLE-FLOAT"
-              "RANDOM-PCL-CLASSOID" 
-              "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK"
-              "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID" "LAYOUT-CLOS-HASH-MAX"
-              "CLASSOID-CELL-NAME" "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
-              "BUILT-IN-CLASSOID-TRANSLATION"
-              "RANDOM-LAYOUT-CLOS-HASH"
-              "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
-              "FUNCALLABLE-INSTANCE-FUN"
-              "%FUNCALLABLE-INSTANCE-LAYOUT"
-              "BASIC-STRUCTURE-CLASSOID" 
-              "CLASSOID-CELL-CLASSOID"
-              "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
-              "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
-              "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
-              "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
-              "%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
-
-              "BUILT-IN-CLASSOID"
-              "CONDITION-CLASSOID-P" "CONDITION-CLASSOID-SLOTS"
-              "MAKE-UNDEFINED-CLASSOID" "FIND-CLASSOID" "CLASSOID"
-              "CLASSOID-DIRECT-SUPERCLASSES" "MAKE-LAYOUT"
-              "REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
-              "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
-              "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
-
-              ;; symbols from former SB!CONDITIONS
-              "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
-              "*CONDITION-RESTARTS*"
-              "SHOW-CONDITION" "CASE-FAILURE"
-              "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
-              "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
-
-              "CONDITION-READER-FUNCTION" "CONDITION-WRITER-FUNCTION"
+               "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR"
+               "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P"
+               "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER"
+               "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK" "%ASIN" "%ASINH"
+               "%ATAN" "%ATAN2" "%ATANH" "%CALLER-FRAME-AND-PC"
+               "%CHECK-BOUND" "%CHECK-VECTOR-SEQUENCE-BOUNDS"
+               "%CLOSURE-FUN" "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
+               "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD"
+               "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1" "%FIND-POSITION"
+               "%FIND-POSITION-VECTOR-MACRO" "%FIND-POSITION-IF"
+               "%FIND-POSITION-IF-VECTOR-MACRO" "%FIND-POSITION-IF-NOT"
+               "%FIND-POSITION-IF-NOT-VECTOR-MACRO" "%FUN-DOC"
+               "%FUN-NAME" "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10"
+               "%LOG1P"
+               #!+long-float "%LONG-FLOAT"
+               "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE"
+               "%MAKE-RATIO" "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1"
+               "%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE"
+               "%MAP-TO-NIL-ON-SIMPLE-VECTOR" "%MAP-TO-NIL-ON-VECTOR"
+               "%MASK-FIELD" "%NEGATE" "%POW" "%PUTHASH" "%RAW-BITS"
+               "%RAW-REF-COMPLEX-DOUBLE" "%RAW-REF-COMPLEX-LONG"
+               "%RAW-REF-COMPLEX-SINGLE" "%RAW-REF-DOUBLE"
+               "%RAW-REF-LONG" "%RAW-REF-SINGLE"
+               "%RAW-SET-COMPLEX-DOUBLE" "%RAW-SET-COMPLEX-LONG"
+               "%RAW-SET-COMPLEX-SINGLE" "%RAW-SET-DOUBLE"
+               "%RAW-SET-LONG" "%RAW-SET-SINGLE" "%SCALB" "%SCALBN"
+               "%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-FUN"
+               "%SET-FUNCALLABLE-INSTANCE-INFO" "%SET-RAW-BITS"
+               "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
+               "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
+               "%SET-SAP-REF-LONG" "%SET-SAP-REF-SAP"
+               "%SET-SAP-REF-SINGLE" "%SET-SIGNED-SAP-REF-16"
+               "%SET-SIGNED-SAP-REF-32" "%SET-SIGNED-SAP-REF-64"
+               "%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"
+               "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
+               "%WITH-ARRAY-DATA" "%WITH-ARRAY-DATA-MACRO"
+               "*ALREADY-MAYBE-GCING*" "*CURRENT-LEVEL-IN-PRINT*"
+               "*EMPTY-TYPE*" "*GC-INHIBIT*" "*NEED-TO-COLLECT-GARBAGE*"
+               "*CONTROL-STACK-EXHAUSTION-SAP*" "*UNIVERSAL-TYPE*"
+               "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*"
+               "*WILD-TYPE*" "WORD-LOGICAL-AND" "WORD-LOGICAL-ANDC1"
+               "WORD-LOGICAL-ANDC2" "WORD-LOGICAL-EQV"
+               "WORD-LOGICAL-NAND" "WORD-LOGICAL-NOR" "WORD-LOGICAL-NOT"
+               "WORD-LOGICAL-OR" "WORD-LOGICAL-ORC1" "WORD-LOGICAL-ORC2"
+               "WORD-LOGICAL-XOR" "ALIEN-TYPE-TYPE"
+               "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P"
+               "ALLOCATE-VECTOR" "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
+               "COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
+               "DISABLED-PACKAGE-LOCKS"
+               "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
+               "PACKAGE-ERROR-FORMAT-ARGUMENTS"
+               "PACKAGE-ERROR-FORMAT-CONTROL" "ALWAYS-SUBTYPEP"
+               "ARGS-TYPE" "ARGS-TYPE-ALLOWP" "ARGS-TYPE-KEYP"
+               "ARGS-TYPE-KEYWORDS" "ARGS-TYPE-OPTIONAL" "ARGS-TYPE-P"
+               "ARGS-TYPE-REQUIRED" "ARGS-TYPE-REST" "ARRAY-HEADER-P"
+               "ARRAY-TYPE" "ARRAY-TYPE-COMPLEXP"
+               "ARRAY-TYPE-DIMENSIONS" "ARRAY-TYPE-ELEMENT-TYPE"
+               "ARRAY-TYPE-P" "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE"
+               "ASH-INDEX" "ASSERT-ERROR" "BASE-CHAR-P" "BASE-STRING-P"
+               "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY" "BIT-INDEX"
+               "BOGUS-ARG-TO-VALUES-LIST-ERROR" "BOOLE-CODE"
+               "BOUNDING-INDICES-BAD-ERROR" "BYTE-SPECIFIER" "%BYTE-BLT"
+               "CALLABLE" "CASE-BODY-ERROR" "CHARPOS"
+               "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR" "CLOSED-FLAME"
+               "CODE-COMPONENT" "CODE-COMPONENT-P" "CODE-DEBUG-INFO"
+               "CODE-HEADER-REF" "CODE-HEADER-SET" "CODE-INSTRUCTIONS"
+               "COERCE-TO-FUN" "COERCE-TO-LEXENV" "COERCE-TO-LIST"
+               "COERCE-TO-VALUES" "COERCE-TO-VECTOR"
+               "*COLD-INIT-COMPLETE-P*" "COMPLEX-DOUBLE-FLOAT-P"
+               "COMPLEX-FLOAT-P"
+               #!+long-float "COMPLEX-LONG-FLOAT-P"
+               "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P"
+               "COMPLEX-VECTOR-P" "COMPOUND-TYPE" "COMPOUND-TYPE-P"
+               "COMPOUND-TYPE-TYPES" "CONS-TYPE" "CONS-TYPE-CAR-TYPE"
+               "CONS-TYPE-CDR-TYPE" "CONS-TYPE-P" "CONSED-SEQUENCE"
+               "CONSTANT" "CONSTANT-TYPE" "CONSTANT-TYPE-P"
+               "CONSTANT-TYPE-TYPE" "CONTAINING-INTEGER-TYPE"
+               "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA"
+               "COPY-TO-SYSTEM-AREA" "COPY-BYTE-VECTOR-TO-SYSTEM-AREA"
+               "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE" "CTYPE-OF"
+               "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP"
+               "CURRENT-DYNAMIC-SPACE-START" "DATA-VECTOR-REF"
+               "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT"
+               #!+long-float "DECODE-LONG-FLOAT"
+               "DECODE-SINGLE-FLOAT"
+               "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
+               "!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO"
+               "DISPLACED-TO-ARRAY-TOO-SMALL-ERROR"
+               "DIVISION-BY-ZERO-ERROR" "DOUBLE-FLOAT-EXPONENT"
+               "DOUBLE-FLOAT-HIGH-BITS" "DOUBLE-FLOAT-INT-EXPONENT"
+               "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-SIGNIFICAND"
+               "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
+               "EFFECTIVE-FIND-POSITION-TEST"
+               "EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE"
+               "FAILED-%WITH-ARRAY-DATA" "FDEFINITION-OBJECT"
+               "FDOCUMENTATION" "FILENAME"
+               "FIND-AND-INIT-OR-CHECK-LAYOUT" "FLOAT-EXPONENT"
+               "FLOAT-FORMAT-DIGITS" "FLOAT-FORMAT-NAME"
+               "FLOAT-FORMAT-MAX" "FLOAT-INT-EXPONENT"
+               "FLOATING-POINT-EXCEPTION" "FORM" "FORMAT-CONTROL"
+               "*FREE-INTERRUPT-CONTEXT-INDEX*" "FUNCALLABLE-INSTANCE-P"
+               "FUN-CODE-HEADER" "FUN-TYPE" "FUN-TYPE-ALLOWP"
+               "FUN-TYPE-KEYP" "FUN-TYPE-KEYWORDS" "FUN-TYPE-NARGS"
+               "FUN-TYPE-OPTIONAL" "FUN-TYPE-P" "FUN-TYPE-REQUIRED"
+               "FUN-TYPE-REST" "FUN-TYPE-RETURNS" "FUN-TYPE-WILD-ARGS"
+               "FUN-WORD-OFFSET" "GENERALIZED-BOOLEAN"
+               "GET-CLOSURE-LENGTH" "GET-HEADER-DATA"
+               "GET-LISP-OBJ-ADDRESS" "LOWTAG-OF" "WIDETAG-OF"
+               "GET-MACHINE-VERSION" "HAIRY-DATA-VECTOR-REF"
+               "HAIRY-DATA-VECTOR-SET" "HAIRY-TYPE"
+               "HAIRY-TYPE-CHECK-TEMPLATE-NAME" "HAIRY-TYPE-SPECIFIER"
+               "HANDLE-CIRCULARITY" "HOST" "IGNORE-IT" "ILL-BIN"
+               "ILL-BOUT" "ILL-IN" "ILL-OUT" "INDEX-OR-MINUS-1"
+               "INDEX-TOO-LARGE-ERROR" "*!INITIAL-ASSEMBLER-ROUTINES*"
+               "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*"
+               "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*"
+               "INTEGER-DECODE-DOUBLE-FLOAT"
+               #!+long-float "INTEGER-DECODE-LONG-FLOAT"
+               "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-ERROR"
+               "INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P"
+               "INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR"
+               "INVALID-ARRAY-INDEX-ERROR" "INVALID-UNWIND-ERROR"
+               "IRRATIONAL" "JUST-DUMP-IT-NORMALLY" "KEY-INFO"
+               "KEY-INFO-NAME" "KEY-INFO-P" "KEY-INFO-TYPE"
+               "LAYOUT-DEPTHOID" "LAYOUT-INVALID-ERROR"
+               #!+x86 "%LEA"
+               "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM"
+               "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE"
+               "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN"
+               "ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX"
+               "ANSI-STREAM-INPUT-STREAM-P" "ANSI-STREAM-MISC"
+               "ANSI-STREAM-N-BIN" "ANSI-STREAM-OPEN-STREAM-P"
+               "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT"
+               "ANSI-STREAM-OUTPUT-STREAM-P" "LIST-TO-VECTOR*"
+               "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR"
+               #!+long-float "LONG-FLOAT-EXPONENT" !+long-float
+               #"LONG-FLOAT-EXP-BITS" !+long-float
+               #"LONG-FLOAT-HIGH-BITS" !+long-float
+               #"LONG-FLOAT-LOW-BITS" !+long-float "LONG-FLOAT-MID-BITS"
+               "LONG-WORDS" "LRA" "LRA-CODE-HEADER" "LRA-P"
+               "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
+               "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
+               "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE" "MAKE-KEY-INFO"
+               "MAKE-LISP-OBJ"
+               #!+long-float "MAKE-LONG-FLOAT"
+               "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV"
+               "MAKE-NULL-INTERACTIVE-LEXENV" "MAKE-NUMERIC-TYPE"
+               "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
+               "MAKE-UNPORTABLE-FLOAT" "%MAKE-INSTANCE"
+               "MAKE-SHORT-VALUES-TYPE" "MAKE-SINGLE-VALUE-TYPE"
+               "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE" "MEMBER-TYPE"
+               "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P" "MERGE-BITS"
+               "MODIFIED-NUMERIC-TYPE" "MUTATOR-SELF" "NAMED-TYPE"
+               "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
+               "NEGATE" "NEGATION-TYPE" "NEGATION-TYPE-TYPE"
+               "NEVER-SUBTYPEP" "NIL-ARRAY-ACCESSED-ERROR"
+               "NIL-FUN-RETURNED-ERROR" "NOT-<=-ERROR" "NOT-=-ERROR"
+               "NOT-DUMPED-AT-ALL" "NUMERIC-CONTAGION" "NUMERIC-TYPE"
+               "NUMERIC-TYPE-CLASS" "NUMERIC-TYPE-COMPLEXP"
+               "NUMERIC-TYPE-EQUAL" "NUMERIC-TYPE-FORMAT"
+               "NUMERIC-TYPE-HIGH" "NUMERIC-TYPE-LOW" "NUMERIC-TYPE-P"
+               "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-BASE-CHAR-ERROR"
+               "OBJECT-NOT-BASE-STRING-ERROR" "OBJECT-NOT-BIGNUM-ERROR"
+               "OBJECT-NOT-BIT-VECTOR-ERROR" "OBJECT-NOT-COMPLEX-ERROR"
+               "OBJECT-NOT-COMPLEX-FLOAT-ERROR"
+               "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR"
+               #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR"
+               "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR"
+               "OBJECT-NOT-COMPLEX-RATIONAL-ERROR"
+               ;; FIXME: It's confusing using "complex" to mean both
+               ;; "not on the real number line" and "not of a
+               ;; SIMPLE-ARRAY nature". Perhaps we could rename all the
+               ;; uses in the second sense as "hairy" instead?
+               "OBJECT-NOT-COMPLEX-VECTOR-ERROR" "OBJECT-NOT-CONS-ERROR"
+               "OBJECT-NOT-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-FIXNUM-ERROR"
+               "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR"
+               "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-INTEGER-ERROR"
+               "OBJECT-NOT-LIST-ERROR"
+               #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR"
+               "OBJECT-NOT-NUMBER-ERROR" "OBJECT-NOT-RATIO-ERROR"
+               "OBJECT-NOT-RATIONAL-ERROR" "OBJECT-NOT-REAL-ERROR"
+               "OBJECT-NOT-SAP-ERROR" "OBJECT-NOT-SIGNED-BYTE-32-ERROR"
+               ;; FIXME: 32/64-bit issues
+               "OBJECT-NOT-SIGNED-BYTE-64-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR"
+               #!+long-float
+               #"OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-ERROR"
+               #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-NIL-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-15-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR"
+               ;; KLUDGE: 32-bit and 64-bit ports implement a different
+               ;; set of specialized array types.  Various bits of code
+               ;; in SBCL assume that symbols connected to the
+               ;; specialized array types are exported.  But there's not
+               ;; a good way at this point to know whether the port for
+               ;; which we're building is 32-bit or 64-bit.  Granted, we
+               ;; could hardcode the particulars (or even come up with a
+               ;; special :64BIT feature), but that seems a little
+               ;; inelegant.  For now, we brute-force the issue by
+               ;; always exporting all the names required for both
+               ;; 32-bit and 64-bit ports.  Other bits connected to the
+               ;; same issue are noted throughout the code below with
+               ;; the tag "32/64-bit issues".  --njf, 2004-08-09
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-29-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-31-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-32-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-4-ERROR"
+               ;; FIXME: 32/64-bit issues
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-60-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-63-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-64-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-7-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-8-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-16-ERROR"
+               ;; FIXME: 32/64-bit issues
+               "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-30-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-32-ERROR"
+               ;; FIXME: 32/64-bit issues
+               "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-61-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-64-ERROR"
+               "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR"
+               "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR"
+               "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR"
+               "OBJECT-NOT-SIMPLE-STRING-ERROR"
+               "OBJECT-NOT-SIMPLE-VECTOR-ERROR"
+               "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR"
+               "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-SYMBOL-ERROR"
+               "OBJECT-NOT-TYPE-ERROR"
+               "OBJECT-NOT-UNSIGNED-BYTE-32-ERROR"
+               ;; FIXME: 32/64-bit issues
+               "OBJECT-NOT-UNSIGNED-BYTE-64-ERROR"
+               "OBJECT-NOT-VECTOR-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"
+               "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS"
+               "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE"
+               "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR"
+               #!+x86 "*PSEUDO-ATOMIC-ATOMIC*" !+x86
+               #"*PSEUDO-ATOMIC-INTERRUPTED*"
+               "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR"
+               "READER-PACKAGE-ERROR" "READER-EOF-ERROR"
+               "RESTART-DESIGNATOR" "SCALE-DOUBLE-FLOAT"
+               #!+long-float "SCALE-LONG-FLOAT"
+               "SCALE-SINGLE-FLOAT" "SEQUENCE-COUNT" "SEQUENCE-END"
+               "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE"
+               "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END"
+               "SHIFT-TOWARDS-START" "SHRINK-VECTOR"
+               ;; FIXME: 32/64-bit issues
+               "SIGNED-BYTE-32-P" "SIGNED-BYTE-64-P"
+               "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P"
+               #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P"
+               "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P"
+               "SIMPLE-ARRAY-DOUBLE-FLOAT-P"
+               #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P"
+               "SIMPLE-ARRAY-NIL-P" "SIMPLE-ARRAY-P"
+               "SIMPLE-ARRAY-SINGLE-FLOAT-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-15-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-2-P"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-29-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-31-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-32-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-4-P"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-60-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-63-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-64-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-7-P"
+               "SIMPLE-ARRAY-UNSIGNED-BYTE-8-P"
+               "SIMPLE-ARRAY-SIGNED-BYTE-16-P"
+               "SIMPLE-ARRAY-SIGNED-BYTE-30-P"
+               "SIMPLE-ARRAY-SIGNED-BYTE-32-P"
+               ;; FIXME: 32/64-bit issues
+               "SIMPLE-ARRAY-SIGNED-BYTE-61-P"
+               "SIMPLE-ARRAY-SIGNED-BYTE-64-P"
+               "SIMPLE-ARRAY-SIGNED-BYTE-8-P" "SIMPLE-BASE-STRING-P"
+               "SIMPLE-PACKAGE-ERROR" "SIMPLE-UNBOXED-ARRAY"
+               "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT"
+               "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND"
+               "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE"
+               "SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
+               "STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
+               "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
+               "SYMBOLS-DESIGNATOR" "%INSTANCE-LENGTH" "%INSTANCE-REF"
+               "%INSTANCE-SET" "SYSTEM-AREA-CLEAR" "SYSTEM-AREA-COPY"
+               "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
+               "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
+               "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"
+               "TWO-ARG-GCD" "TWO-ARG-IOR" "TWO-ARG-LCM" "TWO-ARG-XOR"
+               "TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION"
+               "TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2"
+               "TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
+               "TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
+               "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
+               "UNDEFINED-FUN-ERROR" "UNION-TYPE" "UNION-TYPE-P"
+               "UNION-TYPE-TYPES" "UNKNOWN-ERROR"
+               "UNKNOWN-KEY-ARG-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
+               "UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
+               ;; FIXME: 32/64-bit issues
+               "UNSIGNED-BYTE-32-P" "UNSIGNED-BYTE-64-P"
+               "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-SPECIFIER-TYPE"
+               "VALUES-SPECIFIER-TYPE-CACHE-CLEAR" "VALUES-SUBTYPEP"
+               "VALUES-TYPE" "VALUES-TYPE-ERROR" "VALUES-TYPE-IN"
+               "VALUES-TYPE-INTERSECTION" "VALUES-TYPE-OPTIONAL"
+               "VALUES-TYPE-OUT" "VALUES-TYPE-P" "VALUES-TYPE-REQUIRED"
+               "VALUES-TYPE-REST" "VALUES-TYPE-UNION"
+               "VALUES-TYPE-TYPES" "VALUES-TYPES"
+               "VALUES-TYPES-EQUAL-OR-INTERSECT" "VECTOR-T-P"
+               "VECTOR-NIL-P" "VECTOR-TO-VECTOR*"
+               "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
+               "WRONG-NUMBER-OF-INDICES-ERROR"
+
+               "FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
+               "FDEFN-MAKUNBOUND" "OUTER-FDEFN"
+               "%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
+               "*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
+               "INFINITE-ERROR-PROTECT" "FIND-CALLER-NAME-AND-FRAME"
+               "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE"
+               "OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
+               "INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
+               "LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
+               "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE" "DD-COPIER"
+               "UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
+               "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
+               "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASSOID-SUBCLASSES"
+               "CLASSOID-LAYOUT" "CLASSOID-NAME" "CLASSOID-P"
+               "DD-RAW-LENGTH" "NOTE-NAME-DEFINED" "%CODE-CODE-SIZE"
+               "DD-SLOTS" "DD-INCLUDE" "SLOT-SETTER-LAMBDA-FORM"
+               "%IMAGPART" "DSD-ACCESSOR-NAME" "%CODE-DEBUG-INFO"
+               "LAYOUT-CLASSOID" "LAYOUT-INVALID" "%SIMPLE-FUN-NAME"
+               "DSD-TYPE" "%INSTANCEP" "DEFSTRUCT-SLOT-DESCRIPTION"
+               "%SIMPLE-FUN-ARGLIST" "%SIMPLE-FUN-NEXT"
+               "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE-NAME"
+               "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
+               "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR"
+               "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART"
+               "STRUCTURE-CLASSOID-P" "DSD-INDEX" "STRUCTURE-CLASSOID"
+               "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH" "%SIMPLE-FUN-TYPE"
+               "PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME"
+               "%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY"
+               "DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH"
+               "%CODE-ENTRY-POINTS" "%DENOMINATOR"
+
+               "STANDARD-CLASSOID" "CLASSOID-OF"
+               "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP"
+               "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
+               "FUNCALLABLE-STRUCTURE-CLASSOID" "%RANDOM-DOUBLE-FLOAT"
+               #!+long-float "%RANDOM-LONG-FLOAT"
+               "%RANDOM-SINGLE-FLOAT" "RANDOM-PCL-CLASSOID"
+               "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK"
+               "MAKE-FUNCALLABLE-STRUCTURE-CLASSOID"
+               "LAYOUT-CLOS-HASH-MAX" "CLASSOID-CELL-NAME"
+               "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES"
+               "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH"
+               "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
+               "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
+               "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID"
+               "FUNCALLABLE-STRUCTURE-CLASSOID-P" "REGISTER-LAYOUT"
+               "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX"
+               "MAKE-RANDOM-PCL-CLASSOID" "INSTANCE-LAMBDA"
+               "%FUNCALLABLE-INSTANCE-LEXENV" "%MAKE-SYMBOL"
+               "%FUNCALLABLE-INSTANCE-FUN" "SYMBOL-HASH"
+
+               "BUILT-IN-CLASSOID" "CONDITION-CLASSOID-P"
+               "CONDITION-CLASSOID-SLOTS" "MAKE-UNDEFINED-CLASSOID"
+               "FIND-CLASSOID" "CLASSOID" "CLASSOID-DIRECT-SUPERCLASSES"
+               "MAKE-LAYOUT" "REDEFINE-LAYOUT-WARNING" "SLOT-CLASSOID"
+               "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS"
+               "STD-COMPUTE-CLASS-PRECEDENCE-LIST"
+
+               ;; symbols from former SB!CONDITIONS
+               "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*"
+               "*CONDITION-RESTARTS*" "SHOW-CONDITION" "CASE-FAILURE"
+               "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
+               "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+
+                        "CONDITION-READER-FUNCTION"
+                        "CONDITION-WRITER-FUNCTION"
             
-              "CONDITION-SLOT-ALLOCATION" "CONDITION-SLOT-DOCUMENTATION"
-              "CONDITION-SLOT-INITARGS" "CONDITION-SLOT-INITFORM"
-              "CONDITION-SLOT-INITFORM-P" "CONDITION-SLOT-NAME"
-              "CONDITION-SLOT-READERS" "CONDITION-SLOT-WRITERS"
+                        "CONDITION-SLOT-ALLOCATION"
+                        "CONDITION-SLOT-DOCUMENTATION"
+                        "CONDITION-SLOT-INITARGS"
+                        "CONDITION-SLOT-INITFORM"
+                        "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"
-              "!FUNCTION-NAMES-COLD-INIT"
-              "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
-              "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
-              "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
-              "!FIXUP-TYPE-COLD-INIT"
-              "!TARGET-TYPE-COLD-INIT" "!RANDOM-COLD-INIT"
-              "!READER-COLD-INIT" "!TYPECHECKFUNS-COLD-INIT"
-              "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
-              "!EXHAUST-COLD-INIT" 
-              "!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT"
-              "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT"
-              "!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT"
-              "!EARLY-PROCLAIM-COLD-INIT" "!LATE-PROCLAIM-COLD-INIT"
-              "!CLASS-FINALIZE" "GC-REINIT"
-
-              ;; Note: These are out of lexicographical order because in CMU CL
-              ;; they were defined as internal symbols in package "CL"
-              ;; imported into package "C", as opposed to what we're
-              ;; doing here, defining them as external symbols in a package
-              ;; which is used by both "SB!C" and "SB!IMPL". (SBCL's "SB!C" is
-              ;; directly analogous to CMU CL's "C"; and for this purpose,
-              ;; SBCL's "SB!IMPL" is analogous to CMU CL's "CL".) As far
-              ;; as I know there's nothing special about them, so they could
-              ;; be merged into the same order as everything else in the
-              ;; in this package. -- WHN 19990911
-              "STRING>=*" "STRING>*" "STRING=*"
-              "STRING<=*" "STRING<*" "STRING/=*"
-              "%SVSET" "%SP-STRING-COMPARE" "%SETNTH"
-              "%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
-              "%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD"
-              "%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET"
-              "%ARRAY-TYPEP" "%SET-SAP-REF-DESCRIPTOR"))
+                        "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF"
+                        "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT"
+                        "!FUNCTION-NAMES-COLD-INIT"
+                        "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT"
+                        "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT"
+                        "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT"
+                        "!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT"
+                        "!RANDOM-COLD-INIT" "!READER-COLD-INIT"
+                        "!TYPECHECKFUNS-COLD-INIT"
+                        "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT"
+                        "!EXHAUST-COLD-INIT" "!PACKAGE-COLD-INIT"
+                        "SIGNAL-COLD-INIT-OR-REINIT"
+                        "!POLICY-COLD-INIT-OR-RESANIFY"
+                        "!VM-TYPE-COLD-INIT" "!BACKQ-COLD-INIT"
+                        "!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT"
+                        "!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE"
+                        "GC-REINIT"
+
+                        ;; Note: These are out of lexicographical order
+                        ;; because in CMU CL they were defined as
+                        ;; internal symbols in package "CL" imported
+                        ;; into package "C", as opposed to what we're
+                        ;; doing here, defining them as external symbols
+                        ;; in a package which is used by both "SB!C" and
+                        ;; "SB!IMPL". (SBCL's "SB!C" is directly
+                        ;; analogous to CMU CL's "C"; and for this
+                        ;; purpose, SBCL's "SB!IMPL" is analogous to CMU
+                        ;; CL's "CL".) As far as I know there's nothing
+                        ;; special about them, so they could be merged
+                        ;; into the same order as everything else in the
+                        ;; in this package. -- WHN 19990911
+                        "STRING>=*" "STRING>*" "STRING=*" "STRING<=*"
+                        "STRING<*" "STRING/=*" "%SVSET"
+                        "%SP-STRING-COMPARE" "%SETNTH" "%SETELT"
+                        "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
+                        "%SET-FDEFINITION" "%SCHARSET" "%SBITSET"
+                        "%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET"
+                        "%ASET" "%ARRAY-TYPEP"
+                        "%SET-SAP-REF-DESCRIPTOR"))
 
    #s(sb-cold:package-data
       :name "SB!THREAD"
index d554a28..de26bcb 100644 (file)
           simple-array-complex-single-float-p
           simple-array-complex-double-float-p
           #!+long-float simple-array-complex-long-float-p
-          system-area-pointer-p realp unsigned-byte-32-p signed-byte-32-p
+          system-area-pointer-p realp
+           #!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
+           unsigned-byte-32-p
+           #!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
+           signed-byte-32-p
+           #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+           unsigned-byte-64-p
+           #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+           signed-byte-64-p
           vector-t-p weak-pointer-p code-component-p lra-p
           funcallable-instance-p)
   (t) boolean (movable foldable flushable))
 
 (sb!xc:deftype raw-vector () '(simple-array sb!vm:word (*)))
 
+;;; %RAW-{REF,SET}-FOO VOPs should be declared as taking a RAW-VECTOR
+;;; as their first argument (clarity and to match these DEFKNOWNs).
+;;; We declare RAW-VECTOR as a primitive type so the VOP machinery
+;;; will accept our VOPs as legitimate.  --njf, 2004-08-10
+(sb!vm::!def-primitive-type-alias raw-vector
+                                  #!+#.(cl:if (cl:= 32 sb!vm:n-word-bits) '(and) '(or))
+                                  sb!vm::simple-array-unsigned-byte-32
+                                  #!+#.(cl:if (cl:= 64 sb!vm:n-word-bits) '(and) '(or))
+                                  sb!vm::simple-array-unsigned-byte-64)
+
 (defknown %raw-ref-single (raw-vector index) single-float
   (foldable flushable))
 (defknown %raw-ref-double (raw-vector index) double-float
   (foldable flushable movable))
 
 (defknown (%ashl %ashr %digit-logical-shift-right)
-         (bignum-element-type (mod 32)) bignum-element-type
+         (bignum-element-type (mod #.sb!vm:n-word-bits)) bignum-element-type
   (foldable flushable movable))
 \f
 ;;;; bit-bashing routines
index 2a704af..b7ff23c 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.8.13.53"
+"0.8.13.54"