From: Nathan Froyd Date: Tue, 10 Aug 2004 15:38:13 +0000 (+0000) Subject: 0.8.13.54: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9d37c9e930d38b04a5e876c4a70357ca36d411a8;p=sbcl.git 0.8.13.54: 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. --- diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 6468c22..17e12bd 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -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" diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp index d554a28..de26bcb 100644 --- a/src/compiler/generic/vm-fndb.lisp +++ b/src/compiler/generic/vm-fndb.lisp @@ -51,7 +51,15 @@ 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)) @@ -114,6 +122,16 @@ (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 @@ -258,7 +276,7 @@ (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)) ;;;; bit-bashing routines diff --git a/version.lisp-expr b/version.lisp-expr index 2a704af..b7ff23c 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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"