X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=7888052ba64e671432b10d50453681bf6b8f3395;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=cbbaa3d2b5edee440e854a33d687988edd75f6d6;hpb=b1de52969f584c63d43fb35da4a8a6a4e0e619f0;p=sbcl.git diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index cbbaa3d..7888052 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -35,6 +35,7 @@ :doc "private: stuff for implementing ALIENs and friends" :use ("CL") :export ("%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" @@ -155,7 +156,7 @@ "*BACKEND-T-PRIMITIVE-TYPE*" "*CODE-SEGMENT*" - "*COMPILING-FOR-INTERPRETER*" "*CONVERTING-FOR-INTERPRETER*" + "*CONVERTING-FOR-INTERPRETER*" "*COUNT-VOP-USAGES*" "*ELSEWHERE*" "*FASL-HEADER-STRING-START-STRING*" "*FASL-HEADER-STRING-STOP-CHAR-CODE*" @@ -184,7 +185,7 @@ "DEALLOC-NUMBER-STACK-SPACE" "DEF-BOOLEAN-ATTRIBUTE" "DEF-IR1-TRANSLATOR" "DEF-PRIMITIVE-TRANSLATOR" "DEF-PRIMITIVE-TYPE" "DEF-PRIMITIVE-TYPE-ALIAS" - "DEF-SOURCE-TRANSFORM" "DEF-VM-SUPPORT-ROUTINE" + "DEF-SOURCE-TRANSFORM" "!DEF-VM-SUPPORT-ROUTINE" "DEFINE-ASSEMBLY-ROUTINE" "DEFINE-MOVE-FUNCTION" "DEFINE-MOVE-VOP" "DEFINE-STORAGE-BASE" "DEFINE-STORAGE-CLASS" "DEFINE-VOP" @@ -206,7 +207,8 @@ "MAKE-OTHER-IMMEDIATE-TYPE" "MAKE-RANDOM-TN" "MAKE-REPRESENTATION-TN" "MAKE-RESTRICTED-TN" "MAKE-SC-OFFSET" "MAKE-STACK-POINTER-TN" "MAKE-TN-REF" "MAKE-UNWIND-BLOCK" - "MAKE-VALUE-CELL" "MAKE-WIRED-TN" "META-PRIMITIVE-TYPE-OR-LOSE" + "MAKE-VALUE-CELL" "MAKE-WIRED-TN" "MAYBE-COMPILER-NOTE" + "META-PRIMITIVE-TYPE-OR-LOSE" "META-SB-OR-LOSE" "META-SC-NUMBER-OR-LOSE" "META-SC-OR-LOSE" "MORE-ARG-CONTEXT" "MOVABLE" "MOVE" "MULTIPLE-CALL" "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED" @@ -255,7 +257,6 @@ "BLOCK-NUMBER" "BACKEND" "BACKEND-BYTE-FASL-FILE-IMPLEMENTATION" - "BACKEND-BYTE-FASL-FILE-TYPE" "IR2-BLOCK-BLOCK" "DISASSEM-BYTE-COMPONENT" "FUNCALLABLE-INSTANCE-LEXENV" @@ -324,14 +325,15 @@ #s(sb-cold:package-data :name "SB!IMPL" :doc "private: a grab bag of implementation details" - :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!DEBUG" "SB!KERNEL" "SB!BIGNUM")) + :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!DEBUG" "SB!KERNEL" "SB!BIGNUM" + "SB!GRAY")) ;; FIXME: It seems to me that this could go away, with its contents moved ;; into SB!KERNEL, like the implementation of the rest of the class system. - #s(sb-cold:package-data - :name "SB!CONDITIONS" - :doc "private: the implementation of the condition system" - :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")) +;; #s(sb-cold:package-data +;; :name "SB!CONDITIONS" +;; :doc "private: the implementation of the condition system" +;; :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL")) #s(sb-cold:package-data :name "SB!DEBUG" @@ -341,9 +343,9 @@ debugger interface mixed with various low-level implementation stuff like *STACK-TOP-HINT*" :use ("CL" "SB!EXT" "SB!INT" "SB!SYS") :export ("*AUTO-EVAL-IN-FRAME*" "*DEBUG-CONDITION*" - "*DEBUG-PRINT-LENGTH*" "*DEBUG-PRINT-LEVEL*" "*DEBUG-READTABLE*" - "*DEBUG-PROMPT*" "*DEBUG-HELP-STRING*" "*FLUSH-DEBUG-ERRORS*" - "*IN-THE-DEBUGGER*" + "*DEBUG-PRINT-LENGTH*" "*DEBUG-PRINT-LEVEL*" + "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*" + "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*" "*TRACE-INDENTATION-STEP*" "*MAX-TRACE-INDENTATION*" "*TRACE-FRAME*" "*TRACE-PRINT-LENGTH*" "*TRACE-PRINT-LEVEL*" "*TRACED-FUNCTION-LIST*" @@ -473,7 +475,7 @@ like *STACK-TOP-HINT*" :name "SB!EXT" :doc "public: miscellaneous supported extensions to the ANSI Lisp spec" ;; FIXME: Why don't we just USE-PACKAGE %KERNEL here instead of importing? - :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!INT" "SB!SYS") + :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!INT" "SB!SYS" "SB!GRAY") ;; FIXME: If we advertise these as extensions, they should be in the ;; SB!EXT package (and perhaps re-exported from the %KERNEL ;; package) rather than in some other package and reexported from @@ -523,9 +525,8 @@ like *STACK-TOP-HINT*" ;; now? -- WHN 19991206 ;; extended declarations.. - "CONSTANT-FUNCTION" "END-BLOCK" "FREEZE-TYPE" - "INHIBIT-WARNINGS" - "MAYBE-INLINE" "OPTIMIZE-INTERFACE" "START-BLOCK" + "FREEZE-TYPE" "INHIBIT-WARNINGS" + "MAYBE-INLINE" "OPTIMIZE-INTERFACE" ;; ..and variables to control compiler policy "*INLINE-EXPANSION-LIMIT*" @@ -630,7 +631,7 @@ Lisp extension proposal by David N. Gray" "private: miscellaneous unsupported extensions to the ANSI spec. Most of the stuff in here originated in CMU CL's EXTENSIONS package and is retained, possibly temporariliy, because it might be used internally." - :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!SYS") + :use ("CL" "SB!ALIEN" "SB!C-CALL" "SB!SYS" "SB!GRAY") ;; FIXME: RATIOP should probably not go through this package but be ;; called directly from SB!KERNEL, unless it's implemented as ;; TYPEP X 'RATIO in which case it doesn't need to be in SB!KERNEL. @@ -672,21 +673,33 @@ retained, possibly temporariliy, because it might be used internally." ;; rid of FDEFINITIONs entirely later. "*SETF-FDEFINITION-HOOK*" - ;; useful but non-standard user-level functions.. + ;; non-standard but widely useful user-level functions.. "ASSQ" "DELQ" "MEMQ" "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE" "SANE-PACKAGE" "CIRCULAR-LIST-P" - ;; ..and macros + ;; ..and macros.. "COLLECT" "DO-ANONYMOUS" "DOHASH" "DOVECTOR" "ITERATE" "LETF" "LETF*" "ONCE-ONLY" "DEFENUM" + "DEFPRINTER" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE" + ;; ..and DEFTYPEs.. + "INDEX" + + ;; ..and type predicates + "INSTANCEP" + "DOUBLE-FLOATP" + "LOGICAL-PATHNAME-P" + "LONG-FLOATP" + "SHORT-FLOATP" + "SINGLE-FLOATP" + ;; encapsulation "ARGUMENT-LIST" "BASIC-DEFINITION" @@ -697,17 +710,6 @@ retained, possibly temporariliy, because it might be used internally." "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE" "FORM-FEED-CHAR-CODE" "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE" - ;; handy user-level/basically-portable DEFTYPEs - "INDEX" - - ;; nonstandard type predicates - "INSTANCEP" - "DOUBLE-FLOATP" - "LOGICAL-PATHNAME-P" - "LONG-FLOATP" - "SHORT-FLOATP" - "SINGLE-FLOATP" - ;; symbol-hacking idioms "CONCAT-PNAMES" "KEYWORDICATE" "SYMBOLICATE" @@ -723,13 +725,13 @@ retained, possibly temporariliy, because it might be used internally." ;; FIXME: Maybe this isn't used any more? And if it is, ;; it probably needs a better name, since SPECIAL things - ;; are so obnoxious in Common Lisp. + ;; are such a nice source of sneaky bugs. "E" ;; various internal defaults "*DEFAULT-PACKAGE-USE-LIST*" "DEFAULT-INIT-CHAR" - "*LOAD-SOURCE-TYPES*" "*LOAD-OBJECT-TYPES*" + "*LOAD-SOURCE-DEFAULT-TYPE*" ;; hash caches "DEFINE-HASH-CACHE" @@ -788,7 +790,6 @@ retained, possibly temporariliy, because it might be used internally." ;; without supporting them, at least not as publicly ;; accessible things with fixed interfaces. "DEFAULT-DIRECTORY" - "FILE-COMMENT" "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES" "WITH-FLOAT-TRAPS-MASKED" "DEFINE-HASH-TABLE-TEST" @@ -829,7 +830,7 @@ retained, possibly temporariliy, because it might be used internally." integration' (said CMU CL architecture.tex) and that probably was and is a good idea, but see SB-SYS for blurring of boundaries." :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM" - "SB!EXT" "SB!INT" "SB!SYS") + "SB!EXT" "SB!INT" "SB!SYS" "SB!GRAY") :import-from (("SB!C-CALL" "VOID")) :reexport ("DEF!STRUCT" "DEF!MACRO" "VOID") :export ("%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" @@ -918,12 +919,11 @@ is a good idea, but see SB-SYS for blurring of boundaries." "*COLD-INIT-COMPLETE-P*" "!COLD-INIT-FORMS" "COMPLEX-DOUBLE-FLOAT-P" "COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P" - "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" - "COMPLEX-VECTOR-P" "CONSED-SEQUENCE" "CONSTANT" "CONSTANT-TYPE" + "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P" + "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE" + "CONS-TYPE-P" + "CONSED-SEQUENCE" "CONSTANT" "CONSTANT-TYPE" "CONSTANT-TYPE-P" "CONSTANT-TYPE-TYPE" - ;; MNA: cons compound-type patch - ;; FIXIT: all commented out - ; "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE" "CONS-TYPE-P" "CONTAINING-INTEGER-TYPE" "CONTROL-STACK-POINTER-SAP" "COPY-FROM-SYSTEM-AREA" "COPY-NUMERIC-TYPE" "COPY-TO-SYSTEM-AREA" @@ -975,11 +975,8 @@ is a good idea, but see SB-SYS for blurring of boundaries." "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P" "LRA" "LRA-CODE-HEADER" "LRA-P" "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE" - "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-DOUBLE-FLOAT" - ;; MNA: cons compound-type patch - ;; FIXIT: all commented out - ; "MAKE-CONS-TYPE" - "MAKE-FUNCTION-TYPE" + "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE" + "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE" "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT" "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE" @@ -1092,7 +1089,7 @@ is a good idea, but see SB-SYS for blurring of boundaries." "TYPE-DIFFERENCE" "TYPE-EXPAND" "TYPE-INTERSECT" "TYPE-INTERSECTION" "TYPE-SPECIFIER" - "*STANDARD-TYPE-NAMES*" "TYPE-UNION" "TYPE/=" "TYPE=" + "TYPE-UNION" "TYPE/=" "TYPE=" "TYPES-INTERSECT" "UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY" "UNDEFINED-SYMBOL-ERROR" "UNION-TYPE" "UNION-TYPE-P" "UNION-TYPE-TYPES" "UNKNOWN-ERROR" @@ -1187,16 +1184,22 @@ is a good idea, but see SB-SYS for blurring of boundaries." "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR" "SIMPLE-PROGRAM-ERROR" "SIMPLE-STYLE-WARNING" "STYLE-WARN" - "!COLD-INIT" + ;; symbols from former SB!CONDITIONS + "*HANDLER-CLUSTERS*" "*RESTART-CLUSTERS*" + "SHOW-CONDITION" "CASE-FAILURE" + "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET" + "DESCRIBE-CONDITION" + + "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF" "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT" "!TYPE-CLASS-COLD-INIT" "!TYPEDEFS-COLD-INIT" "!ALIEN-TYPE-COLD-INIT" "!CLASSES-COLD-INIT" "!EARLY-TYPE-COLD-INIT" "!LATE-TYPE-COLD-INIT" "!TARGET-TYPE-COLD-INIT" "!RANDOM-COLD-INIT" - "!FILESYS-COLD-INIT" "!READER-COLD-INIT" + "!READER-COLD-INIT" "STREAM-COLD-INIT-OR-RESET" "!LOADER-COLD-INIT" "!PACKAGE-COLD-INIT" "SIGNAL-COLD-INIT-OR-REINIT" - "!SET-SANE-COOKIE-DEFAULTS" "!VM-TYPE-COLD-INIT" + "!POLICY-COLD-INIT-OR-RESANIFY" "!VM-TYPE-COLD-INIT" "!BACKQ-COLD-INIT" "!SHARPM-COLD-INIT" "!CLASS-FINALIZE" "GC-COLD-INIT-OR-REINIT" @@ -1732,8 +1735,12 @@ structure representations" :doc "internal: a code walker used by PCL" :use ("CL") :export ("DEFINE-WALKER-TEMPLATE" "WALK-FORM" - "*WALK-FORM-EXPAND-MACROS-P*" "NESTED-WALK-FORM" + "*WALK-FORM-EXPAND-MACROS-P*" "VARIABLE-LEXICAL-P" "VARIABLE-SPECIAL-P" "VARIABLE-GLOBALLY-SPECIAL-P" "*VARIABLE-DECLARATIONS*" "VARIABLE-DECLARATION" - "MACROEXPAND-ALL"))) + + ;; These were exported from the original PCL version of this + ;; package, but aren't used in SBCL. + ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL" + )))