diff --git a/doc/internals/foreign-linkage.texinfo b/doc/internals/foreign-linkage.texinfo index 54320d507..4f76c0a35 100644 --- a/doc/internals/foreign-linkage.texinfo +++ b/doc/internals/foreign-linkage.texinfo @@ -98,12 +98,12 @@ Define correct @code{SB-VM:LINKAGE-TABLE-ENTRY-SIZE} in @comment node-name, next, previous, up @section Lazy Alien Resolution -On linkage-table ports SBCL is able to deal with forward-references to +SBCL is able to deal with forward-references to aliens -- which is to say, compile and load code referring to aliens before the shared object containing the alien in question has been loaded. -This is handled by @code{ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS}, which +This is handled by @code{ENSURE-FOREIGN-SYMBOL-LINKAGE}, which first tries to resolve the address in the loaded shared objects, but failing that records the alien as undefined and returns the address of a read/write/execute protected guard page for variables, and address diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 1de6a3127..61672ae76 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -244,7 +244,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES" "%UNWIND-PROTECT-BREAKUP" - "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*" + "*BACKEND-BYTE-ORDER*" "+BACKEND-INTERNAL-ERRORS+" "+BACKEND-PAGE-BYTES+" "*BACKEND-REGISTER-SAVE-PENALTY*" "*BACKEND-SBS*" ; storage bases @@ -254,7 +254,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "*COMPILATION*" "*COMPILE-TO-MEMORY-SPACE*" - "*ELSEWHERE*" "*LEXENV*" "*SUPPRESS-VALUES-DECLARATION*" @@ -267,13 +266,13 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "ALLOCATE-FULL-CALL-FRAME" "ALWAYS-TRANSLATABLE" "ANCESTOR-FRAME-REF" "ANCESTOR-FRAME-SET" - "ANY" "ARG-COUNT-ERROR" "ASSEMBLE-FILE" + "ANY" "ASSEMBLE-FILE" "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION" "ATTRIBUTES=" "CALL" "CALL-LOCAL" "CALL-NAMED" "CALL-VARIABLE" "CALL-OUT" "CALL-OUT-NAMED" "CALLEE-NFP-TN" "CALLEE-RETURN-PC-TN" - "CASE-BODY" "CATCH-BLOCK" "UNWIND-BLOCK" + "CATCH-BLOCK" "UNWIND-BLOCK" "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP" "COMPARE-AND-SWAP-SLOT" "COMPILE-IN-LEXENV" @@ -288,7 +287,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "CURRENT-STACK-POINTER" "*ALIEN-STACK-POINTER*" "CURRENT-NSP" "SET-NSP" - "DEALLOC-ALIEN-STACK-SPACE" "DEALLOC-NUMBER-STACK-SPACE" "DEBUG-CATCH-TAG" "DEF-IR1-TRANSLATOR" @@ -343,10 +341,10 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTIFY" "MAYBE-INLINE-SYNTACTIC-CLOSURE" "MSAN-UNPOISON" - "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL" + "MOVABLE" "MOVE" "MULTIPLE-CALL" "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED" "MULTIPLE-CALL-VARIABLE" - "%%NIP-DX" "%%NIP-VALUES" + "%%NIP-VALUES" "NLX-ENTRY" "NLX-ENTRY-MULTIPLE" "NODE-STACK-ALLOCATE-P" "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START" @@ -356,7 +354,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "PACK-CODE-FIXUP-LOCS" "PARSE-EVAL-WHEN-SITUATIONS" "POLICY" - "%%POP-DX" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF" "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-NAME" @@ -438,7 +435,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "MAKE-NFP-TN" "MAKE-NUMBER-STACK-POINTER-TN" "MAKE-UNKNOWN-VALUES-LOCATIONS" - "SELECT-COMPONENT-FORMAT" "MAKE-NLX-SP-TN" "MAKE-DYNAMIC-STATE-TNS" "MAKE-NLX-ENTRY-ARG-START-LOCATION" @@ -618,11 +614,9 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "CLOSE-FASL-OUTPUT" "DUMP-ASSEMBLER-ROUTINES" "DUMP-FOP" "DUMP-OBJECT" - "DUMPABLE-LAYOUT-P" "FASL-CONSTANT-ALREADY-DUMPED-P" "+FASL-FILE-VERSION+" "FASL-DUMP-COMPONENT" - "FASL-DUMP-COLD-FSET" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL" "FASL-NOTE-HANDLE-FOR-CONSTANT" @@ -654,11 +648,11 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "EXPAND-SYMBOL-CASE" ;; symbols used by sb-simple-streams "ANSI-STREAM-CLEAR-INPUT" - "ANSI-STREAM-FRESH-LINE" "ANSI-STREAM-LISTEN" + "ANSI-STREAM-LISTEN" "ANSI-STREAM-READ-BYTE" "ANSI-STREAM-READ-CHAR" "ANSI-STREAM-READ-CHAR-NO-HANG" "ANSI-STREAM-READ-LINE" "ANSI-STREAM-READ-SEQUENCE" "ANSI-STREAM-PEEK-CHAR" - "ANSI-STREAM-UNREAD-CHAR" "ANSI-STREAM-WRITE-SEQUENCE" + "ANSI-STREAM-UNREAD-CHAR" "DISPATCH-TABLES" "CHARACTER-MACRO-HASH-TABLE" "CHARACTER-MACRO-ARRAY" "TOKEN-DELIMITERP" "WHITESPACE[2]P" "WITH-READ-BUFFER" ;; other @@ -1054,7 +1048,6 @@ possibly temporarily, because it might be used internally." ;; utilities for floating point zero handling "FP-ZERO-P" - "NEG-FP-ZERO" ;; Advice to the compiler that it doesn't need to assert types. "EXPLICIT-CHECK" @@ -1180,7 +1173,7 @@ possibly temporarily, because it might be used internally." "TWO-ARG-CHAR-EQUAL" "TWO-ARG-CHAR-NOT-EQUAL" "TWO-ARG-CHAR-LESSP" "TWO-ARG-CHAR-NOT-LESSP" "TWO-ARG-CHAR-GREATERP" "TWO-ARG-CHAR-NOT-GREATERP" - "CHAR-EQUAL-CONSTANT" "CHAR-CASE-INFO" + "CHAR-CASE-INFO" ;; FIXME: potential SB-EXT exports "CHARACTER-CODING-ERROR" "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS" @@ -1200,7 +1193,6 @@ possibly temporarily, because it might be used internally." "*!REMOVABLE-SYMBOLS*" ;; bootstrapping macro whose effect is to delay until warm load. - "DEF*METHOD" "!SET-LOAD-FORM-METHOD" ;; stuff for hinting to the compiler @@ -1338,7 +1330,6 @@ possibly temporarily, because it might be used internally." "SHORT-FLOAT-P" "SINGLE-FLOAT-P" "FIXNUMP" - "FIXNUMP-INSTANCE-REF" "FIXNUMP-CAR" "FIXNUMP-CDR" "BIGNUMP" "RATIOP" "UNBOUND-MARKER-P" @@ -1418,7 +1409,6 @@ possibly temporarily, because it might be used internally." "MAKE-MACRO-LAMBDA" "PROPER-LIST-OF-LENGTH-P" "PROPER-LIST-P" "LIST-OF-LENGTH-AT-LEAST-P" "SEQUENCE-OF-LENGTH-AT-LEAST-P" - "LIST-WITH-LENGTH-P" "SINGLETON-P" "ENSURE-LIST" "MISSING-ARG" "FEATUREP" @@ -1576,7 +1566,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P" "%ARRAY-DISPLACED-FROM" "%ARRAY-DISPLACEMENT" "%ARRAY-FILL-POINTER" - "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK" "%ARRAY-RANK=" + "%ARRAY-RANK" "%ARRAY-RANK=" "%ARRAY-ATOMIC-INCF/WORD" "%ASH/RIGHT" "%ASSOC" @@ -1746,7 +1736,6 @@ 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" - "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" @@ -1820,13 +1809,11 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "ENSURE-SYMBOL-HASH" "ENSURE-SYMBOL-TLS-INDEX" "ERROR-NUMBER-OR-LOSE" - "EVAL-WHEN-COMPILE-TOPLEVEL" - "EXTENDED-CHAR-P" "EXTERNAL-FORMAT-DESIGNATOR" + "EXTERNAL-FORMAT-DESIGNATOR" "FAST-&REST-NTH" "FILENAME" "FILL-ARRAY" "FILL-DATA-VECTOR" - "FIND-AND-INIT-OR-CHECK-LAYOUT" "FIND-DEFSTRUCT-DESCRIPTION" "FIND-OR-CREATE-FDEFN" "FLOAT-EXPONENT" @@ -1857,8 +1844,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "HANDLE-CIRCULARITY" "HOST" "ILL-BIN" "ILL-BOUT" "ILL-IN" "ILL-OUT" "INDEX-OR-MINUS-1" "INDEX-TOO-LARGE-ERROR" "*!INITIAL-ASSEMBLER-ROUTINES*" - "*!INITIAL-DEBUG-SOURCES*" - "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*" "*!INITIAL-SYMBOLS*" "INTEGER-DECODE-DOUBLE-FLOAT" #+long-float "INTEGER-DECODE-LONG-FLOAT" @@ -1885,7 +1870,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "LIST-FILL*" "LIST-SUBSEQ*" "ANSI-STREAM" - "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE" + "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-IN" "ANSI-STREAM-IN-BUFFER" "ANSI-STREAM-IN-INDEX" "ANSI-STREAM-MISC" @@ -2235,7 +2220,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "SET-SYMBOL-GLOBAL-VALUE" "OUTPUT-SYMBOL" "%COERCE-NAME-TO-FUN" "DEFAULT-STRUCTURE-PRINT" - "LAYOUT" "LAYOUT-LENGTH" "LAYOUT-PURE" + "LAYOUT" "LAYOUT-LENGTH" "DEFSTRUCT-DESCRIPTION" "UNDECLARE-STRUCTURE" "UNDEFINE-FUN-NAME" "DD-TYPE" "CLASSOID-STATE" "INSTANCE" "*TYPE-SYSTEM-INITIALIZED*" "FIND-LAYOUT" @@ -2287,7 +2272,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID" "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK" "N-RANDOM-CHUNK-BITS" - "LAYOUT-CLOS-HASH-LIMIT" "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES" "BUILT-IN-CLASSOID-TRANSLATION" "HASH-LAYOUT-NAME" "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE" @@ -2306,7 +2290,7 @@ 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" + "MAKE-LAYOUT" "INSURED-FIND-CLASSOID" "ORDER-LAYOUT-INHERITS" "STD-COMPUTE-CLASS-PRECEDENCE-LIST" "+STRUCTURE-LAYOUT-FLAG+" @@ -2376,23 +2360,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "FTYPE-PROCLAMATION-MISMATCH-ERROR" "!COLD-INIT" - "!GLOBALDB-COLD-INIT" - "!FOREIGN-COLD-INIT" - "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT" + "!TYPE-CLASS-COLD-INIT" "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT" - "!DEADLINE-COLD-INIT" "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT" - "!FIXUP-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT" - "!RANDOM-COLD-INIT" "!READER-COLD-INIT" - "!PATHNAME-COLD-INIT" "!DEBUG-INFO-COLD-INIT" - "!TYPECHECKFUNS-COLD-INIT" "!LOADER-COLD-INIT" - "!EXHAUST-COLD-INIT" "!PACKAGE-COLD-INIT" + "!FIXUP-TYPE-COLD-INIT" + "!RANDOM-COLD-INIT" + "!LOADER-COLD-INIT" "!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" - "!CONSTANTP-COLD-INIT" "!CONSTANTP2-COLD-INIT" - "!WORLD-LOCK-COLD-INIT" "FLOAT-COLD-INIT-OR-REINIT" "GC-REINIT" @@ -2700,8 +2675,7 @@ package is deprecated in favour of SB-MOP." :name "SB-PRETTY" :doc "private: implementation of pretty-printing" :use ("CL" "SB-EXT" "SB-INT" "SB-KERNEL") - :export ("OUTPUT-PRETTY-OBJECT" - "PRETTY-STREAM" "PRETTY-STREAM-P" + :export ("PRETTY-STREAM" "PRETTY-STREAM-P" "PPRINT-DISPATCH-TABLE" "*PPRINT-QUOTE-WITH-SYNTACTIC-SUGAR*" "!PPRINT-COLD-INIT")) @@ -2793,10 +2767,8 @@ SB-KERNEL) have been undone, but probably more remain." "DECODE-TIMEOUT" "DECODE-INTERNAL-TIME" "DEFER-DEADLINE" - "DYNAMIC-FOREIGN-SYMBOLS-P" "DLOPEN-OR-LOSE" "ENABLE-INTERRUPT" - "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" "EXTERN-ALIEN-NAME" "EXIT-CODE" "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" @@ -2813,7 +2785,6 @@ SB-KERNEL) have been undone, but probably more remain." "INVALIDATE-DESCRIPTOR" "INVOKE-INTERRUPTION" "IO-TIMEOUT" - "LIST-DYNAMIC-FOREIGN-SYMBOLS" "MACRO" "MAKE-FD-STREAM" "MEMORY-FAULT-ERROR" "MEMMOVE" @@ -2844,7 +2815,6 @@ SB-KERNEL) have been undone, but probably more remain." "SYSTEM-CONDITION-CONTEXT" "REINIT-INTERNAL-REAL-TIME" "SYSTEM-INTERNAL-RUN-TIME" - "UNDEFINED-FOREIGN-SYMBOLS-P" "UPDATE-LINKAGE-TABLE" "VECTOR-SAP" "WAIT-UNTIL-FD-USABLE" "WITH-CODE-PAGES-PINNED" @@ -3010,13 +2980,13 @@ structure representations" "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET" "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT" "ARRAY-DISPLACED-FROM-SLOT" - "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT" + "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG" "CHARACTER-REG-SC-NUMBER" "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG" "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE" "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP" - "N-BYTE-BITS" "BYTE-REG-SC-NUMBER" + "N-BYTE-BITS" "CATCH-BLOCK-CODE-SLOT" "CATCH-BLOCK-CFP-SLOT" "CATCH-BLOCK-UWP-SLOT" "CATCH-BLOCK-ENTRY-PC-SLOT" "CATCH-BLOCK-PREVIOUS-CATCH-SLOT" @@ -3062,23 +3032,22 @@ structure representations" "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG" #+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG" "COMPLEX-WIDETAG" - "COMPLEX-VECTOR-NIL-WIDETAG" "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT" "CONS-SIZE" "CONSTANT-SC-NUMBER" "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER" "CONTEXT-PC" "CONTEXT-REGISTER" "BOXED-CONTEXT-REGISTER" - "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS" + "CONTROL-STACK-SC-NUMBER" #+sb-safepoint "CSP-SAFEPOINT-TRAP" "*CURRENT-CATCH-BLOCK*" "CURRENT-FLOAT-TRAP" - "DESCRIPTOR-REG-SC-NUMBER" "DESCRIPTOR-VS-NON-DESCRIPTOR-STORAGE" + "DESCRIPTOR-REG-SC-NUMBER" "DO-REFERENCED-OBJECT" "DOUBLE-FLOAT-BIAS" "DOUBLE-FLOAT-DIGITS" "DOUBLE-FLOAT-EXPONENT-BYTE" "DOUBLE-FLOAT-HIDDEN-BIT" "DOUBLE-FLOAT-NORMAL-EXPONENT-MAX" "DOUBLE-FLOAT-NORMAL-EXPONENT-MIN" "DOUBLE-FLOAT-SIGNIFICAND-BYTE" - "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-TRAPPING-NAN-BIT" + "DOUBLE-FLOAT-SIZE" "DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT" "DOUBLE-REG-SC-NUMBER" "DOUBLE-STACK-SC-NUMBER" @@ -3173,7 +3142,7 @@ structure representations" "PAD-DATA-BLOCK" "PENDING-INTERRUPT-TRAP" "PRIMITIVE-OBJECT" "PRIMITIVE-OBJECT-WIDETAG" "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME" - "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P" + "PRIMITIVE-OBJECT-P" "PRIMITIVE-OBJECT-LENGTH" "PRIMITIVE-OBJECT-SLOTS" "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS" @@ -3186,7 +3155,7 @@ structure representations" "SAETP-N-BITS" "SAETP-TYPECODE" "SAETP-PRIMITIVE-TYPE-NAME" "SAETP-N-PAD-ELEMENTS" "SAETP-N-BITS-SHIFT" "SAETP-SPECIFIER" - "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE" + "SAETP-COMPLEX-TYPECODE" "SAETP-FIXNUM-P" "VALID-BIT-BASH-SAETP-P" "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*" @@ -3231,7 +3200,7 @@ structure representations" "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE" "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX" "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE" - "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT" + "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-WIDETAG" #-64-bit "SINGLE-FLOAT-VALUE-SLOT" "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER" @@ -3240,9 +3209,9 @@ structure representations" "SINGLE-STEP-BREAKPOINT-TRAP" "INVALID-ARG-COUNT-TRAP" "SINGLE-VALUE-RETURN-BYTE-OFFSET" - "SLOT-NAME" "SLOT-OFFSET" "SLOT-OPTIONS" + "SLOT-NAME" "SLOT-OFFSET" "SLOT-SPECIAL" - "SLOT-REST-P" "+STATIC-FDEFNS+" "STATIC-FUN-OFFSET" + "+STATIC-FDEFNS+" "STATIC-FUN-OFFSET" "%SPACE-BOUNDS" "SPACE-BYTES" "STABLE-HASH-REQUIRED-FLAG" "HASH-SLOT-PRESENT-FLAG" diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp index 62d63b071..b9c994aaa 100644 --- a/src/compiler/vop.lisp +++ b/src/compiler/vop.lisp @@ -354,9 +354,6 @@ (constants (make-array 10 :fill-pointer 1 :adjustable t :initial-element :ignore) :type vector :read-only t) - ;; some kind of info about the component's run-time representation. - ;; This is filled in by the VM supplied SELECT-COMPONENT-FORMAT function. - format ;; a list of the ENTRY-INFO structures describing all of the entries ;; into this component. Filled in by entry analysis. (entries nil :type list)