From: Stas Boukarev Date: Wed, 5 Jun 2013 23:11:42 +0000 (+0400) Subject: Stop exporting unused symbols. X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=315285fcf8bf1f7e732da307cfaf31f18f412811;p=sbcl.git Stop exporting unused symbols. --- diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp index 97b5a6e..0c86552 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 ()) -;;;; 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 --- 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)) - - -;;;; 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 --- 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 - )) - -;;;; Assembler parameters: - -;;; The number of bits per element in the assemblers code vector. -(defparameter *assembly-unit-length* 8) - + two-arg-gcd two-arg-lcm)) ;;;; Pseudo-atomic trap number diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp index cf6ebb2..ec89f34 100644 --- 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)) -;;;; 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)))