X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=ca67d02502aa4b88188325299a8d362b319d68ac;hb=338ebb8ec835c255109363cbdf381867084f72fe;hp=82500c84e7dd7c31f35c5f211fba5aa37e376851;hpb=35871544d182adf1895cf6d99d3f995ac2b425e0;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index 82500c8..ca67d02 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -46,13 +46,6 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE" "CAST" "C-STRING" "DEFINE-ALIEN-ROUTINE" "DEFINE-ALIEN-TYPE" "DEFINE-ALIEN-VARIABLE" - - ;; FIXME: These old names don't match the DEFFOO - vs. - - ;; DEFINE-FOO convention used in the ANSI spec, and so - ;; were deprecated in sbcl-0.7.0. After a year or so - ;; they can go away completely. - "DEF-ALIEN-ROUTINE" "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" - "DEREF" "DOUBLE" "ENUM" "EXTERN-ALIEN" "FREE-ALIEN" @@ -60,9 +53,14 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "INT" "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" "LONG-LONG" "MAKE-ALIEN" + "MAKE-ALIEN-STRING" "NULL-ALIEN" - "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT" + "OFF-T" + "SAP-ALIEN" "SHORT" "SIGNED" + "SIZE-T" + "SLOT" "STRUCT" "UNDEFINED-ALIEN-ERROR" + "UNLOAD-SHARED-OBJECT" "UNSIGNED" "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-LONG-LONG" "UNSIGNED-SHORT" "UTF8-STRING" @@ -73,11 +71,13 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" :name "SB!ALIEN-INTERNALS" :doc "private: stuff for implementing ALIENs and friends" :use ("CL") - :export ("%CAST" + :export ("%ALIEN-VALUE" + "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" - "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN-ARRAY-TYPE" + "%SLOT-ADDR" "*SAVED-FP-AND-PCS*" "*VALUES-TYPE-OKAY*" + "ALIEN-ARRAY-TYPE" "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" "ALIEN-CALLBACK" @@ -99,7 +99,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE" "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS" "ALIEN-TYPE-P" "ALIEN-TYPEP" - "ALIEN-VALUE" "ALIEN-VALUE-TYPE" + "ALIEN-VALUE" + "ALIEN-VALUE-TYPE" + "ALIEN-VALUE-TYPEP" "ALIEN-VALUE-SAP" "ALIEN-VALUE-P" "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "ALIEN-VOID-TYPE-P" @@ -109,11 +111,12 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS" "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT" "DEPORT-ALLOC" - "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" + "DISPOSE-LOCAL-ALIEN" "*ENTER-ALIEN-CALLBACK*" "ENTER-ALIEN-CALLBACK" - "EXTRACT-ALIEN-VALUE" + "FIND-SAVED-FP-AND-PC" "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" - "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN" + "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" + "INVOKE-WITH-SAVED-FP-AND-PC" "LOCAL-ALIEN" "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P" "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE" "MAKE-ALIEN-FUN-TYPE" "MAKE-ALIEN-POINTER-TYPE" @@ -132,15 +135,16 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "*ASSEM-INSTRUCTIONS*" "*ASSEM-MAX-LOCATIONS*" - "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH" + "EMIT-ALIGNMENT" "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH" "EMIT-CHOOSER" "DEFINE-BITFIELD-EMITTER" "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO" "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT" - "MAKE-SEGMENT" "SEGMENT-NAME" "ASSEMBLE" - "ALIGN" "INST" "LABEL" "LABEL-P" "GEN-LABEL" - "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" "FINALIZE-SEGMENT" - "ON-SEGMENT-CONTENTS-VECTORLY" "WRITE-SEGMENT-CONTENTS" + "MAKE-SEGMENT" "SEGMENT-TYPE" "ASSEMBLE" + "INST" "LABEL" "LABEL-P" "GEN-LABEL" + "EMIT-LABEL" "LABEL-POSITION" "APPEND-SEGMENT" + "FINALIZE-SEGMENT" + "SEGMENT-CONTENTS-AS-VECTOR" "WRITE-SEGMENT-CONTENTS" "READS" "WRITES" "SEGMENT" "WITHOUT-SCHEDULING" "VARIABLE-LENGTH" @@ -161,26 +165,26 @@ 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" - "%FLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" + "%BIGFLOOR" "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" "%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" - "SUBTRACT-BIGNUM" "SXHASH-BIGNUM")) + "%RANDOM-BIGNUM" "SUBTRACT-BIGNUM" "SXHASH-BIGNUM")) #s(sb-cold:package-data :name "SB!C" @@ -204,7 +208,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "*BACKEND-BYTE-ORDER*" "*BACKEND-DISASSEM-PARAMS*" "*BACKEND-INSTRUCTION-FLAVORS*" "*BACKEND-INSTRUCTION-FORMATS*" - "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-SIZE*" + "*BACKEND-INTERNAL-ERRORS*" "*BACKEND-PAGE-BYTES*" "*BACKEND-REGISTER-SAVE-PENALTY*" "*BACKEND-SB-LIST*" "*BACKEND-SB-NAMES*" "*BACKEND-SC-NAMES*" "*BACKEND-SC-NUMBERS*" @@ -220,10 +224,13 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" #!+x86 "SET-FPU-WORD-FOR-C" #!+x86 "SET-FPU-WORD-FOR-LISP" + "ALIGN-STACK-POINTER" + "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" "ATTRIBUTES" "ATTRIBUTES-INTERSECTION" "ATTRIBUTES-UNION" "ATTRIBUTES=" "BIND" @@ -236,10 +243,10 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "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" + "CLOSURE-INIT" "CLOSURE-REF" "CLOSURE-INIT-FROM-FP" + "*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" @@ -247,7 +254,8 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "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" + "CURRENT-STACK-POINTER" + "DEALLOC-ALIEN-STACK-SPACE" "DEALLOC-NUMBER-STACK-SPACE" "DEBUG-CATCH-TAG" "DEF-IR1-TRANSLATOR" @@ -264,9 +272,10 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "DEFINE-STORAGE-CLASS" "DEFINE-VOP" "DEFKNOWN" "DEFOPTIMIZER" "DEFTRANSFORM" "DERIVE-TYPE" - "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP" + "EMIT-BLOCK-HEADER" "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN" "FAST-SYMBOL-VALUE" + "FAST-SYMBOL-GLOBAL-VALUE" "FIXUP-NOTE-KIND" "FIXUP-NOTE-FIXUP" "FIXUP-NOTE-POSITION" @@ -275,20 +284,22 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "FUN-INFO-DERIVE-TYPE" "FUN-INFO-IR2-CONVERT" "FUN-INFO-LTN-ANNOTATE" "FUN-INFO-OPTIMIZER" "GET-VECTOR-SUBTYPE" + "GET-TOPLEVELISH-FILE-INFO" "HALT" - "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA" + "IF-EQ" + "IMMEDIATE-TN-P" + "INHIBIT-SAFEPOINTS" "INSERT-STEP-CONDITIONS" - "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-CLOSURE" "MAKE-CONSTANT-TN" "MAKE-FIXUP-NOTE" "MAKE-LOAD-TIME-CONSTANT-TN" "MAKE-N-TNS" "MAKE-NORMAL-TN" - "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN" + "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" @@ -306,10 +317,13 @@ 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" "PUSH-VALUES" + "PRIMITIVE-TYPE-NAME" + "PRIMITIVE-TYPE-INDIRECT-CELL-TYPE" + "PUSH-VALUES" "READ-PACKED-BIT-VECTOR" "READ-VAR-INTEGER" "READ-VAR-STRING" + #!+inline-constants "REGISTER-INLINE-CONSTANT" "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" @@ -320,13 +334,14 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "SOURCE-LOCATION" "SOURCE-TRANSFORM-LAMBDA" "SPECIFY-SAVE-TN" + "STORE-COVERAGE-DATA" "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" + "UNSAFE" "UNSAFELY-FLUSHABLE" "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" @@ -335,7 +350,9 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "VAR-ALLOC" "SAFE-FDEFN-FUN" "NOTE-FIXUP" + "DEF-CASSER" "DEF-REFFER" + "EMIT-CONSTANT" "EMIT-NOP" "DEF-SETTER" "FIXED-ALLOC" @@ -343,42 +360,44 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "MAKE-FUNCALLABLE-INSTANCE-TRAMP" "RETURN-SINGLE" "NOTE-NEXT-INSTRUCTION" - "SET-SLOT" + "SET-SLOT" "INIT-SLOT" "LOCATION-NUMBER" "*COMPONENT-BEING-COMPILED*" "BLOCK-NUMBER" - "BACKEND" "IR2-BLOCK-BLOCK" "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" + "IMMEDIATE-CONSTANT-SC" + "BOXED-IMMEDIATE-SC-P" + "COMBINATION-IMPLEMENTATION-STYLE" + "CONVERT-CONDITIONAL-MOVE-P" + "LOCATION-PRINT-NAME" + "PRIMITIVE-TYPE-OF" + "PRIMITIVE-TYPE" + "MAKE-CALL-OUT-TNS" + "STANDARD-ARG-LOCATION" + "MAKE-RETURN-PC-PASSING-LOCATION" + "MAKE-OLD-FP-PASSING-LOCATION" + "MAKE-OLD-FP-SAVE-LOCATION" + "MAKE-RETURN-PC-SAVE-LOCATION" + "MAKE-ARG-COUNT-LOCATION" + "MAKE-NFP-TN" + "MAKE-STACK-POINTER-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" + "GENERATE-CALL-SEQUENCE" + "GENERATE-RETURN-SEQUENCE" + "LOCATION-NUMBER" + "WITH-COMPILER-ERROR-RESIGNALLING" "WITH-SOURCE-LOCATION" - "*SOURCE-LOCATION-THUNKS*")) + "*SOURCE-LOCATION-THUNKS*" + + "BRANCH-IF")) #s(sb-cold:package-data :name "SB!DEBUG" @@ -389,32 +408,36 @@ is still mixed indiscriminately with low-level internal implementation stuff like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!KERNEL") :reexport ("*DEBUG-PRINT-VARIABLE-ALIST*") - :export ("*DEBUG-BEGINNER-HELP-P*" + :export ("*BACKTRACE-FRAME-COUNT*" + "*DEBUG-BEGINNER-HELP-P*" "*DEBUG-CONDITION*" "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*" "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*" - "*SHOW-ENTRY-POINT-DETAILS*" + "*METHOD-FRAME-STYLE*" "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*" - "*TRACE-FRAME*" "*TRACED-FUN-LIST*" - "ARG" "BACKTRACE" "BACKTRACE-AS-LIST" "INTERNAL-DEBUG" "VAR" - "*PRINT-LOCATION-KIND*" - "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*" - "*TRACE-VALUES*" "DO-DEBUG-COMMAND" + "ARG" + "INTERNAL-DEBUG" "VAR" + "*STACK-TOP-HINT*" + "*TRACE-VALUES*" "*TRACE-ENCAPSULATE-DEFAULT*" "FRAME-HAS-DEBUG-TAG-P" - "UNWIND-TO-FRAME-AND-CALL")) + "UNWIND-TO-FRAME-AND-CALL" + ;; Deprecated + "BACKTRACE" "BACKTRACE-AS-LIST" "*SHOW-ENTRY-POINT-DETAILS*" + ;; Replaced by + "PRINT-BACKTRACE" "LIST-BACKTRACE")) #s(sb-cold:package-data :name "SB!DI" :doc "private: primitives used to write debuggers" :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!VM") :import-from (("SB!C" - "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" + "DEBUG-SOURCE-FORM" "DEBUG-SOURCE-NAMESTRING" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE" "DEBUG-SOURCE" "DEBUG-SOURCE-P")) - :reexport ("DEBUG-SOURCE-FROM" - "DEBUG-SOURCE-NAME" + :reexport ("DEBUG-SOURCE-FORM" + "DEBUG-SOURCE-NAMESTRING" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE" "DEBUG-SOURCE-P") @@ -437,21 +460,22 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "DEBUG-VAR-SYMBOL-NAME" "DEBUG-VAR-P" "DEBUG-VAR-PACKAGE-NAME" "DEBUG-VAR-SYMBOL" "DEBUG-VAR-VALID-VALUE" "DEBUG-VAR-VALIDITY" "DEBUG-VAR-VALUE" - "DELETE-BREAKPOINT" "DO-BLOCKS" + "DELETE-BREAKPOINT" "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUN-BLOCKS" "DO-DEBUG-FUN-VARS" "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES" "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUN" "FRAME-DOWN" "FRAME-FUN-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP" + "GET-TOPLEVEL-FORM" "REPLACE-FRAME-CATCH-TAG" "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" - "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT" - "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" "UNKNOWN-CODE-LOCATION" - "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VAR" + "NO-DEBUG-FUN-RETURNS" "PREPROCESS-FOR-EVAL" + "EVAL-IN-FRAME" "RETURN-FROM-FRAME" "SOURCE-PATH-CONTEXT" + "TOP-FRAME" "UNHANDLED-DEBUG-CONDITION" + "UNKNOWN-DEBUG-VAR" "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE")) #s(sb-cold:package-data @@ -460,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" @@ -482,25 +503,24 @@ 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" + "MAKE-SEGMENT" "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" @@ -528,13 +548,14 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "BUILD-ID-CORE-ENTRY-TYPE-CODE" "*FASL-FILE-TYPE*" "CLOSE-FASL-OUTPUT" + "DEFLATED-CORE-SPACE-ID-FLAG" "DUMP-ASSEMBLER-ROUTINES" "DUMP-OBJECT" "DYNAMIC-CORE-SPACE-ID" "END-CORE-ENTRY-TYPE-CODE" "FASL-CONSTANT-ALREADY-DUMPED-P" "+FASL-FILE-VERSION+" - "FASL-DUMP-COLD-LOAD-FORM" "FASL-DUMP-COMPONENT" + "FASL-DUMP-COMPONENT" "FASL-DUMP-COLD-FSET" "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA" "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL" @@ -544,8 +565,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" - #!+(and sb-thread sb-lutex) "LUTEX-TABLE-CORE-ENTRY-TYPE-CODE" + "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" @@ -572,22 +594,68 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY") :export ( ;; Information about how the program was invoked is ;; nonstandard but very useful. - "*POSIX-ARGV*" "*CORE-PATHNAME*" + "*POSIX-ARGV*" "*CORE-PATHNAME*" "*RUNTIME-PATHNAME*" "POSIX-GETENV" "POSIX-ENVIRON" + ;; Customizing initfile locations + "*USERINIT-PATHNAME-FUNCTION*" + "*SYSINIT-PATHNAME-FUNCTION*" + + ;; Compare and Swap support + "CAS" + "COMPARE-AND-SWAP" + "DEFCAS" + "DEFINE-CAS-EXPANDER" + "GET-CAS-EXPANSION" + + ;; Other atomic operations and types related to them + "ATOMIC-INCF" + "ATOMIC-DECF" + "ATOMIC-UPDATE" + "ATOMIC-PUSH" + "ATOMIC-POP" + "WORD" + "MOST-POSITIVE-WORD" + + ;; Not an atomic operation, but should be used with them + "SPIN-LOOP-HINT" + + ;; Waiting for arbitrary events. + "WAIT-FOR" + + ;; Time related things + "CALL-WITH-TIMING" + "GET-TIME-OF-DAY" + ;; People have various good reasons to mess with the GC. "*AFTER-GC-HOOKS*" "BYTES-CONSED-BETWEEN-GCS" - "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED" + "GC" "GET-BYTES-CONSED" "*GC-RUN-TIME*" "PURIFY" + "DYNAMIC-SPACE-SIZE" + ;; Gencgc only, but symbols exist for manual building + ;; convenience on all platforms. + "GENERATION-AVERAGE-AGE" + "GENERATION-BYTES-ALLOCATED" + "GENERATION-BYTES-CONSED-BETWEEN-GCS" + "GENERATION-MINIMUM-AGE-BEFORE-GC" + "GENERATION-NUMBER-OF-GCS" + "GENERATION-NUMBER-OF-GCS-BEFORE-PROMOTION" + "GC-LOGFILE" + + ;; Stack allocation control + "*STACK-ALLOCATE-DYNAMIC-EXTENT*" ;; Customizing printing of compiler and debugger messages "*COMPILER-PRINT-VARIABLE-ALIST*" "*DEBUG-PRINT-VARIABLE-ALIST*" ;; Hooks into init & save sequences - "*INIT-HOOKS*" "*SAVE-HOOKS*" + "*INIT-HOOKS*" "*SAVE-HOOKS*" "*EXIT-HOOKS*" + + ;; Controlling exiting other threads. + "*EXIT-TIMEOUT*" ;; There is no one right way to report progress on ;; hairy compiles. @@ -613,7 +681,13 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME" "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE" - ;; package-locking stuff + ;; global lexicals, access to global symbol values + "DEFGLOBAL" + "SYMBOL-GLOBAL-VALUE" + + ;; package extensions + ;; + ;; locks #!+sb-package-locks "PACKAGE-LOCKED-P" #!+sb-package-locks "LOCK-PACKAGE" #!+sb-package-locks "UNLOCK-PACKAGE" @@ -629,20 +703,39 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "WITHOUT-PACKAGE-LOCKS" "DISABLE-PACKAGE-LOCKS" "ENABLE-PACKAGE-LOCKS" - - ;; error signalled when attempt to load an invalid fasl - ;; is made, so that user code can try to recompile, etc. + ;; local nicknames + "ADD-PACKAGE-LOCAL-NICKNAME" + "REMOVE-PACKAGE-LOCAL-NICKNAME" + "PACKAGE-LOCAL-NICKNAMES" + "PACKAGE-LOCALLY-NICKNAMED-BY-LIST" + ;; behaviour on DEFPACKAGE variance + "*ON-PACKAGE-VARIANCE*" + + ;; Custom conditions & condition accessors for users to handle. + "CODE-DELETION-NOTE" + "COMPILER-NOTE" + "IMPLICIT-GENERIC-FUNCTION-NAME" + "IMPLICIT-GENERIC-FUNCTION-WARNING" "INVALID-FASL" + "DEPRECATION-CONDITION" + + "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION" + "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS" + "RESOLVE-CONFLICT" - ;; conditions that can be handled to reduce compiler - ;; verbosity - "CODE-DELETION-NOTE" "COMPILER-NOTE" + "PRINT-UNREADABLY" ;; and a mechanism for controlling same at compile time "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS" + ;; and one for controlling same at runtime + "*MUFFLED-WARNINGS*" + + ;; specification which print errors to ignore ala *break-on-signal* + "*SUPPRESS-PRINT-ERRORS*" + ;; extended declarations.. - "FREEZE-TYPE" "INHIBIT-WARNINGS" + "ALWAYS-BOUND" "FREEZE-TYPE" "GLOBAL" "INHIBIT-WARNINGS" "MAYBE-INLINE" ;; ..and variables to control compiler policy @@ -651,22 +744,38 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; ..and inspector of compiler policy "DESCRIBE-COMPILER-POLICY" + "RESTRICT-COMPILER-POLICY" ;; a special form for breaking out of our "declarations ;; are assertions" default "TRULY-THE" + ;; Misc. array and vector tools. + "ARRAY-STORAGE-VECTOR" + ;; This is something which must exist inside any Common ;; Lisp implementation, and which someone writing a ;; customized toplevel might well want. It seems perverse ;; to hide it from them.. "INTERACTIVE-EVAL" + ;; Used by LOAD and EVAL-WHEN to pass toplevel indexes + ;; to compiler. + "EVAL-TLF" + ;; weak pointers and finalization "CANCEL-FINALIZATION" "FINALIZE" - "HASH-TABLE-WEAKNESS" "MAKE-WEAK-POINTER" - "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE" + "MAKE-WEAK-POINTER" + "WEAK-POINTER" + "WEAK-POINTER-P" + "WEAK-POINTER-VALUE" + + ;; Hash table extensions + "DEFINE-HASH-TABLE-TEST" + "HASH-TABLE-SYNCHRONIZED-P" + "HASH-TABLE-WEAKNESS" + "WITH-LOCKED-HASH-TABLE" ;; If the user knows we're doing IEEE, he might reasonably ;; want to do this stuff. @@ -703,10 +812,18 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." "*INVOKE-DEBUGGER-HOOK*" ;; miscellaneous useful supported extensions - "QUIT" + "QUIT" "EXIT" "*ED-FUNCTIONS*" "*MODULE-PROVIDER-FUNCTIONS*" + "MAP-DIRECTORY" "WITH-TIMEOUT" "TIMEOUT" + "SEED-RANDOM-STATE" + "TYPEXPAND-1" "TYPEXPAND" "TYPEXPAND-ALL" + "DEFINED-TYPE-NAME-P" "VALID-TYPE-SPECIFIER-P" + "DELETE-DIRECTORY" + "SET-SBCL-SOURCE-LOCATION" + "*DISASSEMBLE-ANNOTATE*" + "PRINT-SYMBOL-WITH-PREFIX" ;; stepping interface "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION" @@ -723,7 +840,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; return a PROCESS object with operations defined on ;; that object. "RUN-PROGRAM" - "FIND-EXECUTABLE-IN-SEARCH-PATH" "PROCESS-ALIVE-P" "PROCESS-CLOSE" "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE" "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P" @@ -743,7 +859,22 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; timer "TIMER" "MAKE-TIMER" "TIMER-NAME" "TIMER-SCHEDULED-P" - "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS")) + "SCHEDULE-TIMER" "UNSCHEDULE-TIMER" "LIST-ALL-TIMERS" + + ;; SIMD pack + #!+sb-simd-pack "SIMD-PACK" + #!+sb-simd-pack "SIMD-PACK-P" + #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32" + #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64" + #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE" + #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE" + #!+sb-simd-pack "%SIMD-PACK-UB32S" + #!+sb-simd-pack "%SIMD-PACK-UB64S" + #!+sb-simd-pack "%SIMD-PACK-DOUBLES" + #!+sb-simd-pack "%SIMD-PACK-SINGLES" + + ;; versioning utility + "ASSERT-VERSION->=")) #s(sb-cold:package-data :name "SB!FORMAT" @@ -779,11 +910,34 @@ Lisp extension proposal by David N. Gray" :doc "private: miscellaneous unsupported extensions to the ANSI spec. Much of the stuff in here originated in CMU CL's EXTENSIONS package and is retained, -possibly temporariliy, because it might be used internally." +possibly temporarily, because it might be used internally." :use ("CL" "SB!ALIEN" "SB!GRAY" "SB!FASL" "SB!SYS") :export (;; lambda list keyword extensions "&MORE" + ;; utilities for floating point zero handling + "FP-ZERO-P" + "NEG-FP-ZERO" + + ;; Stack allocation without any questions asked + "TRULY-DYNAMIC-EXTENT" + + ;; Like WITH-LOCKED-HASH-TABLE, but disabled interrupts + "WITH-LOCKED-SYSTEM-TABLE" + + ;; generic set implementation + "ADD-TO-XSET" + "ALLOC-XSET" + "MAP-XSET" + "XSET" + "XSET-COUNT" + "XSET-EMPTY-P" + "XSET-INTERSECTION" + "XSET-MEMBER-P" + "XSET-MEMBERS" + "XSET-SUBSET-P" + "XSET-UNION" + ;; communication between the runtime and Lisp "*CORE-STRING*" @@ -797,12 +951,15 @@ possibly temporariliy, because it might be used internally." "INFO" "MAKE-INFO-ENVIRONMENT" + ;; Calling a list of hook functions, plus error handling. + "CALL-HOOKS" + ;; Constant form evaluation "CONSTANT-FORM-VALUE" "CONSTANT-TYPEP" ;; stepping control - "*STEPPING*" "*STEP*" + "*STEPPING*" ;; packages grabbed once and for all "*KEYWORD-PACKAGE*" "*CL-PACKAGE*" @@ -810,6 +967,10 @@ possibly temporariliy, because it might be used internally." ;; hash mixing operations "MIX" "MIXF" + ;; Macroexpansion that doesn't touch special forms + "%MACROEXPAND" + "%MACROEXPAND-1" + ;; I'm not convinced that FDEFINITIONs are the ideal ;; solution, so exposing ways to peek into the system ;; seems undesirable, since it makes it harder to get @@ -817,24 +978,46 @@ possibly temporariliy, because it might be used internally." "*SETF-FDEFINITION-HOOK*" ;; error-reporting facilities + "ARGUMENTS-OUT-OF-DOMAIN-ERROR" + "BAD-TYPE" + "CLOSED-STREAM-ERROR" "COMPILED-PROGRAM-ERROR" + "COMPILER-MACRO-KEYWORD-PROBLEM" "ENCAPSULATED-CONDITION" "INTERPRETED-PROGRAM-ERROR" + "INVALID-ARRAY-ERROR" + "INVALID-ARRAY-INDEX-ERROR" + "INVALID-ARRAY-P" "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR" "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR" - "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION" + "SIMPLE-READER-ERROR" + "SIMPLE-READER-PACKAGE-ERROR" + "SIMPLE-REFERENCE-ERROR" + "SIMPLE-REFERENCE-WARNING" + "SIMPLE-STREAM-ERROR" + "SIMPLE-STORAGE-CONDITION" "SIMPLE-STYLE-WARNING" - + "TRY-RESTART" + + ;; error-signalling facilities + "STANDARD-READTABLE-MODIFIED-ERROR" + "STANDARD-PPRINT-DISPATCH-TABLE-MODIFIED-ERROR" + "ARRAY-BOUNDING-INDICES-BAD-ERROR" + "CIRCULAR-LIST-ERROR" + "SEQUENCE-BOUNDING-INDICES-BAD-ERROR" "SPECIAL-FORM-FUNCTION" "STYLE-WARN" "SIMPLE-COMPILER-NOTE" - + "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" ;; FIXME: potential SB!EXT exports "CHARACTER-CODING-ERROR" "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" ;; bootstrapping magic, to make things happen both in @@ -858,17 +1041,19 @@ possibly temporariliy, because it might be used internally." "SBCL-HOMEDIR-PATHNAME" "SIMPLIFY-NAMESTRING" - ;; PCOUNTERs - "FASTBIG-INCF-PCOUNTER-OR-FIXNUM" - "INCF-PCOUNTER" - "INCF-PCOUNTER-OR-FIXNUM" - "MAKE-PCOUNTER" - "PCOUNTER" - "PCOUNTER->INTEGER" - "PCOUNTER-OR-FIXNUM->INTEGER" - "PCOUNTER-P" "*N-BYTES-FREED-OR-PURIFIED*" + ;; Deprecating stuff + "DEFINE-DEPRECATED-FUNCTION" + "DEFINE-DEPRECATED-VARIABLE" + "DEPRECATED-VARIABLE" + "CHECK-DEPRECATED-VARIABLE" + "EARLY-DEPRECATION-WARNING" + "LATE-DEPRECATION-WARNING" + "FINAL-DEPRECATION-WARNING" + "DEPRECATION-WARNING" + "DEPRECATION-ERROR" + ;; miscellaneous non-standard but handy user-level functions.. "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ" "ADJUST-LIST" @@ -885,24 +1070,29 @@ possibly temporariliy, because it might be used internally." "PSXHASH" "%BREAK" "NTH-BUT-WITH-SANE-ARG-ORDER" - "DEPRECATION-WARNING" "BIT-VECTOR-=" + "PATHNAME=" + "HASH-TABLE-EQUALP" "READ-EVALUATED-FORM" "MAKE-UNPRINTABLE-OBJECT" + "POWER-OF-TWO-CEILING" + "PRINT-NOT-READABLE-ERROR" ;; ..and macros.. "COLLECT" - "DO-ANONYMOUS" "DOHASH" "DOVECTOR" + "DO-ANONYMOUS" "DOVECTOR" "DOHASH" "DOPLIST" "NAMED-LET" "ONCE-ONLY" "DEFENUM" "DEFPRINTER" "AVER" "ENFORCE-TYPE" + "DX-FLET" "DX-LET" "AWHEN" "ACOND" "IT" "BINDING*" "!DEF-BOOLEAN-ATTRIBUTE" "WITH-REBOUND-IO-SYNTAX" "WITH-SANE-IO-SYNTAX" + "WITH-PROGRESSIVE-TIMEOUT" ;; ..and CONDITIONs.. "BUG" @@ -916,24 +1106,23 @@ possibly temporariliy, because it might be used internally." "*PRINT-CONDITION-REFERENCES*" "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME" - "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH" - "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH" + "PACKAGE-AT-VARIANCE" + "PACKAGE-AT-VARIANCE-ERROR" + "ARRAY-INITIAL-ELEMENT-MISMATCH" + "TYPE-WARNING" "TYPE-STYLE-WARNING" + "LOCAL-ARGUMENT-MISMATCH" "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING" "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE" "STRUCTURE-INITARG-NOT-KEYWORD" "CONSTANT-MODIFIED" - "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION" - "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS" - "RESOLVE-CONFLICT" - ;; ..and DEFTYPEs.. + "MAX-HASH" "HASH" "INDEX" "LOAD/STORE-INDEX" "SIGNED-BYTE-WITH-A-BITE-OUT" "UNSIGNED-BYTE-WITH-A-BITE-OUT" "SFUNCTION" "UNSIGNED-BYTE*" "CONSTANT-DISPLACEMENT" ;; ..and type predicates - "INSTANCEP" "DOUBLE-FLOAT-P" "LOGICAL-PATHNAME-P" "LONG-FLOAT-P" @@ -955,32 +1144,26 @@ possibly temporariliy, because it might be used internally." "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE" ;; symbol-hacking idioms - "KEYWORDICATE" "SYMBOLICATE" + "GENSYMIFY" "KEYWORDICATE" "SYMBOLICATE" ;; certainly doesn't belong in public extensions ;; FIXME: maybe belongs in %KERNEL with other typesystem stuff? "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 "DEFINE-HASH-CACHE" "DEFUN-CACHED" "DEFINE-CACHED-SYNONYM" + "DROP-ALL-HASH-CACHES" ;; time "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" @@ -994,7 +1177,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 @@ -1018,19 +1201,15 @@ possibly temporariliy, because it might be used internally." "LISTEN-SKIP-WHITESPACE" "PACKAGE-INTERNAL-SYMBOL-COUNT" "PACKAGE-EXTERNAL-SYMBOL-COUNT" "PARSE-BODY" "PARSE-LAMBDA-LIST" "PARSE-LAMBDA-LIST-LIKE-THING" - "PROPER-LIST-OF-LENGTH-P" + "PROPER-LIST-OF-LENGTH-P" "PROPER-LIST-P" "LIST-OF-LENGTH-AT-LEAST-P" "LIST-WITH-LENGTH-P" "SINGLETON-P" - "READ-SEQUENCE-OR-DIE" - "RENAME-KEY-ARGS" - "MISSING-ARG" - "UNIX-NAMESTRING" ; FIXME: perhaps belongs in package SB!UNIX + "MISSING-ARG" "FEATUREP" "FLUSH-STANDARD-OUTPUT-STREAMS" "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST" "ABOUT-TO-MODIFY-SYMBOL-VALUE" - "SYMBOL-SELF-EVALUATING-P" "SELF-EVALUATING-P" "PRINT-PRETTY-ON-STREAM-P" "ARRAY-READABLY-PRINTABLE-P" @@ -1038,9 +1217,9 @@ 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" ;; These could be moved back into SB!EXT if someone has ;; compelling reasons, but hopefully we can get by @@ -1049,17 +1228,11 @@ possibly temporariliy, because it might be used internally." "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES" "WITH-FLOAT-TRAPS-MASKED" - "DEFINE-HASH-TABLE-TEST" - - ;; compatibility hacks for old-style CMU CL data formats - "UNIX-ENVIRONMENT-CMUCL-FROM-SBCL" - "UNIX-ENVIRONMENT-SBCL-FROM-CMUCL" ;; a sort of quasi-unbound tag for use in hash tables "+EMPTY-HT-SLOT+" ;; low-level i/o stuff - "DONE-WITH-FAST-READ-BYTE" "DONE-WITH-FAST-READ-CHAR" "FAST-READ-BYTE" "FAST-READ-BYTE-REFILL" @@ -1070,7 +1243,7 @@ possibly temporariliy, because it might be used internally." "FAST-READ-VAR-U-INTEGER" "FILE-NAME" "INTERN*" - "PREPARE-FOR-FAST-READ-BYTE" + "WITH-FAST-READ-BYTE" "PREPARE-FOR-FAST-READ-CHAR" ;; reflection of our backquote implementation that the @@ -1105,7 +1278,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. @@ -1120,38 +1293,124 @@ integration' (said CMU CL architecture.tex) and that probably was and is a good idea, but see SB-SYS re. blurring of boundaries." :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM" "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY") - :reexport ("DEF!STRUCT" "DEF!MACRO") + :reexport ("DEF!STRUCT" + "DEF!MACRO" + #!+sb-simd-pack "SIMD-PACK" + #!+sb-simd-pack "SIMD-PACK-P" + #!+sb-simd-pack "%MAKE-SIMD-PACK-UB32" + #!+sb-simd-pack "%MAKE-SIMD-PACK-UB64" + #!+sb-simd-pack "%MAKE-SIMD-PACK-DOUBLE" + #!+sb-simd-pack "%MAKE-SIMD-PACK-SINGLE" + #!+sb-simd-pack "%SIMD-PACK-UB32S" + #!+sb-simd-pack "%SIMD-PACK-UB64S" + #!+sb-simd-pack "%SIMD-PACK-DOUBLES" + #!+sb-simd-pack "%SIMD-PACK-SINGLES") :export ("%ACOS" - "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR" + "%ACOSH" + "%ADJOIN" + "%ADJOIN-EQ" + "%ADJOIN-KEY" + "%ADJOIN-KEY-EQ" + "%ADJOIN-KEY-TEST" + "%ADJOIN-KEY-TEST-NOT" + "%ADJOIN-TEST" + "%ADJOIN-TEST-NOT" + "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR" "%ARRAY-DIMENSION" "%ARRAY-DISPLACED-P" + "%ARRAY-DISPLACED-FROM" "%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" + "%ARRAY-FILL-POINTER-P" "%ARRAY-RANK" + #!+(or x86 x86-64 ppc) + "%ARRAY-ATOMIC-INCF/WORD" + #!+ash-right-vops "%ASH/RIGHT" + "%ASSOC" + "%ASSOC-EQ" + "%ASSOC-IF" + "%ASSOC-IF-KEY" + "%ASSOC-IF-NOT" + "%ASSOC-IF-NOT-KEY" + "%ASSOC-KEY" + "%ASSOC-KEY-EQ" + "%ASSOC-KEY-TEST" + "%ASSOC-KEY-TEST-NOT" + "%ASSOC-TEST" + "%ASSOC-TEST-NOT" + "%ASIN" "%ASINH" + "%ATAN" "%ATAN2" "%ATANH" + "%CALLER-FRAME" + "%CALLER-PC" + "%CEILING" + "%CHECK-BOUND" + "%CHECK-GENERIC-SEQUENCE-BOUNDS" + "%CHECK-VECTOR-SEQUENCE-BOUNDS" + "%COMPARE-AND-SWAP-CAR" + "%COMPARE-AND-SWAP-CDR" + "%COMPARE-AND-SWAP-INSTANCE-REF" + "%COMPARE-AND-SWAP-SVREF" + "%COMPARE-AND-SWAP-SYMBOL-PLIST" + "%COMPARE-AND-SWAP-SYMBOL-VALUE" + "%CONCATENATE-TO-BASE-STRING" + "%CONCATENATE-TO-STRING" + "%COS" "%COS-QUICK" "%COSH" "%DATA-VECTOR-AND-INDEX" "%DEPOSIT-FIELD" - "%DOUBLE-FLOAT" "%DPB" "%EQL" "%EXP" "%EXPM1" "%FIND-POSITION" + "%DOUBLE-FLOAT" "%DPB" "%EQL" + "%EXIT" + "%EXP" "%EXPM1" + "%FLOOR" + "%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-FUN" - "%FUN-NAME" + "FIXNUM-MOD-P" "%HYPOT" "%LDB" "%LOG" "%LOGB" "%LOG10" + "%LAST0" + "%LAST1" + "%LASTN/FIXNUM" + "%LASTN/BIGNUM" "%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-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" + "%MAKE-FUNCALLABLE-STRUCTURE-INSTANCE-ALLOCATOR" + "%MAKE-RATIO" "%MAKE-LISP-OBJ" + "%MAKE-INSTANCE" + #!+sb-simd-pack "%MAKE-SIMD-PACK" + "%MAKE-STRUCTURE-INSTANCE" + "%MAKE-STRUCTURE-INSTANCE-ALLOCATOR" + "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" + "%MAP-TO-LIST-ARITY-1" + "%MASK-FIELD" + "%MEMBER" + "%MEMBER-EQ" + "%MEMBER-IF" + "%MEMBER-IF-KEY" + "%MEMBER-IF-NOT" + "%MEMBER-IF-NOT-KEY" + "%MEMBER-KEY" + "%MEMBER-KEY-EQ" + "%MEMBER-KEY-TEST" + "%MEMBER-KEY-TEST-NOT" + "%MEMBER-TEST" + "%MEMBER-TEST-NOT" + "%MULTIPLY-HIGH" + "%NEGATE" "%POW" + "%OTHER-POINTER-WIDETAG" + "%PUTHASH" + "%RASSOC" + "%RASSOC-EQ" + "%RASSOC-IF" + "%RASSOC-IF-KEY" + "%RASSOC-IF-NOT" + "%RASSOC-IF-NOT-KEY" + "%RASSOC-KEY" + "%RASSOC-KEY-EQ" + "%RASSOC-KEY-TEST" + "%RASSOC-KEY-TEST-NOT" + "%RASSOC-TEST" + "%RASSOC-TEST-NOT" + "%VECTOR-RAW-BITS" + "%SCALB" "%SCALBN" + #!+(or x86 x86-64 ppc) + "%RAW-INSTANCE-ATOMIC-INCF/WORD" "%RAW-INSTANCE-REF/WORD" "%RAW-INSTANCE-SET/WORD" "%RAW-INSTANCE-REF/SINGLE" "%RAW-INSTANCE-SET/SINGLE" "%RAW-INSTANCE-REF/DOUBLE" "%RAW-INSTANCE-SET/DOUBLE" @@ -1160,22 +1419,34 @@ 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" - "%SET-SAP-REF-LONG" "%SET-SAP-REF-SAP" + "%SET-SAP-REF-LISPOBJ" "%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-WORD" "%SET-SIGNED-SAP-REF-8" "%SET-STACK-REF" - "%SET-SYMBOL-HASH" "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT" + "%SET-SYMBOL-HASH" + "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT" "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING" + #!+sb-simd-pack "%SIMD-PACK-TAG" + #!+sb-simd-pack "%SIMD-PACK-LOW" + #!+sb-simd-pack "%SIMD-PACK-HIGH" "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH" - "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE" - "%WITH-ARRAY-DATA" "%WITH-ARRAY-DATA-MACRO" + "%UNARY-ROUND" + "%UNARY-TRUNCATE" + "%UNARY-TRUNCATE/SINGLE-FLOAT" + "%UNARY-TRUNCATE/DOUBLE-FLOAT" + "%UNARY-FTRUNCATE" + "%WITH-ARRAY-DATA" + "%WITH-ARRAY-DATA/FP" + "%WITH-ARRAY-DATA-MACRO" + "*APPROXIMATE-NUMERIC-UNIONS*" "*CURRENT-LEVEL-IN-PRINT*" - "*EMPTY-TYPE*" "*GC-INHIBIT*" "*GC-PENDING*" + "*EMPTY-TYPE*" + "*EVAL-CALLS*" + "*GC-INHIBIT*" "*GC-PENDING*" #!+sb-thread "*STOP-FOR-GC-PENDING*" "*UNIVERSAL-TYPE*" "*UNIVERSAL-FUN-TYPE*" "*UNPARSE-FUN-TYPE-SIMPLIFY*" @@ -1190,15 +1461,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" @@ -1234,18 +1504,16 @@ is a good idea, but see SB-SYS re. blurring of boundaries." #!+long-float "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT" "DEFINE-STRUCTURE-SLOT-ADDRESSOR" - "DEFINE-STRUCTURE-SLOT-COMPARE-AND-EXCHANGE" "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" - "EXTENDED-CHAR-P" - "FAILED-%WITH-ARRAY-DATA" "FDEFINITION-OBJECT" + "EXTENDED-CHAR-P" "EXTERNAL-FORMAT-DESIGNATOR" + "FDEFINITION-OBJECT" "FDOCUMENTATION" "FILENAME" "FIND-AND-INIT-OR-CHECK-LAYOUT" "FIND-DEFSTRUCT-DESCRIPTION" @@ -1261,13 +1529,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "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-REF" "HAIRY-DATA-VECTOR-REF/CHECK-BOUNDS" "HAIRY-DATA-VECTOR-SET" "HAIRY-DATA-VECTOR-SET/CHECK-BOUNDS""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-DEBUG-SOURCES*" "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*" "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*" "INTEGER-DECODE-DOUBLE-FLOAT" @@ -1276,28 +1545,37 @@ is a good idea, but see SB-SYS re. blurring of boundaries." #!+win32 "HANDLE-WIN32-EXCEPTION" "INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P" "INTERSECTION-TYPE-TYPES" "INVALID-ARG-COUNT-ERROR" - "INVALID-ARRAY-INDEX-ERROR" "INVALID-UNWIND-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" - "LAYOUT-N-UNTAGGED-SLOTS" + "LAYOUT-N-UNTAGGED-SLOTS" "LAYOUT-FOR-STD-CLASS-P" + "LAYOUT-SLOT-TABLE" #!+(or x86-64 x86) "%LEA" - "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM" + "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" + "LIST-COPY-SEQ*" + "LIST-FILL*" + "LIST-SUBSEQ*" + "ANSI-STREAM" "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE" - "ANSI-STREAM-ELEMENT-TYPE" "ANSI-STREAM-IN" + "ANSI-STREAM-ELEMENT-TYPE" + "ANSI-STREAM-FILE-POSITION" + "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*" + "ANSI-STREAM-OUTPUT-STREAM-P" + "COMPLEX-VECTOR" + "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" + "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" @@ -1305,16 +1583,23 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE" "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY" - "MAKE-UNPORTABLE-FLOAT" "%MAKE-INSTANCE" + "MAKE-UNPORTABLE-FLOAT" "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" + "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" + "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" "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" @@ -1346,6 +1631,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR" #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR" + #!+sb-simd-pack + "OBJECT-NOT-SIMD-PACK-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-ERROR" @@ -1368,22 +1655,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries." ;; 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-FIXNUM-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-FIXNUM-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" @@ -1406,14 +1689,19 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS" "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE" "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR" + "POINTER-HASH" #!+(or x86 x86-64) "*PSEUDO-ATOMIC-BITS*" - "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR" - "READER-PACKAGE-ERROR" "READER-EOF-ERROR" + "PUNT-PRINT-IF-TOO-LONG" + "RANDOM-DOCUMENTATION" + "RAW-INSTANCE-SLOTS-EQUALP" + "READER-IMPOSSIBLE-NUMBER-ERROR" + "READER-EOF-ERROR" "RESTART-DESIGNATOR" "RUN-PENDING-FINALIZERS" "SCALE-DOUBLE-FLOAT" #!+long-float "SCALE-LONG-FLOAT" "SCALE-SINGLE-FLOAT" + "SCRUB-POWER-CACHE" "SEQUENCEP" "SEQUENCE-COUNT" "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE" "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END" @@ -1430,22 +1718,17 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "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-FIXNUM-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-FIXNUM-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" #!+sb-unicode "SIMPLE-CHARACTER-STRING-P" @@ -1454,20 +1737,33 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND" "SINGLE-VALUE-TYPE" "SINGLE-VALUE-SPECIFIER-TYPE" "SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE" + #!+sb-simd-pack "SIMD-PACK-SINGLE" + #!+sb-simd-pack "SIMD-PACK-DOUBLE" + #!+sb-simd-pack "SIMD-PACK-INT" + #!+sb-simd-pack "SIMD-PACK-TYPE" + #!+sb-simd-pack "SIMD-PACK-TYPE-ELEMENT-TYPE" + #!+sb-simd-pack "*SIMD-PACK-ELEMENT-TYPES*" "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" + "STRING-FILL*" + "SUB-GC" + "SYMBOLS-DESIGNATOR" + "%INSTANCE-LENGTH" + "%INSTANCE-REF" + "%INSTANCE-SET" + "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-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECTION" + "TYPE-*-TO-T" + "TYPE-DIFFERENCE" "TYPE-INTERSECTION" "TYPE-INTERSECTION2" "TYPE-APPROX-INTERSECTION2" + "TYPE-SINGLETON-P" "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" + "UNDEFINED-FUN-ERROR" "UNDEFINED-ALIEN-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" @@ -1476,15 +1772,34 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "UPDATE-OBJECT-LAYOUT-OR-INVALID" "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" "VALUES-TYPE-IN" + "VALUES-TYPE-INTERSECTION" + "VALUES-TYPE-MIN-VALUE-COUNT" "VALUES-TYPE-MAX-VALUE-COUNT" + "VALUES-TYPE-MAY-BE-SINGLE-VALUE-P" "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*" + "VALUES-TYPES-EQUAL-OR-INTERSECT" + + "*VECTOR-WITHOUT-COMPLEX-TYPECODE-INFOS*" + "VECTOR-SINGLE-FLOAT-P" "VECTOR-DOUBLE-FLOAT-P" + "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-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" + "VECTOR-SIGNED-BYTE-64-P" "VECTOR-COMPLEX-SINGLE-FLOAT-P" + "VECTOR-COMPLEX-DOUBLE-FLOAT-P" "VECTOR-T-P" + + "VECTOR-NIL-P" + "VECTOR-FILL*" + "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) "UB1-BASH-FILL" "SYSTEM-AREA-UB1-FILL" @@ -1511,57 +1826,94 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "UB64-BASH-COPY" "SYSTEM-AREA-UB64-COPY" "COPY-UB64-TO-SYSTEM-AREA" "COPY-UB64-FROM-SYSTEM-AREA" + ;; Bit bashing position for bit-vectors + "%BIT-POSITION" + "%BIT-POSITION/0" + "%BIT-POSITION/1" + + ;; SIMPLE-FUN type and accessors + "SIMPLE-FUN" + "SIMPLE-FUN-P" + "%SIMPLE-FUN-ARGLIST" + "%SIMPLE-FUN-DOC" + "%SIMPLE-FUN-INFO" + "%SIMPLE-FUN-NAME" + "%SIMPLE-FUN-NEXT" + "%SIMPLE-FUN-SELF" + "%SIMPLE-FUN-TYPE" + "%SIMPLE-FUN-XREFS" + + ;; CLOSURE type and accessors + "CLOSURE" + "CLOSUREP" + "DO-CLOSURE-VALUES" + "%CLOSURE-FUN" + "%CLOSURE-INDEX-REF" + "%CLOSURE-VALUES" + + ;; Abstract function accessors + "%FUN-DOC" + "%FUN-FUN" + "%FUN-LAMBDA-LIST" + "%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" + "FIND-CALLER-OF-NAMED-FRAME" "FIND-CALLER-NAME-AND-FRAME" "FIND-INTERRUPTED-NAME-AND-FRAME" - "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" + "%SET-SYMBOL-VALUE" "%SET-SYMBOL-GLOBAL-VALUE" "%SET-SYMBOL-PACKAGE" + "SET-SYMBOL-GLOBAL-VALUE" "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" "UNDEFINE-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" "%IMAGPART" "DSD-ACCESSOR-NAME" "%CODE-DEBUG-INFO" - "LAYOUT-CLASSOID" "LAYOUT-INVALID" "%SIMPLE-FUN-NAME" + "LAYOUT-CLASSOID" "LAYOUT-INVALID" "DSD-TYPE" "%INSTANCEP" "DEFSTRUCT-SLOT-DESCRIPTION" - "%SIMPLE-FUN-ARGLIST" "%SIMPLE-FUN-NEXT" - "LAYOUT-CLOS-HASH-LENGTH" "DD-PREDICATE-NAME" + "DD-PREDICATE-NAME" "CLASSOID-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO" "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR" - "LAYOUT-OF" "%SIMPLE-FUN-SELF" "%REALPART" + "LAYOUT-OF" "%REALPART" "STRUCTURE-CLASSOID-P" "DSD-INDEX" "STRUCTURE-CLASSOID" - "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH" "%SIMPLE-FUN-TYPE" + "%INSTANCE-LAYOUT" "LAYOUT-CLOS-HASH" "PROCLAIM-AS-FUN-NAME" "BECOME-DEFINED-FUN-NAME" "%NUMERATOR" "CLASSOID-TYPEP" "DSD-READ-ONLY" "DSD-DEFAULT" "LAYOUT-INHERITS" "DD-LENGTH" - "%CODE-ENTRY-POINTS" "%DENOMINATOR" "%SIMPLE-FUN-XREFS" + "%CODE-ENTRY-POINTS" "%DENOMINATOR" "%OTHER-POINTER-P" "STANDARD-CLASSOID" "CLASSOID-OF" - "MAKE-STANDARD-CLASSOID" "CLASSOID-CELL-TYPEP" - "FIND-CLASSOID-CELL" "EXTRACT-FUN-TYPE" + "MAKE-STANDARD-CLASSOID" + "CLASSOID-CELL-CLASSOID" + "CLASSOID-CELL-NAME" + "CLASSOID-CELL-PCL-CLASS" + "CLASSOID-CELL-TYPEP" + "%CLEAR-CLASSOID" + "FIND-CLASSOID-CELL" "%RANDOM-DOUBLE-FLOAT" #!+long-float "%RANDOM-LONG-FLOAT" "%RANDOM-SINGLE-FLOAT" "STATIC-CLASSOID" "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" "BIG-RANDOM-CHUNK" - "LAYOUT-CLOS-HASH-MAX" "CLASSOID-CELL-NAME" + "N-RANDOM-CHUNK-BITS" + "LAYOUT-CLOS-HASH-LIMIT" "BUILT-IN-CLASSOID-DIRECT-SUPERCLASSES" "BUILT-IN-CLASSOID-TRANSLATION" "RANDOM-LAYOUT-CLOS-HASH" "CLASSOID-PCL-CLASS" "FUNCALLABLE-STRUCTURE" "FUNCALLABLE-INSTANCE-FUN" "%FUNCALLABLE-INSTANCE-LAYOUT" "%SET-FUNCALLABLE-INSTANCE-LAYOUT" - "BASIC-STRUCTURE-CLASSOID" "CLASSOID-CELL-CLASSOID" "REGISTER-LAYOUT" - "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" - "MAKE-STATIC-CLASSOID" "INSTANCE-LAMBDA" + "FUNCALLABLE-INSTANCE" + "MAKE-STATIC-CLASSOID" "%MAKE-SYMBOL" "%FUNCALLABLE-INSTANCE-FUNCTION" "SYMBOL-HASH" @@ -1571,15 +1923,19 @@ 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" - "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET" - "DESCRIBE-CONDITION" "MAKE-RESTART" "COERCE-TO-CONDITION" + + "CASE-FAILURE" "NAMESTRING-PARSE-ERROR" + "NAMESTRING-PARSE-ERROR-OFFSET" + "MAKE-RESTART" "RESTART-ASSOCIATED-CONDITIONS" + "COERCE-TO-CONDITION" + + "ALLOCATE-CONDITION" "CONDITION-READER-FUNCTION" "CONDITION-WRITER-FUNCTION" @@ -1589,17 +1945,43 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CONDITION-SLOT-INITARGS" "CONDITION-SLOT-INITFORM" "CONDITION-SLOT-INITFORM-P" + "CONDITION-SLOT-INITFUNCTION" "CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS" "CONDITION-SLOT-WRITERS" + "REDEFINITION-WARNING" + "REDEFINITION-WITH-DEFUN" + "REDEFINITION-WITH-DEFMACRO" + "REDEFINITION-WITH-DEFGENERIC" + "REDEFINITION-WITH-DEFMETHOD" + "UNINTERESTING-ORDINARY-FUNCTION-REDEFINITION-P" + "UNINTERESTING-GENERIC-FUNCTION-REDEFINITION-P" + "UNINTERESTING-METHOD-REDEFINITION-P" + "UNINTERESTING-REDEFINITION" + "REDEFINITION-WITH-DEFTRANSFORM" + + "DUBIOUS-ASTERISKS-AROUND-VARIABLE-NAME" + "ASTERISKS-AROUND-LEXICAL-VARIABLE-NAME" + "ASTERISKS-AROUND-CONSTANT-VARIABLE-NAME" + "UNDEFINED-ALIEN-STYLE-WARNING" + #!+sb-eval + "LEXICAL-ENVIRONMENT-TOO-COMPLEX" + "CHARACTER-DECODING-ERROR-IN-COMMENT" + "DEPRECATED-EVAL-WHEN-SITUATIONS" + "PROCLAMATION-MISMATCH" + "TYPE-PROCLAMATION-MISMATCH" + "FTYPE-PROCLAMATION-MISMATCH" + "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF" "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT" "!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT" "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-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" "!POLICY-COLD-INIT-OR-RESANIFY" @@ -1607,6 +1989,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "!SHARPM-COLD-INIT" "!EARLY-PROCLAIM-COLD-INIT" "!LATE-PROCLAIM-COLD-INIT" "!CLASS-FINALIZE" "!CONSTANTP-COLD-INIT" + "!WORLD-LOCK-COLD-INIT" "FLOAT-COLD-INIT-OR-REINIT" "GC-REINIT" @@ -1615,7 +1998,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "STREAM-COLD-INIT-OR-RESET" ;; Cleanups to run before saving a core - "DEBUG-DEINIT" "FLOAT-DEINIT" "FOREIGN-DEINIT" "PROFILE-DEINIT" @@ -1637,29 +2019,80 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "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")) + "%SET-FDEFINITION" "%SCHARSET" + "%RPLACD" "%RPLACA" "%PUT" "%CHARSET")) #s(sb-cold:package-data :name "SB!THREAD" :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!KERNEL") :doc "public (but low-level): native thread support" - :export ("*CURRENT-THREAD*" "THREAD" "MAKE-THREAD" - "THREAD-NAME" "THREAD-ALIVE-P" - "LIST-ALL-THREADS" - "JOIN-THREAD" "JOIN-THREAD-ERROR" "JOIN-THREAD-ERROR-THREAD" + :export ("*CURRENT-THREAD*" + "DESTROY-THREAD" + "INTERRUPT-THREAD" "INTERRUPT-THREAD-ERROR" "INTERRUPT-THREAD-ERROR-THREAD" - "INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD" - "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE" - "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX" + "RETURN-FROM-THREAD" + "ABORT-THREAD" + "MAIN-THREAD-P" + "MAIN-THREAD" + "JOIN-THREAD" + "JOIN-THREAD-ERROR" + "JOIN-THREAD-ERROR-THREAD" + "LIST-ALL-THREADS" + "MAKE-THREAD" + "SYMBOL-VALUE-IN-THREAD" + "SYMBOL-VALUE-IN-THREAD-ERROR" + "TERMINATE-THREAD" + "THREAD" + "THREAD-DEADLOCK" + "THREAD-DEADLOCK-CYCLE" + "THREAD-ERROR" + "THREAD-ERROR-THREAD" + "THREAD-ALIVE-P" + "THREAD-EPHEMERAL-P" + "THREAD-NAME" + "THREAD-YIELD" + "FOREIGN-THREAD" + #!+(and sb-safepoint-strictly (not win32)) + "SIGNAL-HANDLING-THREAD" + ;; Memory barrier + "BARRIER" + ;; Mutexes + "GET-MUTEX" + "GRAB-MUTEX" + "HOLDING-MUTEX-P" + "MAKE-MUTEX" + "MUTEX" + "MUTEX-NAME" + "MUTEX-OWNER" + "MUTEX-VALUE" + "RELEASE-MUTEX" + "WITH-MUTEX" "WITH-RECURSIVE-LOCK" - "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME" - "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST" + ;; Condition variables + "CONDITION-BROADCAST" + "CONDITION-NOTIFY" + "CONDITION-WAIT" + "MAKE-WAITQUEUE" + "WAITQUEUE" + "WAITQUEUE-NAME" + ;; Sessions "MAKE-LISTENER-THREAD" - "RELEASE-FOREGROUND" "WITH-NEW-SESSION")) + "RELEASE-FOREGROUND" + "WITH-NEW-SESSION" + ;; Semaphores + "MAKE-SEMAPHORE" + "SEMAPHORE" + "SEMAPHORE-NAME" + "SEMAPHORE-COUNT" + "SIGNAL-SEMAPHORE" + "TRY-SEMAPHORE" + "WAIT-ON-SEMAPHORE" + ;; Semaphore notification objects + "CLEAR-SEMAPHORE-NOTIFICATION" + "MAKE-SEMAPHORE-NOTIFICATION" + "SEMAPHORE-NOTIFICATION" + "SEMAPHORE-NOTIFICATION-STATUS")) #s(sb-cold:package-data :name "SB!LOOP" @@ -1777,6 +2210,11 @@ versions of SBCL, and the other stuff in here is definitely not guaranteed to be present in later versions of SBCL. Use of this package is deprecated in favour of SB-MOP." :use ("CL" "SB!MOP" "SB!INT" "SB!EXT" "SB!WALKER" "SB!KERNEL") + ;; experimental SBCL-only (for now) symbols + :export ("MAKE-METHOD-SPECIALIZERS-FORM" + "PARSE-SPECIALIZER-USING-CLASS" + "UNPARSE-SPECIALIZER-USING-CLASS" + "+SLOT-UNBOUND+") ;; FIXME: After a little while, these reexports can probably go ;; away, as they're superseded by the use of SB-MOP as the ;; publically-accessible package. @@ -1901,7 +2339,7 @@ be submitted as a CDR" "CANONIZE-TEST" "CANONIZE-KEY" - "LENGTH" "ELT" + "EMPTYP" "LENGTH" "ELT" "MAKE-SEQUENCE-LIKE" "ADJUST-SEQUENCE" "COUNT" "COUNT-IF" "COUNT-IF-NOT" @@ -1927,40 +2365,48 @@ and even SB-VM seem to have become somewhat blurred over the years. Some anomalies (e.g. FIND-IF-IN-CLOSURE being in SB-SYS instead of SB-KERNEL) have been undone, but probably more remain." :use ("CL" "SB!EXT" "SB!INT") - :export ("%ASSEMBLER-CODE-TYPE" - "%BIND-ALIGNED-SAP" - ;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS + :export (;; FIXME: %PRIMITIVE shouldn't be here. (I now know that %SYS ;; is for OS-dependent stuff. %PRIMITIVE should probably be in ;; SB!KERNEL.) "%PRIMITIVE" "%STANDARD-CHAR-P" - "*FOREIGN-LOCK*" - "*INTERRUPTS-ENABLED*" "*INTERRUPT-PENDING*" + "*EXIT-ERROR-HANDLER*" + "*EXIT-IN-PROCESS*" + "*ALLOW-WITH-INTERRUPTS*" + "*INTERRUPTS-ENABLED*" + "*INTERRUPT-PENDING*" + #!+sb-thruption "*THRUPTION-PENDING*" "*LINKAGE-INFO*" "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*" + "*PERIODIC-POLLING-FUNCTION*" + "*PERIODIC-POLLING-PERIOD*" "*RUNTIME-DLHANDLE*" "*SHARED-OBJECTS*" + #!-sb-dynamic-core "*STATIC-FOREIGN-SYMBOLS*" "*STDERR*" "*STDIN*" - "*STDOUT*" "*TASK-DATA*" - "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*" + "*STDOUT*" + "*TTY*" "ADD-FD-HANDLER" "ALLOCATE-SYSTEM-MEMORY" - "BEEP" "BITS" - "BYTES" + "ALLOW-WITH-INTERRUPTS" + "BEEP" "BREAKPOINT-ERROR" + "CANCEL-DEADLINE" "CLOSE-SHARED-OBJECTS" - "COMPILER-VERSION" + "DEADLINE-TIMEOUT" "DEALLOCATE-SYSTEM-MEMORY" + "DECODE-TIMEOUT" + "DECODE-INTERNAL-TIME" "DEFAULT-INTERRUPT" - "DEPORT-BOOLEAN" "DEPORT-INTEGER" + "DEFER-DEADLINE" "DYNAMIC-FOREIGN-SYMBOLS-P" "DLOPEN-OR-LOSE" "FROB-DO-BODY" "ENABLE-INTERRUPT" - "ENUMERATION" "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" "EXTERN-ALIEN-NAME" + "EXIT-CODE" "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" "FIND-FOREIGN-SYMBOL-ADDRESS" @@ -1968,7 +2414,7 @@ SB-KERNEL) have been undone, but probably more remain." "FOREIGN-SYMBOL-SAP" "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-DATAREF-SAP" - "GET-PAGE-SIZE" "GET-SYSTEM-INFO" + "GET-MACHINE-VERSION" "GET-PAGE-SIZE" "GET-SYSTEM-INFO" "IGNORE-INTERRUPT" "IN-INTERRUPTION" "INTERACTIVE-INTERRUPT" @@ -1980,38 +2426,42 @@ SB-KERNEL) have been undone, but probably more remain." "MACRO" "MAKE-FD-STREAM" "MEMORY-FAULT-ERROR" "MEMMOVE" - "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" + "OS-EXIT" "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES" - "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE" + "READ-N-BYTES" "REMOVE-FD-HANDLER" "REOPEN-SHARED-OBJECTS" - "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-FOREIGN-SYMBOL" "SAP-INT" "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-WORD" "SAP-REF-8" - "SAP-REF-DESCRIPTOR" - "SAP-REF-DOUBLE" "SAP-REF-LONG" + "SAP-REF-DOUBLE" "SAP-REF-LISPOBJ" "SAP-REF-LONG" + "SAP-REF-OCTETS" "SAP-REF-SAP" "SAP-REF-SINGLE" "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>=" "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS" + "SIGNAL-DEADLINE" "SERVE-EVENT" "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32" "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-WORD" "SIGNED-SAP-REF-8" ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL. "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM" "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" - "SYSTEM-CONDITION" "SYSTEM-CONDIION-ADDRESS" + "SYSTEM-CONDITION" "SYSTEM-CONDITION-ADDRESS" "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-DEADLINE" "WITH-FD-HANDLER" - "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING" - "WITHOUT-INTERRUPTS" "WORDS")) + "WITH-INTERRUPTS" "WITH-LOCAL-INTERRUPTS" + "WITH-PINNED-OBJECTS" "WITHOUT-GCING" + "WITHOUT-INTERRUPTS" + "WITH-INTERRUPT-BINDINGS" + "WORDS")) #s(sb-cold:package-data :name "SB!UNIX" @@ -2025,11 +2475,17 @@ This package only tries to implement what happens to be needed by the current implementation of SBCL, and makes no guarantees of interface stability." :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS") + :reexport ("OFF-T" + "SIZE-T") :export ( ;; wrappers around Unix stuff to give just what Lisp needs "NANOSLEEP" "UID-USERNAME" "UID-HOMEDIR" + "USER-HOMEDIR" "WITH-RESTARTED-SYSCALL" + "SB-MKSTEMP" + "UNIX-OFFSET" + "FD-TYPE" ;; stuff with a one-to-one mapping to Unix constructs "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT" @@ -2039,30 +2495,36 @@ no guarantees of interface stability." "INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER" "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" - "L_INCR" "L_SET" "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" + "L_INCR" "L_SET" "L_XTND" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR" "O_TRUNC" "O_WRONLY" "POSIX-GETCWD" "POSIX-GETCWD/" "READGRP" "READOTH" "READOWN" "RLIM-CUR" "RLIM-MAX" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS" "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND" "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK" "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE" - "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT" + "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFIFO" "S-IFLNK" "S-IFMT" "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX" - "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC" + "S-IWRITE" "SAVETEXT" "SB-MKSTEMP" "SC-MASK" "SC-ONSTACK" "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" - "SG-OSPEED" "SGTTYB" "SIZE-T" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS" + "SG-OSPEED" "SGTTYB" "ST-ATIME" "ST-BLKSIZE" "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME" "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH" "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ" "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP" "TIOCSWINSZ" "TV-SEC" "TV-USEC" - "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE" "UNIX-DUP" - "UNIX-EXIT" "UNIX-FILE-MODE" "UNIX-FSTAT" "UNIX-GETHOSTNAME" - "UNIX-GETPID" "UNIX-GETRUSAGE" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" - "UNIX-GID" "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" - "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID" "UNIX-PIPE" - "UNIX-READ" "UNIX-READLINK" "UNIX-RENAME" "UNIX-SELECT" - "UNIX-STAT" "UNIX-UID" "UNIX-UNLINK" "UNIX-WRITE" "WINSIZE" + "TZ-DSTTIME" "TZ-MINUTESWEST" "UID-T" "UNIX-CLOSE" + "UNIX-CLOSEDIR" "UNIX-DIRENT-NAME" "UNIX-DUP" + "UNIX-FILE-MODE" "UNIX-FSTAT" + "UNIX-GETHOSTNAME" "UNIX-GETPID" "UNIX-GETRUSAGE" + "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID" + "UNIX-EXIT" + "UNIX-IOCTL" + "UNIX-ISATTY" "UNIX-LSEEK" "UNIX-LSTAT" "UNIX-MKDIR" + "UNIX-OPEN" "UNIX-OPENDIR" "UNIX-PATHNAME" "UNIX-PID" + "UNIX-PIPE" "UNIX-SIMPLE-POLL" "UNIX-READ" "UNIX-READDIR" "UNIX-READLINK" "UNIX-REALPATH" + "UNIX-RENAME" "UNIX-SELECT" "UNIX-STAT" "UNIX-UID" + "UNIX-UNLINK" "UNIX-WRITE" + "WINSIZE" "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK" @@ -2092,7 +2554,7 @@ no guarantees of interface stability." "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV" "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT" - "UNIX-FILE-KIND" "UNIX-KILL" "CODESET" + "UNIX-KILL" "CODESET" "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS" "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE" "UNIX-KILLPG" @@ -2152,12 +2614,18 @@ no guarantees of interface stability." structure representations" :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!ASSEM" "SB!C" "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX") - :export ("*ASSEMBLY-UNIT-LENGTH*" + :reexport ("WORD") + :export ("*ALLOC-SIGNAL*" "*PRIMITIVE-OBJECTS*" + "+HIGHEST-NORMAL-GENERATION+" + "+PSEUDO-STATIC-GENERATION+" + "%COMPILER-BARRIER" "%DATA-DEPENDENCY-BARRIER" + "%MEMORY-BARRIER" "%READ-BARRIER" "%WRITE-BARRIER" "AFTER-BREAKPOINT-TRAP" - "*ALLOC-SIGNAL*" + #!+(and gencgc sparc) "ALLOCATION-TRAP" "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-FILL-POINTER-SLOT" "ATOMIC-FLAG" "CHARACTER-REG-SC-NUMBER" @@ -2168,7 +2636,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" @@ -2187,7 +2655,15 @@ structure representations" #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG" #!+long-float "COMPLEX-LONG-REG-SC-NUMBER" #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER" + #!+sb-simd-pack "SIMD-PACK-TAG-SLOT" + #!+sb-simd-pack "SIMD-PACK-HI-VALUE-SLOT" + #!+sb-simd-pack "SIMD-PACK-LO-VALUE-SLOT" + #!+sb-simd-pack "SIMD-PACK-SIZE" + #!+sb-simd-pack "SIMD-PACK-WIDETAG" + #!-x86-64 #!-x86-64 "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-SLOT" + #!+x86-64 + "COMPLEX-SINGLE-FLOAT-DATA-SLOT" "COMPLEX-SINGLE-FLOAT-SIZE" "COMPLEX-SINGLE-FLOAT-WIDETAG" "COMPLEX-SINGLE-REG-SC-NUMBER" "COMPLEX-SINGLE-STACK-SC-NUMBER" "COMPLEX-SIZE" "COMPLEX-BASE-STRING-WIDETAG" @@ -2199,29 +2675,28 @@ structure representations" "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER" "CONTEXT-PC" "CONTEXT-REGISTER" "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" "DOUBLE-FLOAT-WIDETAG" "DOUBLE-FLOAT-VALUE-SLOT" "DOUBLE-INT-CARG-REG-SC-NUMBER" "DOUBLE-REG-SC-NUMBER" "DOUBLE-STACK-SC-NUMBER" - "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG" - "EXPORTED-STATIC-SYMBOLS" + "EMIT-LONG-NOP" "ERROR-TRAP" "EVEN-FIXNUM-LOWTAG" "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" @@ -2229,22 +2704,26 @@ 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" "SIMPLE-FUN-SELF-SLOT" "SIMPLE-FUN-TYPE-SLOT" - "GENCGC-PAGE-SIZE" - #!+ppc "PSEUDO-ATOMIC-INTERRUPTED-FLAG" - #!+ppc "PSEUDO-ATOMIC-FLAG" + "GENCGC-CARD-BYTES" + "GENCGC-ALLOC-GRANULARITY" + "GENCGC-RELEASE-GRANULARITY" + #!+(or ppc sparc) "PSEUDO-ATOMIC-INTERRUPTED-FLAG" + #!+(or ppc sparc) "PSEUDO-ATOMIC-FLAG" + #!+sb-safepoint "GLOBAL-SAFEPOINT-TRAP" "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER" "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER" "IMMEDIATE-SC-NUMBER" + #!+inline-constants "CANONICALIZE-INLINE-CONSTANT" + #!+inline-constants "INLINE-CONSTANT-VALUE" + #!+inline-constants "EMIT-CONSTANT-SEGMENT-HEADER" + #!+inline-constants "SORT-INLINE-CONSTANTS" + #!+inline-constants "EMIT-INLINE-CONSTANT" "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG" "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE" "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS" @@ -2263,10 +2742,10 @@ structure representations" #!+long-float "LONG-STACK-SC-NUMBER" "LOWTAG-LIMIT" "LOWTAG-MASK" "LRA-SAVE-OFFSET" - #!+(and sb-thread sb-lutex) "LUTEX-WIDETAG" - "MEMORY-USAGE" "MOST-POSITIVE-COST" + "MEMORY-USAGE" "N-LOWTAG-BITS" "N-FIXNUM-TAG-BITS" + "N-FIXNUM-BITS" "N-POSITIVE-FIXNUM-BITS" "NEGATIVE-IMMEDIATE-SC-NUMBER" "NFP-SAVE-OFFSET" @@ -2282,26 +2761,32 @@ structure representations" "OTHER-IMMEDIATE-2-LOWTAG" "OTHER-IMMEDIATE-3-LOWTAG" "OTHER-POINTER-LOWTAG" + "PAD0-LOWTAG" "PAD1-LOWTAG" "PAD2-LOWTAG" + "PAD3-LOWTAG" "PAD4-LOWTAG" "PAD5-LOWTAG" "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-SIZE" "PRIMITIVE-OBJECT-SLOTS" - "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" "PRINT-ALLOCATED-OBJECTS" + "PRIMITIVE-OBJECT-VARIABLE-LENGTH-P" + "PRINT-ALLOCATED-OBJECTS" "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" "SAETP-N-PAD-ELEMENTS" "SAETP-SPECIFIER" "SAETP-COMPLEX-TYPECODE" "SAETP-IMPORTANCE" + "SAETP-FIXNUM-P" + "VALID-BIT-BASH-SAETP-P" "*SPECIALIZED-ARRAY-ELEMENT-TYPE-PROPERTIES*" "SANCTIFY-FOR-EXECUTION" "SAP-POINTER-SLOT" "SAP-REG-SC-NUMBER" "SAP-SIZE" "SAP-STACK-SC-NUMBER" "SAP-WIDETAG" "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER" + "SIGNED-WORD" "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG" #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG" "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG" @@ -2313,23 +2798,17 @@ structure representations" "SIMPLE-ARRAY-UNSIGNED-BYTE-15-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG" - ;; FIXME: 32/64-bit issues - "SIMPLE-ARRAY-UNSIGNED-BYTE-29-WIDETAG" + "SIMPLE-ARRAY-UNSIGNED-FIXNUM-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-31-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-32-WIDETAG" - ;; FIXME: 32/64-bit issues - "SIMPLE-ARRAY-UNSIGNED-BYTE-60-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-63-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-64-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-4-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-7-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-8-WIDETAG" "SIMPLE-ARRAY-SIGNED-BYTE-16-WIDETAG" - ;; FIXME: 32/64-bit issues - "SIMPLE-ARRAY-SIGNED-BYTE-30-WIDETAG" + "SIMPLE-ARRAY-FIXNUM-WIDETAG" "SIMPLE-ARRAY-SIGNED-BYTE-32-WIDETAG" - ;; FIXME: 32/64-bit issues - "SIMPLE-ARRAY-SIGNED-BYTE-61-WIDETAG" "SIMPLE-ARRAY-SIGNED-BYTE-64-WIDETAG" "SIMPLE-ARRAY-SIGNED-BYTE-8-WIDETAG" "SIMPLE-BIT-VECTOR-WIDETAG" @@ -2346,29 +2825,29 @@ 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" - #!+c-stack-is-control-stack "ALTERNATE-SIGNAL-STACK-START" + #!+gencgc "MAX-DYNAMIC-SPACE-END" #!-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" #!+linkage-table "LINKAGE-TABLE-ENTRY-SIZE" + #!+sb-safepoint "GC-SAFEPOINT-PAGE-ADDR" + "TLS-SIZE" "TRACE-TABLE-CALL-SITE" "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE" "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK" @@ -2380,12 +2859,12 @@ 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" "WEAK-POINTER-VALUE-SLOT" - "WORD" "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS" + "N-WORD-BITS" "N-WORD-BYTES" "N-MACHINE-WORD-BITS" "WORD-REG-SC-NUMBER" "WORD-SHIFT" #!+win32 "CONTEXT-RESTORE-TRAP" "ZERO-SC-NUMBER")) @@ -2399,7 +2878,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. @@ -2411,10 +2890,14 @@ structure representations" :name "SB!EVAL" :doc "internal: the evaluator implementation used to execute code without compiling it." :use ("CL" "SB!KERNEL" "SB!EXT") + :reexport ("*EVAL-CALLS*") :export ("INTERPRETED-FUNCTION" "INTERPRETED-FUNCTION-P" "INTERPRETED-FUNCTION-NAME" + "INTERPRETED-FUNCTION-DEBUG-NAME" "INTERPRETED-FUNCTION-LAMBDA-LIST" + "INTERPRETED-FUNCTION-DEBUG-LAMBDA-LIST" + "INTERPRETED-FUNCTION-DECLARATIONS" "INTERPRETED-FUNCTION-DOCUMENTATION" "INTERPRETED-FUNCTION-BODY" "INTERPRETED-FUNCTION-SOURCE-LOCATION" @@ -2422,9 +2905,7 @@ structure representations" "MAKE-NULL-ENVIRONMENT" "EVAL-IN-NATIVE-ENVIRONMENT" "PREPARE-FOR-COMPILE" - "COUNT-EVAL-CALLS" - "*EVAL-LEVEL*" - "*EVAL-CALLS*")) + "*EVAL-LEVEL*")) #!+win32 #s(sb-cold:package-data @@ -2433,10 +2914,41 @@ structure representations" SBCL itself" :use ("CL" "SB!ALIEN" "SB!EXT" "SB!INT" "SB!SYS") :export ("BOOL" - "DWORD" "FD-CLEAR-INPUT" "FD-LISTEN" - "FLUSH-CONSOLE-INPUT-BUFFER" "FORMAT-MESSAGE" - "GET-LAST-ERROR" "GET-OSFHANDLE" "HANDLE" - "HANDLE-CLEAR-INPUT" "HANDLE-LISTEN" "INT-PTR" - "INVALID-HANDLE" "MILLISLEEP" "PEEK-CONSOLE-INPUT" - "PEEK-NAMED-PIPE" "READ-FILE" "WRITE-FILE" - "WITH-PROCESS-TIMES" "GET-VERSION-EX"))) + "CLOSE-HANDLE" + "CREATE-FILE" + "CREATE-FILE-MAPPING" + "CRYPT-GEN-RANDOM" + "DWORD" + "FD-CLEAR-INPUT" + "FD-LISTEN" + "FILE-CREATE-ALWAYS" + "FILE-CREATE-NEW" + "FILE-OPEN-ALWAYS" + "FILE-OPEN-EXISTING" + "FILE-TRUNCATE-EXISTING" + "FLUSH-CONSOLE-INPUT-BUFFER" + "FLUSH-VIEW-OF-FILE" + "FORMAT-SYSTEM-MESSAGE" + "GET-FILE-ATTRIBUTES" + "GET-FILE-SIZE-EX" + "GET-FILE-TYPE" + "GET-LAST-ERROR" + "GET-OSFHANDLE" + "GET-VERSION-EX" + "HANDLE" + "HANDLE-CLEAR-INPUT" + "HANDLE-LISTEN" + "INT-PTR" + "INVALID-HANDLE" + "LSEEKI64" + "MAP-VIEW-OF-FILE" + "MILLISLEEP" + "PEEK-CONSOLE-INPUT" + "PEEK-NAMED-PIPE" + "READ-FILE" + "UNIXLIKE-CLOSE" + "UNIXLIKE-OPEN" + "UNMAP-VIEW-OF-FILE" + "WAIT-OBJECT-OR-SIGNAL" + "WRITE-FILE" + "WITH-PROCESS-TIMES")))