Stop exporting unused symbols.

diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp
index 97b5a6e..0c86552 100644 (file)
--- a/contrib/sb-bsd-sockets/defpackage.lisp
+++ b/contrib/sb-bsd-sockets/defpackage.lisp
@@ -8,7 +8,7 @@
   (:export socket local-socket local-abstract-socket inet-socket
            make-local-socket make-inet-socket
            socket-bind socket-accept socket-connect
-           socket-send socket-receive socket-recv
+           socket-send socket-receive
            socket-name socket-peername socket-listen
            socket-close socket-file-descriptor
            socket-family socket-protocol socket-open-p
@@ -19,7 +19,6 @@
            host-ent-addresses host-ent-address
            host-ent-aliases host-ent-name
            name-service-error
-           getaddrinfo
            ;; not sure if these are really good names or not
            netdb-internal-error
            netdb-success-error

diff --git a/contrib/sb-introspect/introspect.lisp b/contrib/sb-introspect/introspect.lisp
index ff6152b..f4041fd 100644 (file)
--- a/contrib/sb-introspect/introspect.lisp
+++ b/contrib/sb-introspect/introspect.lisp
@@ -42,7 +42,6 @@
            "DEFINITION-SOURCE-CHARACTER-OFFSET"
            "DEFINITION-SOURCE-FILE-WRITE-DATE"
            "DEFINITION-SOURCE-PLIST"
-           "DEFINITION-NOT-FOUND" "DEFINITION-NAME"
            "FIND-FUNCTION-CALLEES"
            "FIND-FUNCTION-CALLERS"
            "MAP-ROOT"

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 91a5c88..5cd38ac 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -164,7 +164,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
       :export ("%ADD-WITH-CARRY"
                "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
                "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-REF-WITH-OFFSET"
-               "%BIGNUM-SET" "%BIGNUM-SET-WITH-OFFSET"
+               "%BIGNUM-SET"
                "%BIGNUM-SET-LENGTH" "%DIGIT-0-OR-PLUSP"
                "%DIGIT-LOGICAL-SHIFT-RIGHT"
                "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT"
@@ -172,15 +172,15 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "%MULTIPLY" "%MULTIPLY-AND-ADD"
                "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
                "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT"
-               "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE"
+               "BIGNUM-COMPARE"
                "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX"
-               "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
+               "BIGNUM-INTEGER-LENGTH"
                "BIGNUM-LOGBITP"
                "BIGNUM-LOGCOUNT" "BIGNUM-LOGICAL-AND"
                "BIGNUM-LOGICAL-IOR" "BIGNUM-LOGICAL-NOT"
                "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
                "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
-               "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
+               "MAKE-SMALL-BIGNUM"
                "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS"
                "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM"
                "%RANDOM-BIGNUM" "SUBTRACT-BIGNUM" "SXHASH-BIGNUM"))
@@ -227,7 +227,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "ALIEN-FUNCALL-SAVES-FP-AND-PC"
                "ALLOC-ALIEN-STACK-SPACE" "ALLOC-NUMBER-STACK-SPACE"
                "ALLOCATE-CODE-OBJECT" "ALLOCATE-FRAME"
-               "ALLOCATE-DYNAMIC-CODE-OBJECT" "ALLOCATE-FULL-CALL-FRAME"
+               "ALLOCATE-FULL-CALL-FRAME"
                "ALWAYS-TRANSLATABLE"
                "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET"
                "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE"
@@ -244,11 +244,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "CHECK-UNSIGNED-BYTE-32" "CHECK-UNSIGNED-BYTE-64"
                "CHECK-MOD-FIXNUM"
                "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP"
-               "CODE-CONSTANT-REF" "CODE-CONSTANT-SET"
                "*CODE-COVERAGE-INFO*"
                "COMPARE-AND-SWAP-SLOT"
                "COMPILE-IN-LEXENV"
-               "COMPILE-LAMBDA-FOR-DEFUN"
                "%COMPILER-DEFUN" "COMPILER-ERROR" "FATAL-COMPILER-ERROR"
                "COMPILER-NOTIFY"
                "COMPILER-STYLE-WARN" "COMPILER-WARN"
@@ -275,7 +273,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "DEFKNOWN" "DEFOPTIMIZER"
                "DEFTRANSFORM" "DERIVE-TYPE"
                "EMIT-BLOCK-HEADER"
-               "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP"
                "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN"
                "FAST-SYMBOL-VALUE"
                "FAST-SYMBOL-GLOBAL-VALUE"
@@ -292,7 +289,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "IF-EQ"
                "IMMEDIATE-TN-P"
                "INHIBIT-SAFEPOINTS"
-               "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
                "INSERT-STEP-CONDITIONS"
                "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
                "IR2-PHYSENV-NUMBER-STACK-P"
@@ -321,7 +317,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "PARSE-EVAL-WHEN-SITUATIONS"
                "POLICY"
                "%%POP-DX"
-               "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
+               "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
                "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP"
                "PRIMITIVE-TYPE-NAME"
                "PRIMITIVE-TYPE-INDIRECT-CELL-TYPE"
@@ -368,12 +364,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "LOCATION-NUMBER"
                "*COMPONENT-BEING-COMPILED*"
                "BLOCK-NUMBER"
-               "BACKEND"
                "IR2-BLOCK-BLOCK"
                "VOP-BLOCK"
                "*ASSEMBLY-OPTIMIZE*"
-               "LARGE-ALLOC"
-               "%SET-SIMPLE-FUN-SELF"
 
                "IMMEDIATE-CONSTANT-SC"
                "BOXED-IMMEDIATE-SC-P"
@@ -399,7 +392,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)"
                "MAKE-NLX-ENTRY-ARG-START-LOCATION"
                "GENERATE-CALL-SEQUENCE"
                "GENERATE-RETURN-SEQUENCE"
-               "EMIT-NOP"
                "LOCATION-NUMBER"
 
                "WITH-SOURCE-LOCATION"
@@ -423,12 +415,10 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*"
                "*METHOD-FRAME-STYLE*"
                "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*"
-               "*TRACE-FRAME*" "*TRACED-FUN-LIST*"
                "ARG"
                "INTERNAL-DEBUG" "VAR"
-               "*PRINT-LOCATION-KIND*"
-               "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
-               "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
+               "*STACK-TOP-HINT*"
+               "*TRACE-VALUES*"
                "*TRACE-ENCAPSULATE-DEFAULT*"
                "FRAME-HAS-DEBUG-TAG-P"
                "UNWIND-TO-FRAME-AND-CALL"
@@ -482,10 +472,10 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "FUN-DEBUG-FUN" "FUN-END-COOKIE-VALID-P"
                "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
                "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
-               "NO-DEBUG-FUN-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
+               "NO-DEBUG-FUN-RETURNS" "PREPROCESS-FOR-EVAL"
                "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT"
-               "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION"
-               "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR"
+               "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION"
+               "UNKNOWN-DEBUG-VAR"
                "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
 
    #s(sb-cold:package-data
@@ -494,21 +484,18 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
       :use ("CL" "SB!EXT" "SB!INT")
       :export ("*DISASSEM-INST-ALIGNMENT-BYTES*"
                "*DISASSEM-NOTE-COLUMN*" "*DISASSEM-OPCODE-COLUMN-WIDTH*"
-               "*DISASSEM-SCHEDULER-P*" "*DISASSEM-LOCATION-COLUMN-WIDTH*"
-               "ADD-COMMENT-HOOK" "ADD-HOOK" "ADD-NOTE-HOOK"
-               "ARG-VALUE" "CREATE-DSTATE" "DISASSEM-STATE"
+               "*DISASSEM-LOCATION-COLUMN-WIDTH*"
+               "ARG-VALUE" "DISASSEM-STATE"
                "DISASSEMBLE-CODE-COMPONENT"
                "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY"
                "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS"
-               "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP"
+               "DSTATE-GET-INST-PROP"
                "DSTATE-GET-PROP" "DSTATE-PUT-INST-PROP"
-               "DSTATE-NEXTPOS" "DSTATE-SEGMENT-LENGTH"
-               "DSTATE-SEGMENT-SAP" "DSTATE-SEGMENT-START"
-               "FIELD-TYPE" "FIND-INST" "GEN-FIELD-TYPE-DECL-FORM"
-               "GEN-INST-DECL-FORM" "GEN-INST-FORMAT-DECL-FORM"
+               "DSTATE-SEGMENT-SAP"
+               "FIND-INST"
                "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS"
                "GET-INST-SPACE" "HANDLE-BREAK-ARGS"
-               "INST" "INST-FORMAT" "LABEL-SEGMENTS"
+               "LABEL-SEGMENTS"
                "MAYBE-NOTE-ASSEMBLER-ROUTINE"
                "MAYBE-NOTE-ASSOCIATED-STORAGE-REF"
                "MAYBE-NOTE-NIL-INDEXED-OBJECT"
@@ -516,25 +503,25 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "MAYBE-NOTE-SINGLE-STORAGE-REF" "NOTE"
                "NOTE-CODE-CONSTANT" "PARAMS" "PRIN1-QUOTED-SHORT"
                "PRIN1-SHORT" "PRINT-BYTES"
-               "PRINT-CURRENT-ADDRESS" "PRINT-FIELD" "PRINT-INST"
-               "PRINT-INST-USING" "PRINT-NOTES-AND-NEWLINE"
-               "PRINT-WORDS" "SAP-REF-DCHUNK" "SEG-DEBUG-FUN"
-               "SEG-LENGTH" "SEG-START" "SEGMENT"
-               "SET-ADDRESS-PRINTING-RANGE" "SET-DISASSEM-PARAMS"
-               "SET-DSTATE-SEGMENT" "SIGN-EXTEND" "SPECIALIZE"
+               "PRINT-CURRENT-ADDRESS" "PRINT-INST"
+               "PRINT-NOTES-AND-NEWLINE"
+               "PRINT-WORDS" "SAP-REF-DCHUNK"
+               "SEG-LENGTH" "SEGMENT"
+               "SET-DISASSEM-PARAMS"
+               "SIGN-EXTEND" "SPECIALIZE"
                "GEN-PRINTER-DEF-FORMS-DEF-FORM" "MAKE-DSTATE"
                "DEFINE-ARG-TYPE" "GEN-ARG-TYPE-DEF-FORM"
                "READ-SIGNED-SUFFIX" "ADD-OFFS-HOOK"
                "MAKE-MEMORY-SEGMENT" "GEN-PREAMBLE-FORM"
                "MAKE-SEGMENT" "SEGMENT-OVERFLOW"
-               "SEG-VIRTUAL-LOCATION" "MAKE-DECODED-INST"
+               "SEG-VIRTUAL-LOCATION"
                "DCHUNK" "*DEFAULT-DSTATE-HOOKS*"
                "MAKE-CODE-SEGMENT" "MAKE-OFFS-HOOK"
                "DSTATE-SEGMENT" "DSTATE-CUR-OFFS"
                "PRINC16" "INSTRUCTION" "DEFINE-INSTRUCTION-FORMAT"
                "DSTATE-NEXT-OFFS" "INSTALL-INST-FLAVORS"
                "SEG-SAP-MAKER" "DISASSEMBLE-ASSEM-SEGMENT"
-               "GEN-CLEAR-INFO-FORM" "READ-SUFFIX"
+               "READ-SUFFIX"
                "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM"
                "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT"
                "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK"
@@ -579,8 +566,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "FASL-VALIDATE-STRUCTURE"
                "INITIAL-FUN-CORE-ENTRY-TYPE-CODE"
                "*!LOAD-TIME-VALUES*"
-               "LOAD-TYPE-PREDICATE"
                "MAX-CORE-SPACE-ID"
+               ;; FIXME: this are listed here so that genesis
+               ;; puts them into .h files, but they are not present in the resulting core
                "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE"
                "OPEN-FASL-OUTPUT" "PAGE-TABLE-CORE-ENTRY-TYPE-CODE"
                "READ-ONLY-CORE-SPACE-ID"
@@ -605,7 +593,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
       :name "SB!EXT"
       :doc "public: miscellaneous supported extensions to the ANSI Lisp spec"
       :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY")
-      :export (;; Information about how the program was invoked is
+      :export ( ;; Information about how the program was invoked is
                ;; nonstandard but very useful.
                "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*"
                "POSIX-GETENV" "POSIX-ENVIRON"
@@ -758,7 +746,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                ;; ..and inspector of compiler policy
                "DESCRIBE-COMPILER-POLICY"
                "RESTRICT-COMPILER-POLICY"
-               "WITH-COMPILER-POLICY"
 
                ;; a special form for breaking out of our "declarations
                ;; are assertions" default
@@ -961,10 +948,6 @@ possibly temporariliy, because it might be used internally."
                "INFO"
                "MAKE-INFO-ENVIRONMENT"
 
-               ;; GENSYM variant that appends the current non-nil block
-               ;; name to the string if possible
-               "BLOCK-GENSYM"
-
                ;; Calling a list of hook functions, plus error handling.
                "CALL-HOOKS"
 
@@ -973,7 +956,7 @@ possibly temporariliy, because it might be used internally."
                "CONSTANT-TYPEP"
 
                ;; stepping control
-               "*STEPPING*" "*STEP*"
+               "*STEPPING*"
 
                ;; packages grabbed once and for all
                "*KEYWORD-PACKAGE*" "*CL-PACKAGE*"
@@ -1027,11 +1010,9 @@ possibly temporariliy, because it might be used internally."
                "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS"
                "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE"
                "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR"
-               "C-STRING-ENCODING-ERROR" "C-STRING-ENCODING-ERROR-EXTERNAL-FORMAT"
-               "C-STRING-DECODING-ERROR" "C-STRING-DECODING-ERROR-EXTERNAL-FORMAT"
+               "C-STRING-ENCODING-ERROR"
+               "C-STRING-DECODING-ERROR"
                "ATTEMPT-RESYNC" "FORCE-END-OF-FILE"
-               "READ-UNREADABLE-REPLACEMENT"
-
 
                ;; bootstrapping magic, to make things happen both in
                ;; the cross-compilation host compiler's environment and
@@ -1134,7 +1115,6 @@ possibly temporariliy, because it might be used internally."
                "SFUNCTION" "UNSIGNED-BYTE*"
                "CONSTANT-DISPLACEMENT"
                ;; ..and type predicates
-               "INSTANCEP"
                "DOUBLE-FLOAT-P"
                "LOGICAL-PATHNAME-P"
                "LONG-FLOAT-P"
@@ -1163,7 +1143,7 @@ possibly temporariliy, because it might be used internally."
                "CONSTANT-ARG"
 
                ;; various internal defaults
-               "DEFAULT-INIT-CHAR" "*DEFAULT-INIT-CHAR-FORM*"
+               "*DEFAULT-INIT-CHAR-FORM*"
                "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT"
 
                ;; hash caches
@@ -1176,13 +1156,6 @@ possibly temporariliy, because it might be used internally."
                "FORMAT-DECODED-TIME"
                "FORMAT-UNIVERSAL-TIME"
 
-               ;; indenting
-               "MAKE-INDENTING-STREAM"
-
-               ;; stream commands, used by the debugger
-               "GET-STREAM-COMMAND" "MAKE-STREAM-COMMAND" "STREAM-COMMAND"
-               "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
-
                ;; used for FORMAT tilde paren
                "MAKE-CASE-FROB-STREAM"
 
@@ -1196,7 +1169,7 @@ possibly temporariliy, because it might be used internally."
                "/XHOW"  "/NOXHOW"
                "/SHOW0" "/NOSHOW0"
                "/HEXSTR" "/NOHEXSTR"
-               "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT"
+               "/PRIMITIVE-PRINT"
 
                ;; cross-compilation bootstrap hacks which turn into
                ;; placeholders in a target system
@@ -1224,9 +1197,7 @@ possibly temporariliy, because it might be used internally."
                "LIST-OF-LENGTH-AT-LEAST-P"
                "LIST-WITH-LENGTH-P"
                "SINGLETON-P"
-               "READ-SEQUENCE-OR-DIE"
-               "RENAME-KEY-ARGS"
-               "MISSING-ARG"
+              "MISSING-ARG"
                "FEATUREP"
                "FLUSH-STANDARD-OUTPUT-STREAMS"
                "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST"
@@ -1238,7 +1209,6 @@ possibly temporariliy, because it might be used internally."
                "POSITIVE-PRIMEP"
                "EVAL-IN-LEXENV"
                "SIMPLE-EVAL-IN-LEXENV"
-               "DEBUG-NAMIFY"
                "FORCE" "DELAY" "PROMISE-READY-P"
                "FIND-RESTART-OR-CONTROL-ERROR"
                "LOAD-AS-SOURCE"
@@ -1304,7 +1274,7 @@ possibly temporariliy, because it might be used internally."
    ;;     other sequence function implementation grot into SB-SEQ.
    ;;   * Pull all the math stuff (%ACOS, %COSH, WORD-LOGICAL-AND...)
    ;;     into SB-MATH.
-   ;;   * Pull all the array stuff (%ARRAY-DATA-VECTOR, %RAW-REF-LONG,
+   ;;   * Pull all the array stuff (%ARRAY-DATA-VECTOR,
    ;;     WITH-ARRAY-DATA, ALLOCATE-VECTOR, HAIRY-DATA-VECTOR-REF...)
    ;;     into SB-ARRAY.
    ;;   * Pull all the streams stuff out into SB-STREAM.
@@ -1402,8 +1372,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%MAKE-STRUCTURE-INSTANCE"
                "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR"
                "%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"
+               "%MAP-TO-LIST-ARITY-1"
                "%MASK-FIELD"
                "%MEMBER"
                "%MEMBER-EQ"
@@ -1433,13 +1402,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%RASSOC-KEY-TEST-NOT"
                "%RASSOC-TEST"
                "%RASSOC-TEST-NOT"
-               "%RAW-BITS" "%RAW-BITS-WITH-OFFSET" "%VECTOR-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"
+               "%VECTOR-RAW-BITS"
+               "%SCALB" "%SCALBN"
                #!+(or x86 x86-64 ppc)
                "%RAW-INSTANCE-ATOMIC-INCF/WORD"
                "%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD"
@@ -1450,7 +1414,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%RAW-INSTANCE-REF/COMPLEX-DOUBLE"
                "%RAW-INSTANCE-SET/COMPLEX-DOUBLE"
                "%SET-ARRAY-DIMENSION" "%SET-FUNCALLABLE-INSTANCE-INFO"
-               "%SET-RAW-BITS" "%SET-RAW-BITS-WITH-OFFSET"
                "%SET-VECTOR-RAW-BITS"
                "%SET-SAP-REF-16" "%SET-SAP-REF-32" "%SET-SAP-REF-64"
                "%SET-SAP-REF-WORD" "%SET-SAP-REF-8" "%SET-SAP-REF-DOUBLE"
@@ -1493,15 +1456,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "PROGRAM-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED"
                "DISABLED-PACKAGE-LOCKS"
                "WITH-SINGLE-PACKAGE-LOCKED-ERROR"
-               "PACKAGE-ERROR-FORMAT-ARGUMENTS"
-               "PACKAGE-ERROR-FORMAT-CONTROL" "ALWAYS-SUBTYPEP"
+               "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"
+               "ASSERT-ERROR"
                #!+sb-unicode "BASE-CHAR-P"
                "BASE-STRING-P"
                "BINDING-STACK-POINTER-SAP" "BIT-INDEX"
@@ -1607,8 +1569,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+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"
+               "LRA" "LRA-CODE-HEADER" "LRA-P"
+               "MAKE-ALIEN-TYPE-TYPE"
                "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE"
                "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE" "MAKE-KEY-INFO"
                "MAKE-LISP-OBJ"
@@ -1621,18 +1583,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "MAKE-VALUE-CELL" "MAKE-VALUES-TYPE"
                "MAPC-MEMBER-TYPE-MEMBERS" "MAPCAR-MEMBER-TYPE-MEMBERS"
                "MEMBER-TYPE" "MEMBER-TYPE-MEMBERS" "MEMBER-TYPE-P"
-               "MEMBER-TYPE-SIZE" "MERGE-BITS"
+               "MEMBER-TYPE-SIZE"
                "MODIFIED-NUMERIC-TYPE"
                "MOST-NEGATIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
                "MOST-NEGATIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
                "MOST-POSITIVE-EXACTLY-DOUBLE-FLOAT-FIXNUM"
                "MOST-POSITIVE-EXACTLY-SINGLE-FLOAT-FIXNUM"
                "MUTATOR-SELF" "NAMED-TYPE"
-               "NAMED-TYPE-NAME" "NAMED-TYPE-P" "NATIVE-BYTE-ORDER"
+               "NAMED-TYPE-NAME" "NAMED-TYPE-P"
                "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"
+               "NIL-ARRAY-ACCESSED-ERROR"
+               "NIL-FUN-RETURNED-ERROR"
+               "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"
@@ -1778,19 +1740,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                #!+sb-simd-pack "*SIMD-PACK-ELEMENT-TYPES*"
                "STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
                "STRING-FILL*"
-               "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
+               "SUB-GC"
                "SYMBOLS-DESIGNATOR"
                "%INSTANCE-LENGTH"
                "%INSTANCE-REF"
                "%INSTANCE-SET"
-               "SYSTEM-AREA-CLEAR"
                "TLS-EXHAUSTED-ERROR"
                "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-*-TO-T"
-               "TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION"
+               "TYPE-DIFFERENCE" "TYPE-INTERSECTION"
                "TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2"
                "TYPE-SINGLETON-P"
                "TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
@@ -1819,8 +1780,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "VECTOR-UNSIGNED-BYTE-2-P" "VECTOR-UNSIGNED-BYTE-4-P"
                "VECTOR-UNSIGNED-BYTE-7-P" "VECTOR-UNSIGNED-BYTE-8-P"
                "VECTOR-UNSIGNED-BYTE-15-P" "VECTOR-UNSIGNED-BYTE-16-P"
-               "VECTOR-UNSIGNED-FIXNUM-P" "VECTOR-UNSIGNED-BYTE-31-P"
-               "VECTOR-UNSIGNED-BYTE-32-P"
+               "VECTOR-UNSIGNED-BYTE-31-P" "VECTOR-UNSIGNED-BYTE-32-P"
                "VECTOR-UNSIGNED-BYTE-63-P" "VECTOR-UNSIGNED-BYTE-64-P"
                "VECTOR-SIGNED-BYTE-8-P" "VECTOR-SIGNED-BYTE-16-P"
                "VECTOR-FIXNUM-P" "VECTOR-SIGNED-BYTE-32-P"
@@ -1832,7 +1792,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "VECTOR-SUBSEQ*"
                "VECTOR-TO-VECTOR*"
                "VECTOR-OF-CHECKED-LENGTH-GIVEN-LENGTH" "WITH-ARRAY-DATA"
-               "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
+               "WITH-CIRCULARITY-DETECTION"
                "WITH-WORLD-LOCK"
 
                ;; bit bash fillers (FIXME: 32/64-bit issues)
@@ -1892,7 +1852,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%FUN-NAME"
 
                "FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUN"
-               "FDEFN-MAKUNBOUND" "OUTER-FDEFN"
+               "FDEFN-MAKUNBOUND"
                "%COERCE-CALLABLE-TO-FUN" "FUN-SUBTYPE"
                "*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
                "INFINITE-ERROR-PROTECT"
@@ -1901,12 +1861,12 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "FIND-INTERRUPTED-NAME-AND-FRAME"
                "%SET-SYMBOL-VALUE" "%SET-SYMBOL-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE"
                "OUTPUT-SYMBOL-NAME" "%COERCE-NAME-TO-FUN"
-               "INVOKE-MACROEXPAND-HOOK" "DEFAULT-STRUCTURE-PRINT"
+               "DEFAULT-STRUCTURE-PRINT"
                "LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" "DSD-RAW-TYPE"
-               "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE" "DD-COPIER"
+               "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE"
                "UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE"
                "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" "DSD-NAME"
-               "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASSOID-SUBCLASSES"
+               "%TYPEP" "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"
@@ -1932,7 +1892,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CLASSOID-CELL-PCL-CLASS"
                "CLASSOID-CELL-TYPEP"
                "%CLEAR-CLASSOID"
-               "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE"
+               "FIND-CLASSOID-CELL"
                "%RANDOM-DOUBLE-FLOAT"
                #!+long-float "%RANDOM-LONG-FLOAT"
                "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID"
@@ -1944,7 +1904,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
                "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT"
                "%SET-FUNCALLABLE-INSTANCE-LAYOUT"
-               "BASIC-STRUCTURE-CLASSOID"
                "REGISTER-LAYOUT"
                "FUNCALLABLE-INSTANCE"
                "MAKE-STATIC-CLASSOID"
@@ -1957,15 +1916,15 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "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"
+               "MAKE-LAYOUT" "REDEFINE-LAYOUT-WARNING"
                "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"
+               "*CONDITION-RESTARTS*" "CASE-FAILURE"
                "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
-               "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION"
+               "MAKE-RESTART" "COERCE-TO-CONDITION"
 
                "ALLOCATE-CONDITION"
 
@@ -1985,8 +1944,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "REDEFINITION-WITH-DEFMACRO"
                "REDEFINITION-WITH-DEFGENERIC"
                "REDEFINITION-WITH-DEFMETHOD"
-               "REDEFINITION-REPLACES-GENERIC-FUNCTION-P"
-               "REDEFINITION-REPLACES-COMPILED-FUNCTION-WITH-INTERPRETED-P"
                "UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P"
                "UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P"
                "UNINTERESTING-METHOD-REDEFINITION-P"
@@ -2055,7 +2012,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
                "%SET-FDEFINITION" "%SCHARSET" "%SBITSET"
                "%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET"
-               "%ASET" "%ARRAY-TYPEP"))
+               "%ASET"))
 
    #s(sb-cold:package-data
       :name "SB!THREAD"
@@ -2650,7 +2607,6 @@ structure representations"
                  "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX")
       :reexport ("WORD")
       :export ("*ALLOC-SIGNAL*"
-               "*ASSEMBLY-UNIT-LENGTH*"
                "*PRIMITIVE-OBJECTS*"
                "+HIGHEST-NORMAL-GENERATION+"
                "+PSEUDO-STATIC-GENERATION+"
@@ -2671,7 +2627,7 @@ structure representations"
                "CATCH-BLOCK-CURRENT-CODE-SLOT"
                "CATCH-BLOCK-CURRENT-CONT-SLOT" "CATCH-BLOCK-CURRENT-UWP-SLOT"
                "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT"
-               "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE" "CATCH-BLOCK-SIZE-SLOT"
+               "CATCH-BLOCK-SC-NUMBER" "CATCH-BLOCK-SIZE"
                "CATCH-BLOCK-TAG-SLOT" "CERROR-TRAP"
                "CLOSURE-FUN-SLOT"
                "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET"
@@ -2712,11 +2668,11 @@ structure representations"
                "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS"
                #!+sb-safepoint "CSP-SAFEPOINT-TRAP"
                "*CURRENT-CATCH-BLOCK*"
-               "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT"
+               "CURRENT-FLOAT-TRAP"
                "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE"
                "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-BIAS"
                "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE"
-               "DOUBLE-FLOAT-FILLER-SLOT" "DOUBLE-FLOAT-HIDDEN-BIT"
+               "DOUBLE-FLOAT-HIDDEN-BIT"
                "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX"
                "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE"
                "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT"
@@ -2724,16 +2680,14 @@ structure representations"
                "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER"
                "DOUBLE-STACK-SC-NUMBER"
                "EMIT-LONG-NOP" "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG"
-               "EXPORTED-STATIC-SYMBOLS"
                "FDEFN-FUN-SLOT" "FDEFN-NAME-SLOT" "FDEFN-RAW-ADDR-SLOT"
                "FDEFN-SIZE" "FDEFN-WIDETAG" "FIXNUMIZE"
                "FIXNUM-TAG-MASK"
                "FIXUP-CODE-OBJECT" "FLOAT-DENORMAL-TRAP-BIT"
                "FLOAT-DIVIDE-BY-ZERO-TRAP-BIT"
-               "FLOAT-IMPRECISE-TRAP-BIT" "FLOAT-INVALID-TRAP-BIT"
+               "FLOAT-INVALID-TRAP-BIT"
                "FLOAT-OVERFLOW-TRAP-BIT" "FLOAT-SIGN-SHIFT"
                "FLOAT-UNDERFLOW-TRAP-BIT" "FLOATING-POINT-MODES"
-               "FORWARDING-POINTER-TYPE"
                "FP-CONSTANT-SC-NUMBER"
                "FP-DOUBLE-ZERO-SC-NUMBER" "FP-SINGLE-ZERO-SC-NUMBER"
                "FUNCALLABLE-INSTANCE-TRAMPOLINE-SLOT"
@@ -2741,11 +2695,7 @@ structure representations"
                "FUNCALLABLE-INSTANCE-INFO-OFFSET"
                "SIMPLE-FUN-ARGLIST-SLOT" "SIMPLE-FUN-CODE-OFFSET"
                "FUN-END-BREAKPOINT-TRAP"
-               "SIMPLE-FUN-HEADER-CODE-OFFSET"
-               "SIMPLE-FUN-HEADER-NEXT-SLOT"
-               "SIMPLE-FUN-HEADER-SELF-SLOT"
                "SIMPLE-FUN-HEADER-WIDETAG"
-               "SIMPLE-FUN-HEADER-TYPE-SLOT"
                "SIMPLE-FUN-NAME-SLOT"
                "SIMPLE-FUN-NEXT-SLOT"
                "FUN-POINTER-LOWTAG"
@@ -2783,7 +2733,7 @@ structure representations"
                #!+long-float "LONG-STACK-SC-NUMBER"
                "LOWTAG-LIMIT" "LOWTAG-MASK"
                "LRA-SAVE-OFFSET"
-               "MEMORY-USAGE" "MOST-POSITIVE-COST"
+               "MEMORY-USAGE"
                "N-LOWTAG-BITS"
                "N-FIXNUM-TAG-BITS"
                "N-FIXNUM-BITS"
@@ -2814,7 +2764,7 @@ structure representations"
                "RANDOM-IMMEDIATE-SC-NUMBER" "RATIO-DENOMINATOR-SLOT"
                "RATIO-NUMERATOR-SLOT" "RATIO-SIZE" "RATIO-WIDETAG"
                "*READ-ONLY-SPACE-FREE-POINTER*"
-               "REGISTER-SAVE-PENALTY" "RETURN-PC-HEADER-WIDETAG"
+               "RETURN-PC-HEADER-WIDETAG"
                "RETURN-PC-RETURN-POINT-OFFSET" "RETURN-PC-SAVE-OFFSET"
                "SAETP-CTYPE" "SAETP-INITIAL-ELEMENT-DEFAULT"
                "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME"
@@ -2866,26 +2816,23 @@ structure representations"
                "SINGLE-STEP-AROUND-TRAP"
                "SINGLE-STEP-BEFORE-TRAP"
                "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS"
-               "SLOT-LENGTH" "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
+               "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS"
                "SLOT-REST-P" "*STATIC-FUNS*" "STATIC-FUN-OFFSET"
                "STATIC-SYMBOL-OFFSET" "STATIC-SYMBOL-P"
                "*STATIC-SPACE-FREE-POINTER*" "*STATIC-SYMBOLS*"
-               "STRUCTURE-USAGE"
                "SYMBOL-HASH-SLOT" "SYMBOL-HEADER-WIDETAG" "SYMBOL-NAME-SLOT"
                "SYMBOL-PACKAGE-SLOT" "SYMBOL-PLIST-SLOT"
-               "SYMBOL-SIZE" "SYMBOL-UNUSED-SLOT" "SYMBOL-VALUE-SLOT"
+               "SYMBOL-SIZE" "SYMBOL-VALUE-SLOT"
                "*BINDING-STACK-START*"
                "*CONTROL-STACK-START*" "*CONTROL-STACK-END*"
                "CONTROL-STACK-POINTER-VALID-P"
                "DYNAMIC-SPACE-START" "DYNAMIC-SPACE-END"
                #!+gencgc "MAX-DYNAMIC-SPACE-END"
-               #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START"
                #!-gencgc "DYNAMIC-0-SPACE-START"
                #!-gencgc "DYNAMIC-0-SPACE-END"
                #!-gencgc "DYNAMIC-1-SPACE-START"
                #!-gencgc "DYNAMIC-1-SPACE-END"
                "READ-ONLY-SPACE-START" "READ-ONLY-SPACE-END"
-               "TARGET-BYTE-ORDER" "TARGET-HEAP-ADDRESS-SPACE"
                "STATIC-SPACE-START" "STATIC-SPACE-END"
                #!+linkage-table "LINKAGE-TABLE-SPACE-START"
                #!+linkage-table "LINKAGE-TABLE-SPACE-END"
@@ -2903,7 +2850,7 @@ structure representations"
                "UNWIND-BLOCK-CURRENT-UWP-SLOT" "UNWIND-BLOCK-ENTRY-PC-SLOT"
                "UNWIND-BLOCK-SIZE" "VALUE-CELL-HEADER-WIDETAG" "VALUE-CELL-SIZE"
                "VALUE-CELL-VALUE-SLOT" "VECTOR-DATA-OFFSET" "VECTOR-LENGTH-SLOT"
-               "VECTOR-MUST-REHASH-SUBTYPE" "VECTOR-NORMAL-SUBTYPE"
+               "VECTOR-NORMAL-SUBTYPE"
                "VECTOR-VALID-HASHING-SUBTYPE"
                "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
                "WEAK-POINTER-SIZE" "WEAK-POINTER-WIDETAG"
@@ -2922,7 +2869,7 @@ structure representations"
                "*WALK-FORM-EXPAND-MACROS-P*"
                "VAR-LEXICAL-P" "VAR-SPECIAL-P"
                "VAR-GLOBALLY-SPECIAL-P"
-               "*VAR-DECLARATIONS*" "VAR-DECLARATION"
+               "VAR-DECLARATION"
 
                ;; These were exported from the original PCL version of this
                ;; package, but aren't used in SBCL.
@@ -2949,7 +2896,6 @@ structure representations"
                "MAKE-NULL-ENVIRONMENT"
                "EVAL-IN-NATIVE-ENVIRONMENT"
                "PREPARE-FOR-COMPILE"
-               "COUNT-EVAL-CALLS"
                "*EVAL-LEVEL*"))
 
    #!+win32

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index f4e840d..054e6df 100644 (file)
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -20,7 +20,7 @@
 ;;;       bignum-ashift-right bignum-ashift-left bignum-gcd
 ;;;       bignum-to-float bignum-integer-length
 ;;;       bignum-logical-and bignum-logical-ior bignum-logical-xor
-;;;       bignum-logical-not bignum-load-byte bignum-deposit-byte
+;;;       bignum-logical-not bignum-load-byte
 ;;;       bignum-truncate bignum-plus-p bignum-compare make-small-bignum
 ;;;       bignum-logbitp bignum-logcount
 ;;;   These symbols define the interface to the compiler:

diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp
index 1aef68d..daf94bc 100644 (file)
--- a/src/compiler/fndb.lisp
+++ b/src/compiler/fndb.lisp
@@ -473,10 +473,6 @@
 (defknown %map-to-list-arity-1 (callable sequence) list (flushable call))
 (defknown %map-to-simple-vector-arity-1 (callable sequence) simple-vector
   (flushable call))
-(defknown %map-to-nil-on-simple-vector (callable simple-vector) null
-  (flushable call))
-(defknown %map-to-nil-on-vector (callable vector) null (flushable call))
-(defknown %map-to-nil-on-sequence (callable sequence) null (flushable call))
 
 (defknown map-into (sequence callable &rest sequence)
   sequence

diff --git a/src/compiler/generic/vm-fndb.lisp b/src/compiler/generic/vm-fndb.lisp
index 37273c1..70ce7de 100644 (file)
--- a/src/compiler/generic/vm-fndb.lisp
+++ b/src/compiler/generic/vm-fndb.lisp
@@ -293,10 +293,6 @@
 (defknown %bignum-set (bignum-type bignum-index bignum-element-type)
   bignum-element-type
   ())
-#!+(or x86 x86-64)
-(defknown %bignum-set-with-offset
-  (bignum-type bignum-index (signed-byte 24) bignum-element-type)
-  bignum-element-type (always-translatable))
 
 (defknown %digit-0-or-plusp (bignum-element-type) boolean
   (foldable flushable movable))
@@ -414,9 +410,6 @@
 (defknown %funcallable-instance-info (function index) t (flushable))
 (defknown %set-funcallable-instance-info (function index t) t ())
 \f
-;;;; mutator accessors
-
-(defknown mutator-self () system-area-pointer (flushable movable))
 
 (defknown %data-vector-and-index (array index)
                                  (values (simple-array * (*)) index)

diff --git a/src/compiler/ppc/parms.lisp b/src/compiler/ppc/parms.lisp
index 49b8cab..c907087 100644 (file)
--- a/src/compiler/ppc/parms.lisp
+++ b/src/compiler/ppc/parms.lisp
@@ -214,10 +214,3 @@
     sb!kernel:two-arg-eqv
     sb!kernel:two-arg-gcd
     sb!kernel:two-arg-lcm))
-
-\f
-;;;; Assembler parameters:
-
-;;; The number of bits per element in the assemblers code vector.
-;;;
-(defparameter *assembly-unit-length* 8)

diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp
index d3e843a..e377082 100644 (file)
--- a/src/compiler/sparc/parms.lisp
+++ b/src/compiler/sparc/parms.lisp
@@ -219,14 +219,7 @@
     two-arg-+ two-arg-- two-arg-* two-arg-/ two-arg-< two-arg-> two-arg-=
     two-arg-<= two-arg->= two-arg-/= eql %negate
     two-arg-and two-arg-ior two-arg-xor two-arg-eqv
-    two-arg-gcd two-arg-lcm
-    ))
-\f
-;;;; Assembler parameters:
-
-;;; The number of bits per element in the assemblers code vector.
-(defparameter *assembly-unit-length* 8)
-
+    two-arg-gcd two-arg-lcm))
 \f
 ;;;; Pseudo-atomic trap number
 

diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index cf6ebb2..ec89f34 100644 (file)
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -290,11 +290,5 @@
     sb!kernel:two-arg-lcm
     sb!kernel:%coerce-callable-to-fun))
 \f
-;;;; stuff added by jrd
-
-;;; FIXME: Is this used? Delete it or document it.
-;;; cf the sparc PARMS.LISP
-(defparameter *assembly-unit-length* 8)
-
 #!+win32
 (defconstant +win32-tib-arbitrary-field-offset+ #.(+ #xE10 (* 4 63)))