From: William Harold Newman Date: Thu, 14 Jul 2005 20:24:16 +0000 (+0000) Subject: 0.9.2.51: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e8607908388c96db633bb7046a4b97844642768b;p=sbcl.git 0.9.2.51: should be the last sizable slice of whitespace canonicalization (but it yet remains at least to consider *.sh/*.S/*.foobar, to make canonicalness check run as part of tests/, and to remove annoying "echo" statements) (Anyone who ends up here with "cvs annotate" probably wants to look at the "tabby" tagged version.) --- diff --git a/base-target-features.lisp-expr b/base-target-features.lisp-expr index 7f9a524..e7b6406 100644 --- a/base-target-features.lisp-expr +++ b/base-target-features.lisp-expr @@ -13,7 +13,7 @@ ;;;; E.g. you can use code like this: ;;;; (lambda (list) ;;;; (flet ((enable (x) (pushnew x list)) -;;;; (disable (x) (setf list (remove x list)))) +;;;; (disable (x) (setf list (remove x list)))) ;;;; #+nil (enable :sb-show) ;;;; (enable :sb-after-xc-core) ;;;; #+nil (disable :sb-doc) @@ -147,7 +147,7 @@ ;; been either made unconditional, deleted, or rewritten into ;; unrecognizability, but some remains. What remains is not maintained ;; or tested in current SBCL, but I haven't gone out of my way to - ;; break it, either. + ;; break it, either. ;; ; :high-security ; :high-security-support @@ -172,7 +172,7 @@ ;; the Unicode consortium, rather than the classical 8-bit ISO-8859-1 ;; character set. :sb-unicode - + ;; This affects the definition of a lot of things in bignum.lisp. It ;; doesn't seem to be documented anywhere what systems it might apply ;; to. It doesn't seem to be needed for X86 systems anyway. @@ -240,7 +240,7 @@ ;; notes on local features (which are set automatically by the ;; configuration script, and should not be set here unless you ;; really, really know what you're doing): - ;; + ;; ;; machine architecture features: ;; :x86 ;; any Intel 386 or better, or compatibles like the AMD K6 or K7 @@ -255,7 +255,7 @@ ;; :mips ;; any MIPS CPU (in little-endian mode with :little-endian -- currently ;; untested) - ;; + ;; ;; (CMU CL also had a :pentium feature, which affected the definition ;; of some floating point vops. It was present but not enabled or ;; documented in the CMU CL code that SBCL is derived from, and has diff --git a/build-order.lisp-expr b/build-order.lisp-expr index d622fc8..69d1547 100644 --- a/build-order.lisp-expr +++ b/build-order.lisp-expr @@ -23,7 +23,7 @@ ;;; instead, so that we could do automated incremental recompilation. ;;; But the dependencies are varied and subtle, and it'd be extremely ;;; difficult to extract them automatically, and it'd be extremely -;;; tedious and error-prone to extract them manually, so we don't +;;; tedious and error-prone to extract them manually, so we don't ;;; extract them. (It would be nice to fix this someday. The most ;;; feasible approach that I can think of would be to make the ;;; dependencies work on a package level, not an individual file @@ -142,7 +142,7 @@ ("src/code/defbangstruct") ("src/code/unportable-float") - + ("src/code/funutils" :not-host) ;; This needs DEF!STRUCT, and is itself needed early so that structure @@ -177,7 +177,7 @@ ("src/code/toplevel" :not-host) ("src/code/cold-error" :not-host) ("src/code/fdefinition" :not-host) - ;; FIXME: Figure out some way to make the compiler macro for INFO + ;; FIXME: Figure out some way to make the compiler macro for INFO ;; available for compilation of "code/fdefinition". ;; In classic CMU CL, code/type was here. I've since split that into @@ -226,7 +226,7 @@ ;; debug-info.lisp. Should it therefore be :not-host? -- CSR, ;; 2002-02-05 ("src/code/sc-offset") - + ;; KLUDGE: I'd prefer to have this done with a "code/target" softlink ;; instead of a bunch of reader macros. -- WHN 19990308 #!+sparc ("src/code/sparc-vm" :not-host) @@ -357,7 +357,7 @@ ;; The following two files trigger function/macro redefinition ;; warnings in clisp during make-host-2; as a workaround, we ignore ;; the failure values from COMPILE-FILE under clisp. - + ;; for DEFSTRUCT ALIEN-TYPE, needed by host-type.lisp ("src/code/host-alieneval" #+clisp :ignore-failure-p) @@ -392,7 +392,7 @@ ("src/code/class-init") ("src/code/typecheckfuns") - ;; The DEFSTRUCT machinery needs SB!XC:SUBTYPEP, defined in + ;; The DEFSTRUCT machinery needs SB!XC:SUBTYPEP, defined in ;; "code/late-type", and SB!XC:TYPEP, defined in "code/cross-type", ;; and SPECIALIZE-ARRAY-TYPE, defined in "compiler/generic/vm-type", ;; and SB!XC:PROCLAIM, defined in "src/compiler/proclaim" @@ -445,13 +445,13 @@ ("src/compiler/bit-util") ;; This has ASSEMBLY-UNIT-related stuff needed by core.lisp. - ("src/compiler/early-assem") + ("src/compiler/early-assem") ;; core.lisp contains DEFSTRUCT CORE-OBJECT, and "compiler/main.lisp" ;; does lots of (TYPEP FOO 'CORE-OBJECT), so it's nice to compile this ;; before "compiler/main.lisp" so that those can be coded efficiently ;; (and so that they don't cause lots of annoying compiler warnings - ;; about undefined types). + ;; about undefined types). ("src/compiler/generic/core") ("src/code/thread") ("src/code/load") @@ -664,8 +664,8 @@ ("src/code/bit-bash" :not-host) ; needs %NEGATE from assembly/target/arith ("src/code/target-load" :not-host) ; needs special vars from code/load.lisp - ("src/compiler/target/sanctify" :not-host) - + ("src/compiler/target/sanctify" :not-host) + ;; FIXME: Does this really need stuff from compiler/dump.lisp? ("src/compiler/target-dump" :not-host) ; needs stuff from compiler/dump.lisp @@ -683,7 +683,7 @@ ;; FIXME: here? earlier? can probably be as late as possible. Also ;; maybe call it FORCE-DELAYED-PROCLAIMS? ("src/compiler/late-proclaim") - + ;; fundamental target macros (e.g. CL:DO and CL:DEFUN) and support ;; for them ("src/code/defboot") diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index cbe2e9b..49d0991 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -34,91 +34,91 @@ is a deprecated nickname to help ease the transition from older versions of SBCL which maintained the CMU-CL-style split into two packages.)" :use ("CL" "SB!EXT" "SB!INT" "SB!SYS" "SB!ALIEN-INTERNALS") :reexport ("ARRAY" - "BOOLEAN" "CHAR" "DOUBLE-FLOAT" - "FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT" - "SINGLE-FLOAT" - ;; FIXME: Do we really want to reexport - ;; SYSTEM-AREA-POINTER here? Why? - "SYSTEM-AREA-POINTER" - "UNION" "VALUES" "*") + "BOOLEAN" "CHAR" "DOUBLE-FLOAT" + "FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT" + "SINGLE-FLOAT" + ;; FIXME: Do we really want to reexport + ;; SYSTEM-AREA-POINTER here? Why? + "SYSTEM-AREA-POINTER" + "UNION" "VALUES" "*") :export ("ADDR" - "ALIEN" - "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" - "GET-ERRNO" - "INT" - "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" - "MAKE-ALIEN" - "NULL-ALIEN" - "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT" + "ALIEN" + "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" + "GET-ERRNO" + "INT" + "LOAD-1-FOREIGN" "LOAD-FOREIGN" "LOAD-SHARED-OBJECT" "LONG" + "MAKE-ALIEN" + "NULL-ALIEN" + "SAP-ALIEN" "SHORT" "SIGNED" "SLOT" "STRUCT" "UNDEFINED-ALIEN-ERROR" - "UNSIGNED" - "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT" + "UNSIGNED" + "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT" "UTF8-STRING" - "VOID" - "WITH-ALIEN")) - + "VOID" + "WITH-ALIEN")) + #s(sb-cold:package-data :name "SB!ALIEN-INTERNALS" :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" - "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" - "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" + "%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" + "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE" + "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P" "ALIEN-CALLBACK" - "ALIEN-CALLBACK-ACCESSOR-FORM" - "ALIEN-CALLBACK-ASSEMBLER-WRAPPER" - "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" - "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" - "ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE" - "ALIEN-FUN-TYPE-ARG-TYPES" "ALIEN-FUN-TYPE-P" - "ALIEN-FUN-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" - "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" - "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P" - "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" - "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" - "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" - "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" - "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" - "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" - "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-SAP" "ALIEN-VALUE-P" - "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" - "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" - "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" - "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" - "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS" - "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT" - "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" - "ENTER-ALIEN-CALLBACK" - "EXTRACT-ALIEN-VALUE" - "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" - "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "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" - "MAKE-ALIEN-VALUE" - "MAKE-LOCAL-ALIEN" "NATURALIZE" - "NOTE-LOCAL-ALIEN-TYPE" - "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) + "ALIEN-CALLBACK-ACCESSOR-FORM" + "ALIEN-CALLBACK-ASSEMBLER-WRAPPER" + "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P" + "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE" + "ALIEN-FLOAT-TYPE-P" "ALIEN-FUN-TYPE" + "ALIEN-FUN-TYPE-ARG-TYPES" "ALIEN-FUN-TYPE-P" + "ALIEN-FUN-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE" + "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED" + "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P" + "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P" + "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD" + "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET" + "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE" + "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS" + "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE" + "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-SAP" "ALIEN-VALUE-P" + "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P" + "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE" + "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA" + "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE" + "COMPUTE-NATURALIZE-LAMBDA" "DEFINE-ALIEN-TYPE-CLASS" + "DEFINE-ALIEN-TYPE-METHOD" "DEFINE-ALIEN-TYPE-TRANSLATOR" "DEPORT" + "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" + "ENTER-ALIEN-CALLBACK" + "EXTRACT-ALIEN-VALUE" + "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM" + "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "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" + "MAKE-ALIEN-VALUE" + "MAKE-LOCAL-ALIEN" "NATURALIZE" + "NOTE-LOCAL-ALIEN-TYPE" + "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")) #s(sb-cold:package-data :name "SB!ASSEM" @@ -126,58 +126,58 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" :use ("CL" "SB!EXT" "SB!INT") :export ("ASSEMBLY-UNIT" - "*ASSEM-SCHEDULER-P*" - "*ASSEM-INSTRUCTIONS*" - "*ASSEM-MAX-LOCATIONS*" - - "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" - "READS" "WRITES" "SEGMENT" - "WITHOUT-SCHEDULING" - "VARIABLE-LENGTH" - "SEGMENT-COLLECT-DYNAMIC-STATISTICS" - - ;; FIXME: These are in the SB-ASSEM package now, but - ;; (left over from CMU CL) are defined in files which - ;; are IN-PACKAGE SB-C. It would probably be cleaner - ;; to move at least most of them to files which are - ;; IN-PACKAGE SB-ASSEM. - "BRANCH" "DO-SSET-ELEMENTS" "FLUSHABLE" "MAKE-SSET" "SSET" - "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY")) + "*ASSEM-SCHEDULER-P*" + "*ASSEM-INSTRUCTIONS*" + "*ASSEM-MAX-LOCATIONS*" + + "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" + "READS" "WRITES" "SEGMENT" + "WITHOUT-SCHEDULING" + "VARIABLE-LENGTH" + "SEGMENT-COLLECT-DYNAMIC-STATISTICS" + + ;; FIXME: These are in the SB-ASSEM package now, but + ;; (left over from CMU CL) are defined in files which + ;; are IN-PACKAGE SB-C. It would probably be cleaner + ;; to move at least most of them to files which are + ;; IN-PACKAGE SB-ASSEM. + "BRANCH" "DO-SSET-ELEMENTS" "FLUSHABLE" "MAKE-SSET" "SSET" + "SSET-ADJOIN" "SSET-DELETE" "SSET-ELEMENT" "SSET-EMPTY")) #s(sb-cold:package-data :name "SB!BIGNUM" :doc "private: bignum implementation" :use ("CL" "SB!KERNEL" "SB!INT" "SB!EXT") :export ("%ADD-WITH-CARRY" - "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR" - "%BIGNUM-LENGTH" "%BIGNUM-REF" "%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" - "%MULTIPLY" "%MULTIPLY-AND-ADD" - "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS" - "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" - "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE" - "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX" - "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE" - "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" - "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" - "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" - "SUBTRACT-BIGNUM" "SXHASH-BIGNUM")) + "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR" + "%BIGNUM-LENGTH" "%BIGNUM-REF" "%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" + "%MULTIPLY" "%MULTIPLY-AND-ADD" + "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS" + "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" + "BIGNUM-COMPARE" "BIGNUM-DEPOSIT-BYTE" + "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD" "BIGNUM-INDEX" + "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE" + "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" + "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" + "MULTIPLY-FIXNUMS" "NEGATE-BIGNUM" + "SUBTRACT-BIGNUM" "SXHASH-BIGNUM")) #s(sb-cold:package-data :name "SB!C" @@ -191,11 +191,11 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" ;; (Probably the same considerations also explain why BIGNUM is ;;in the USE list.) :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM" - #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT" - "SB!KERNEL" "SB!SYS") + #!+sb-dyncount "SB-DYNCOUNT" "SB!EXT" "SB!FASL" "SB!INT" + "SB!KERNEL" "SB!SYS") :reexport ("SLOT" "CODE-INSTRUCTIONS" "FLUSHABLE") :export ("%ALIEN-FUNCALL" - "%CATCH-BREAKUP" "%CONTINUE-UNWIND" + "%CATCH-BREAKUP" "%CONTINUE-UNWIND" "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES" "%UNWIND-PROTECT-BREAKUP" @@ -255,7 +255,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "DEFTRANSFORM" "DERIVE-TYPE" "ENTRY-NODE-INFO-NLX-TAG" "ENTRY-NODE-INFO-ST-TOP" "PHYSENV-DEBUG-LIVE-TN" "PHYSENV-LIVE-TN" - "FAST-SYMBOL-VALUE" + "FAST-SYMBOL-VALUE" "FIXUP-NOTE-KIND" "FIXUP-NOTE-FIXUP" "FIXUP-NOTE-POSITION" @@ -266,7 +266,7 @@ of SBCL which maintained the CMU-CL-style split into two packages.)" "GET-VECTOR-SUBTYPE" "HALT" "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA" - "INSERT-STEP-CONDITIONS" + "INSERT-STEP-CONDITIONS" "INSTANCE-REF" "INSTANCE-SET" "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT" "IR2-PHYSENV-NUMBER-STACK-P" @@ -375,164 +375,164 @@ 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*" - "*DEBUG-CONDITION*" - "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*" - "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*" + "*DEBUG-CONDITION*" + "*DEBUG-READTABLE*" "*DEBUG-HELP-STRING*" + "*FLUSH-DEBUG-ERRORS*" "*IN-THE-DEBUGGER*" "*SHOW-ENTRY-POINT-DETAILS*" - "*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" - "*TRACE-ENCAPSULATE-DEFAULT*")) + "*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" + "*TRACE-ENCAPSULATE-DEFAULT*")) #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-CREATED" "DEBUG-SOURCE-COMPILED" - "DEBUG-SOURCE-START-POSITIONS" "MAKE-DEBUG-SOURCE" - "DEBUG-SOURCE" "DEBUG-SOURCE-P")) + "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" + "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" - "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED" - "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE" - "DEBUG-SOURCE-P") + "DEBUG-SOURCE-NAME" + "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-COMPILED" + "DEBUG-SOURCE-START-POSITIONS" "DEBUG-SOURCE" + "DEBUG-SOURCE-P") :export ("ACTIVATE-BREAKPOINT" - "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VAR-NAME" "BREAKPOINT" - "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUN" "BREAKPOINT-INFO" - "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION" - "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUN" - "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER" - "CODE-LOCATION-P" "CODE-LOCATION-TOPLEVEL-FORM-OFFSET" - "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT" - "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P" - "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR" - "DEBUG-FUN" "DEBUG-FUN-FUN" "DEBUG-FUN-KIND" - "DEBUG-FUN-LAMBDA-LIST" "DEBUG-FUN-NAME" - "DEBUG-FUN-P" "DEBUG-FUN-START-LOCATION" - "DEBUG-FUN-SYMBOL-VARS" - "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR" - "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE" - "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" - "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" - "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" - "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE")) + "AMBIGUOUS-DEBUG-VARS" "AMBIGUOUS-VAR-NAME" "BREAKPOINT" + "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUN" "BREAKPOINT-INFO" + "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION" + "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUN" + "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER" + "CODE-LOCATION-P" "CODE-LOCATION-TOPLEVEL-FORM-OFFSET" + "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT" + "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P" + "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR" + "DEBUG-FUN" "DEBUG-FUN-FUN" "DEBUG-FUN-KIND" + "DEBUG-FUN-LAMBDA-LIST" "DEBUG-FUN-NAME" + "DEBUG-FUN-P" "DEBUG-FUN-START-LOCATION" + "DEBUG-FUN-SYMBOL-VARS" + "DEBUG-SOURCE-ROOT-NUMBER" "DEBUG-VAR" + "DEBUG-VAR-ID" "DEBUG-VAR-INFO-AVAILABLE" + "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" + "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" + "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" + "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE")) #s(sb-cold:package-data :name "SB!DISASSEM" :doc "private: stuff related to the implementation of the disassembler" :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" - "DISASSEMBLE-CODE-COMPONENT" - "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY" - "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS" - "DSTATE-CODE" "DSTATE-CURPOS" "DSTATE-GET-INST-PROP" + "*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" + "DISASSEMBLE-CODE-COMPONENT" + "DISASSEMBLE-FUN" "DISASSEMBLE-MEMORY" + "DISASSEMBLE-SEGMENT" "DISASSEMBLE-SEGMENTS" + "DSTATE-CODE" "DSTATE-CURPOS" "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" - "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS" - "GET-INST-SPACE" "HANDLE-BREAK-ARGS" - "INST" "INST-FORMAT" "LABEL-SEGMENTS" - "MAYBE-NOTE-ASSEMBLER-ROUTINE" - "MAYBE-NOTE-ASSOCIATED-STORAGE-REF" - "MAYBE-NOTE-NIL-INDEXED-OBJECT" - "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF" - "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" - "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" - "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" - "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM" - "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT" - "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK" - "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR")) + "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" + "GET-CODE-SEGMENTS" "GET-FUN-SEGMENTS" + "GET-INST-SPACE" "HANDLE-BREAK-ARGS" + "INST" "INST-FORMAT" "LABEL-SEGMENTS" + "MAYBE-NOTE-ASSEMBLER-ROUTINE" + "MAYBE-NOTE-ASSOCIATED-STORAGE-REF" + "MAYBE-NOTE-NIL-INDEXED-OBJECT" + "MAYBE-NOTE-NIL-INDEXED-SYMBOL-SLOT-REF" + "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" + "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" + "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" + "MAP-SEGMENT-INSTRUCTIONS" "GEN-FORMAT-DEF-FORM" + "SET-LOCATION-PRINTING-RANGE" "MAKE-VECTOR-SEGMENT" + "ADD-OFFS-NOTE-HOOK" "ADD-OFFS-COMMENT-HOOK" + "DSTATE-CUR-ADDR" "DSTATE-NEXT-ADDR")) #!+sb-dyncount #s(sb-cold:package-data :name "SB!DYNCOUNT" :doc "private: some somewhat-stale code for collecting runtime statistics" :use ("CL" "SB!ALIEN-INTERNALS" "SB!ALIEN" "SB!BIGNUM" - "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS") + "SB!EXT" "SB!INT" "SB!KERNEL" "SB!ASSEM" "SB!SYS") :export ("*COLLECT-DYNAMIC-STATISTICS*" - "COUNT-ME" - "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS" - "IR2-COMPONENT-DYNCOUNT-INFO" - "DYNCOUNT-INFO" "DYNCOUNT-INFO-P")) + "COUNT-ME" + "DYNCOUNT-INFO-COUNTS" "DYNCOUNT-INFO-COSTS" + "IR2-COMPONENT-DYNCOUNT-INFO" + "DYNCOUNT-INFO" "DYNCOUNT-INFO-P")) #s(sb-cold:package-data :name "SB!FASL" :doc "private: stuff related to FASL load/dump logic (and GENESIS)" :use ("CL" "SB!ALIEN" "SB!ASSEM" "SB!BIGNUM" "SB!C" - "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS") + "SB!EXT" "SB!INT" "SB!KERNEL" "SB!SYS") :export ("*ASSEMBLER-ROUTINES*" - "+BACKEND-FASL-FILE-IMPLEMENTATION+" - "BUILD-ID-CORE-ENTRY-TYPE-CODE" - "*FASL-FILE-TYPE*" - "CLOSE-FASL-OUTPUT" - "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-COLD-FSET" - "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA" - "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL" - "FASL-NOTE-HANDLE-FOR-CONSTANT" - "FASL-OUTPUT" "FASL-OUTPUT-P" - "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM" - "FASL-VALIDATE-STRUCTURE" - "INITIAL-FUN-CORE-ENTRY-TYPE-CODE" - "*!LOAD-TIME-VALUES*" - "LOAD-TYPE-PREDICATE" - "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE" - "OPEN-FASL-OUTPUT" - "READ-ONLY-CORE-SPACE-ID" - "*!REVERSED-COLD-TOPLEVELS*" - "STATIC-CORE-SPACE-ID" - "VERSION-CORE-ENTRY-TYPE-CODE")) + "+BACKEND-FASL-FILE-IMPLEMENTATION+" + "BUILD-ID-CORE-ENTRY-TYPE-CODE" + "*FASL-FILE-TYPE*" + "CLOSE-FASL-OUTPUT" + "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-COLD-FSET" + "FASL-DUMP-LOAD-TIME-VALUE" "FASL-DUMP-LOAD-TIME-VALUE-LAMBDA" + "FASL-DUMP-SOURCE-INFO" "FASL-DUMP-TOPLEVEL-LAMBDA-CALL" + "FASL-NOTE-HANDLE-FOR-CONSTANT" + "FASL-OUTPUT" "FASL-OUTPUT-P" + "FASL-OUTPUT-ENTRY-TABLE" "FASL-OUTPUT-STREAM" + "FASL-VALIDATE-STRUCTURE" + "INITIAL-FUN-CORE-ENTRY-TYPE-CODE" + "*!LOAD-TIME-VALUES*" + "LOAD-TYPE-PREDICATE" + "NEW-DIRECTORY-CORE-ENTRY-TYPE-CODE" + "OPEN-FASL-OUTPUT" + "READ-ONLY-CORE-SPACE-ID" + "*!REVERSED-COLD-TOPLEVELS*" + "STATIC-CORE-SPACE-ID" + "VERSION-CORE-ENTRY-TYPE-CODE")) ;; This package is a grab bag for things which used to be internal ;; symbols in package COMMON-LISP. Lots of these symbols are accessed @@ -545,24 +545,24 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." :name "SB!IMPL" :doc "private: a grab bag of implementation details" :use ("CL" "SB!ALIEN" "SB!BIGNUM" "SB!DEBUG" "SB!EXT" - "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS")) + "SB!FASL" "SB!GRAY" "SB!INT" "SB!KERNEL" "SB!SYS")) #s(sb-cold:package-data :name "SB!EXT" :doc "public: miscellaneous supported extensions to the ANSI Lisp spec" :use ("CL" "SB!ALIEN" "SB!INT" "SB!SYS" "SB!GRAY") - :export ( ;; Information about how the program was invoked is - ;; nonstandard but very useful. - "*POSIX-ARGV*" - "POSIX-GETENV" "POSIX-ENVIRON" - - ;; People have various good reasons to mess with the GC. - "*AFTER-GC-HOOKS*" - "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*" - "BYTES-CONSED-BETWEEN-GCS" - "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED" - "*GC-RUN-TIME*" - "PURIFY" + :export ( ;; Information about how the program was invoked is + ;; nonstandard but very useful. + "*POSIX-ARGV*" + "POSIX-GETENV" "POSIX-ENVIRON" + + ;; People have various good reasons to mess with the GC. + "*AFTER-GC-HOOKS*" + "*GC-NOTIFY-AFTER*" "*GC-NOTIFY-BEFORE*" "*GC-NOTIFY-STREAM*" + "BYTES-CONSED-BETWEEN-GCS" + "GC" "GC-OFF" "GC-ON" "GET-BYTES-CONSED" + "*GC-RUN-TIME*" + "PURIFY" ;; Customizing printing of compiler and debugger messages "*COMPILER-PRINT-VARIABLE-ALIST*" @@ -571,160 +571,160 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." ;; Hooks into init & save sequences "*INIT-HOOKS*" "*SAVE-HOOKS*" - ;; There is no one right way to report progress on - ;; hairy compiles. - "*COMPILE-PROGRESS*" + ;; There is no one right way to report progress on + ;; hairy compiles. + "*COMPILE-PROGRESS*" - ;; It can be handy to be able to evaluate expressions involving - ;; the thing under examination by CL:INSPECT. - "*INSPECTED*" + ;; It can be handy to be able to evaluate expressions involving + ;; the thing under examination by CL:INSPECT. + "*INSPECTED*" - ;; There is no one right way to do efficiency notes. - "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*" + ;; There is no one right way to do efficiency notes. + "*EFFICIENCY-NOTE-COST-THRESHOLD*" "*EFFICIENCY-NOTE-LIMIT*" - ;; There's no one right way to report errors. - "*ENCLOSING-SOURCE-CUTOFF*" - "*UNDEFINED-WARNING-LIMIT*" + ;; There's no one right way to report errors. + "*ENCLOSING-SOURCE-CUTOFF*" + "*UNDEFINED-WARNING-LIMIT*" - ;; and for dedicated users who really want to customize - ;; error reporting, we have - "DEFINE-SOURCE-CONTEXT" + ;; and for dedicated users who really want to customize + ;; error reporting, we have + "DEFINE-SOURCE-CONTEXT" - ;; and given how many users dislike strict treatment of - ;; DEFCONSTANT, let's give them enough rope to escape by - "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME" - "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE" + ;; and given how many users dislike strict treatment of + ;; DEFCONSTANT, let's give them enough rope to escape by + "DEFCONSTANT-UNEQL" "DEFCONSTANT-UNEQL-NAME" + "DEFCONSTANT-UNEQL-NEW-VALUE" "DEFCONSTANT-UNEQL-OLD-VALUE" ;; package-locking stuff - #!+sb-package-locks "PACKAGE-LOCKED-P" - #!+sb-package-locks "LOCK-PACKAGE" + #!+sb-package-locks "PACKAGE-LOCKED-P" + #!+sb-package-locks "LOCK-PACKAGE" #!+sb-package-locks "UNLOCK-PACKAGE" - #!+sb-package-locks "PACKAGE-IMPLEMENTED-BY-LIST" + #!+sb-package-locks "PACKAGE-IMPLEMENTED-BY-LIST" #!+sb-package-locks "PACKAGE-IMPLEMENTS-LIST" - #!+sb-package-locks "ADD-IMPLEMENTATION-PACKAGE" + #!+sb-package-locks "ADD-IMPLEMENTATION-PACKAGE" #!+sb-package-locks "REMOVE-IMPLEMENTATION-PACKAGE" #!+sb-package-locks "WITH-UNLOCKED-PACKAGES" #!+sb-package-locks "PACKAGE-LOCK-VIOLATION" #!+sb-package-locks "PACKAGE-LOCKED-ERROR" - #!+sb-package-locks "SYMBOL-PACKAGE-LOCKED-ERROR" + #!+sb-package-locks "SYMBOL-PACKAGE-LOCKED-ERROR" #!+sb-package-locks "PACKAGE-LOCKED-ERROR-SYMBOL" "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. - "INVALID-FASL" - - ;; conditions that can be handled to reduce compiler - ;; verbosity - "CODE-DELETION-NOTE" "COMPILER-NOTE" - - ;; and a mechanism for controlling same at compile time - "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS" - - ;; FIXME: This name doesn't match the DEFFOO - vs. - - ;; DEFINE-FOO convention used in the ANSI spec, and so - ;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After - ;; a year or so it can go away completely. - "DEF-SOURCE-CONTEXT" - - ;; FIXME: These seem like the right thing, but are they - ;; consistent with ANSI? (And actually maybe they're not - ;; quite the right thing; it might be better to also do - ;; WITH-STANDARD-IO-SYNTAX or something.) - "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*" - - ;; extended declarations.. - "FREEZE-TYPE" "INHIBIT-WARNINGS" - "MAYBE-INLINE" - - ;; ..and variables to control compiler policy - "*INLINE-EXPANSION-LIMIT*" - "*USE-IMPLEMENTATION-TYPES*" - "*DERIVE-FUNCTION-TYPES*" - - ;; ..and inspector of compiler policy - "DESCRIBE-COMPILER-POLICY" - - ;; a special form for breaking out of our "declarations - ;; are assertions" default - "TRULY-THE" - - ;; 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" - - ;; weak pointers and finalization - "CANCEL-FINALIZATION" - "FINALIZE" - "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER" - "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE" - - ;; If the user knows we're doing IEEE, he might reasonably - ;; want to do this stuff. - "FLOAT-DENORMALIZED-P" - "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" - "FLOAT-INFINITY-P" - "SHORT-FLOAT-NEGATIVE-INFINITY" - "SHORT-FLOAT-POSITIVE-INFINITY" - "SINGLE-FLOAT-NEGATIVE-INFINITY" - "SINGLE-FLOAT-POSITIVE-INFINITY" - "DOUBLE-FLOAT-NEGATIVE-INFINITY" - "DOUBLE-FLOAT-POSITIVE-INFINITY" - "LONG-FLOAT-NEGATIVE-INFINITY" - "LONG-FLOAT-POSITIVE-INFINITY" - - ;; hacks to work around system limitations - "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when - ; memory is exhausted - - ;; saving Lisp images - "SAVE-LISP-AND-DIE" - - ;; provided for completeness to make it more convenient - ;; to use command-line --disable-debugger functionality - ;; in oddball situations (like building core files using - ;; scripts which run unattended, when the core files are - ;; intended for interactive use) - "DISABLE-DEBUGGER" - "ENABLE-DEBUGGER" - - ;; the mechanism by which {en,dis}able-debugger works is - ;; also exported for people writing alternative toplevels - ;; (Emacs, CLIM interfaces, etc) - "*INVOKE-DEBUGGER-HOOK*" - - ;; miscellaneous useful supported extensions - "QUIT" - "*ED-FUNCTIONS*" - "*MODULE-PROVIDER-FUNCTIONS*" - "WITH-TIMEOUT" "TIMEOUT" - - ;; stepping interface - "STEP-CONDITION" "STEP-FORM-CONDITION" - "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION" - "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH" + ;; error signalled when attempt to load an invalid fasl + ;; is made, so that user code can try to recompile, etc. + "INVALID-FASL" + + ;; conditions that can be handled to reduce compiler + ;; verbosity + "CODE-DELETION-NOTE" "COMPILER-NOTE" + + ;; and a mechanism for controlling same at compile time + "MUFFLE-CONDITIONS" "UNMUFFLE-CONDITIONS" + + ;; FIXME: This name doesn't match the DEFFOO - vs. - + ;; DEFINE-FOO convention used in the ANSI spec, and so + ;; was deprecated in sbcl-0.pre7, ca. 2001-12-12. After + ;; a year or so it can go away completely. + "DEF-SOURCE-CONTEXT" + + ;; FIXME: These seem like the right thing, but are they + ;; consistent with ANSI? (And actually maybe they're not + ;; quite the right thing; it might be better to also do + ;; WITH-STANDARD-IO-SYNTAX or something.) + "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*" + + ;; extended declarations.. + "FREEZE-TYPE" "INHIBIT-WARNINGS" + "MAYBE-INLINE" + + ;; ..and variables to control compiler policy + "*INLINE-EXPANSION-LIMIT*" + "*USE-IMPLEMENTATION-TYPES*" + "*DERIVE-FUNCTION-TYPES*" + + ;; ..and inspector of compiler policy + "DESCRIBE-COMPILER-POLICY" + + ;; a special form for breaking out of our "declarations + ;; are assertions" default + "TRULY-THE" + + ;; 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" + + ;; weak pointers and finalization + "CANCEL-FINALIZATION" + "FINALIZE" + "HASH-TABLE-WEAK-P" "MAKE-WEAK-POINTER" + "WEAK-POINTER" "WEAK-POINTER-P" "WEAK-POINTER-VALUE" + + ;; If the user knows we're doing IEEE, he might reasonably + ;; want to do this stuff. + "FLOAT-DENORMALIZED-P" + "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" + "FLOAT-INFINITY-P" + "SHORT-FLOAT-NEGATIVE-INFINITY" + "SHORT-FLOAT-POSITIVE-INFINITY" + "SINGLE-FLOAT-NEGATIVE-INFINITY" + "SINGLE-FLOAT-POSITIVE-INFINITY" + "DOUBLE-FLOAT-NEGATIVE-INFINITY" + "DOUBLE-FLOAT-POSITIVE-INFINITY" + "LONG-FLOAT-NEGATIVE-INFINITY" + "LONG-FLOAT-POSITIVE-INFINITY" + + ;; hacks to work around system limitations + "*INTEXP-MAXIMUM-EXPONENT*" ; since we crash hard when + ; memory is exhausted + + ;; saving Lisp images + "SAVE-LISP-AND-DIE" + + ;; provided for completeness to make it more convenient + ;; to use command-line --disable-debugger functionality + ;; in oddball situations (like building core files using + ;; scripts which run unattended, when the core files are + ;; intended for interactive use) + "DISABLE-DEBUGGER" + "ENABLE-DEBUGGER" + + ;; the mechanism by which {en,dis}able-debugger works is + ;; also exported for people writing alternative toplevels + ;; (Emacs, CLIM interfaces, etc) + "*INVOKE-DEBUGGER-HOOK*" + + ;; miscellaneous useful supported extensions + "QUIT" + "*ED-FUNCTIONS*" + "*MODULE-PROVIDER-FUNCTIONS*" + "WITH-TIMEOUT" "TIMEOUT" + + ;; stepping interface + "STEP-CONDITION" "STEP-FORM-CONDITION" + "STEP-VALUES-CONDITION" "STEP-VARIABLE-CONDITION" + "STEP-CONDITION-FORM" "STEP-CONDITION-SOURCE-PATH" "STEP-CONDITION-PATHNAME" "STEP-CONDITION-RESULT" - "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO" + "STEP-CONTINUE" "STEP-NEXT" "STEP-INTO" "*STEPPER-HOOK*" - - ;; RUN-PROGRAM is not only useful for users, but also - ;; useful to implement parts of SBCL itself, so we're - ;; going to have to implement it anyway, so we might - ;; as well support it. And then once we're committed - ;; to implementing RUN-PROGRAM, it's nice to have it - ;; 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" - "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS" - "PROCESS-STATUS-HOOK" "PROCESS-WAIT" + + ;; RUN-PROGRAM is not only useful for users, but also + ;; useful to implement parts of SBCL itself, so we're + ;; going to have to implement it anyway, so we might + ;; as well support it. And then once we're committed + ;; to implementing RUN-PROGRAM, it's nice to have it + ;; 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" + "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS" + "PROCESS-STATUS-HOOK" "PROCESS-WAIT" ;; external-format support "OCTETS-TO-STRING" "STRING-TO-OCTETS")) @@ -742,21 +742,21 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*." Lisp extension proposal by David N. Gray" :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL") :export ("FUNDAMENTAL-BINARY-STREAM" - "FUNDAMENTAL-BINARY-INPUT-STREAM" - "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM" - "FUNDAMENTAL-CHARACTER-INPUT-STREAM" - "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM" - "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM" - "FUNDAMENTAL-STREAM" - "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" - "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT" - "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH" - "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE" - "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE" - "STREAM-READ-SEQUENCE" "STREAM-START-LINE-P" "STREAM-TERPRI" - "STREAM-UNREAD-CHAR" - "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-SEQUENCE" - "STREAM-WRITE-STRING")) + "FUNDAMENTAL-BINARY-INPUT-STREAM" + "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM" + "FUNDAMENTAL-CHARACTER-INPUT-STREAM" + "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM" + "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM" + "FUNDAMENTAL-STREAM" + "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" + "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT" + "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH" + "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE" + "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE" + "STREAM-READ-SEQUENCE" "STREAM-START-LINE-P" "STREAM-TERPRI" + "STREAM-UNREAD-CHAR" + "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-SEQUENCE" + "STREAM-WRITE-STRING")) #s(sb-cold:package-data :name "SB!INT" @@ -766,296 +766,296 @@ 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!GRAY" "SB!FASL" "SB!SYS") :export (;; lambda list keyword extensions - "&MORE" - - ;; INFO stuff doesn't belong in a user-visible package, we - ;; should be able to change it without apology. - "*INFO-ENVIRONMENT*" - "CLEAR-INFO" - "COMPACT-INFO-ENVIRONMENT" - "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE" - "DO-INFO" - "INFO" - "MAKE-INFO-ENVIRONMENT" + "&MORE" + + ;; INFO stuff doesn't belong in a user-visible package, we + ;; should be able to change it without apology. + "*INFO-ENVIRONMENT*" + "CLEAR-INFO" + "COMPACT-INFO-ENVIRONMENT" + "DEFINE-INFO-CLASS" "DEFINE-INFO-TYPE" + "DO-INFO" + "INFO" + "MAKE-INFO-ENVIRONMENT" ;; stepping control "*STEPPING*" "*STEP*" - ;; packages grabbed once and for all - "*KEYWORD-PACKAGE*" "*CL-PACKAGE*" + ;; packages grabbed once and for all + "*KEYWORD-PACKAGE*" "*CL-PACKAGE*" - ;; hash mixing operations - "MIX" "MIXF" + ;; hash mixing operations + "MIX" "MIXF" - ;; 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 - ;; rid of FDEFINITIONs entirely later. - "*SETF-FDEFINITION-HOOK*" + ;; 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 + ;; rid of FDEFINITIONs entirely later. + "*SETF-FDEFINITION-HOOK*" - ;; error-reporting facilities - "ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR" - "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR" - "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR" - "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION" - "SIMPLE-STYLE-WARNING" + ;; error-reporting facilities + "ENCAPSULATED-CONDITION" "COMPILED-PROGRAM-ERROR" + "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR" + "SIMPLE-PARSE-ERROR" "SIMPLE-PROGRAM-ERROR" + "SIMPLE-STREAM-ERROR" "SIMPLE-STORAGE-CONDITION" + "SIMPLE-STYLE-WARNING" - "SPECIAL-FORM-FUNCTION" - "STYLE-WARN" "SIMPLE-COMPILER-NOTE" + "SPECIAL-FORM-FUNCTION" + "STYLE-WARN" "SIMPLE-COMPILER-NOTE" ;; FIXME: potential SB!EXT exports - "CHARACTER-CODING-ERROR" + "CHARACTER-CODING-ERROR" "CHARACTER-DECODING-ERROR" "CHARACTER-DECODING-ERROR-OCTETS" "CHARACTER-ENCODING-ERROR" "CHARACTER-ENCODING-ERROR-CODE" "STREAM-DECODING-ERROR" "STREAM-ENCODING-ERROR" - "ATTEMPT-RESYNC" "FORCE-END-OF-FILE" + "ATTEMPT-RESYNC" "FORCE-END-OF-FILE" - ;; bootstrapping magic, to make things happen both in - ;; the cross-compilation host compiler's environment and - ;; in the cross-compiler's environment - "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE" + ;; bootstrapping magic, to make things happen both in + ;; the cross-compilation host compiler's environment and + ;; in the cross-compiler's environment + "DEF!CONSTANT" "DEF!MACRO" "DEF!METHOD" "DEF!STRUCT" "DEF!TYPE" - ;; stuff for hinting to the compiler - "NAMED-LAMBDA" + ;; stuff for hinting to the compiler + "NAMED-LAMBDA" - ;; other variations on DEFFOO stuff useful for bootstrapping - ;; and cross-compiling - "DEFMACRO-MUNDANELY" - "DEFCONSTANT-EQX" + ;; other variations on DEFFOO stuff useful for bootstrapping + ;; and cross-compiling + "DEFMACRO-MUNDANELY" + "DEFCONSTANT-EQX" "DEFINE-UNSUPPORTED-FUN" - ;; messing with PATHNAMEs - "MAKE-TRIVIAL-DEFAULT-PATHNAME" - "PHYSICALIZE-PATHNAME" - "SANE-DEFAULT-PATHNAME-DEFAULTS" - - ;; 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*" - - ;; miscellaneous non-standard but handy user-level functions.. - "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ" - "ADJUST-LIST" - "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE" - "SANE-PACKAGE" - "CYCLIC-LIST-P" - "COMPOUND-OBJECT-P" - "SWAPPED-ARGS-FUN" - "AND/TYPE" "NOT/TYPE" - "ANY/TYPE" "EVERY/TYPE" - "EQUAL-BUT-NO-CAR-RECURSION" - "TYPE-BOUND-NUMBER" - "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0" - "PSXHASH" - "%BREAK" - "NTH-BUT-WITH-SANE-ARG-ORDER" - "DEPRECATION-WARNING" - "BIT-VECTOR-=" - - ;; ..and macros.. - "COLLECT" - "DO-ANONYMOUS" "DOHASH" "DOVECTOR" - "NAMED-LET" - "ONCE-ONLY" - "DEFENUM" - "DEFPRINTER" - "AVER" "ENFORCE-TYPE" - "AWHEN" "ACOND" "IT" - "BINDING*" - "!DEF-BOOLEAN-ATTRIBUTE" - "WITH-REBOUND-IO-SYNTAX" - "WITH-SANE-IO-SYNTAX" - - ;; ..and CONDITIONs.. - "BUG" - "UNSUPPORTED-OPERATOR" - - "BOOTSTRAP-PACKAGE-NAME" - "BOOTSTRAP-PACKAGE-NOT-FOUND" - "DEBOOTSTRAP-PACKAGE" - - "REFERENCE-CONDITION" "REFERENCE-CONDITION-REFERENCES" - "*PRINT-CONDITION-REFERENCES*" - - "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME" - "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH" - "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH" - "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING" - "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE" + ;; messing with PATHNAMEs + "MAKE-TRIVIAL-DEFAULT-PATHNAME" + "PHYSICALIZE-PATHNAME" + "SANE-DEFAULT-PATHNAME-DEFAULTS" + + ;; 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*" + + ;; miscellaneous non-standard but handy user-level functions.. + "ASSQ" "DELQ" "MEMQ" "POSQ" "NEQ" + "ADJUST-LIST" + "%FIND-PACKAGE-OR-LOSE" "FIND-UNDELETED-PACKAGE-OR-LOSE" + "SANE-PACKAGE" + "CYCLIC-LIST-P" + "COMPOUND-OBJECT-P" + "SWAPPED-ARGS-FUN" + "AND/TYPE" "NOT/TYPE" + "ANY/TYPE" "EVERY/TYPE" + "EQUAL-BUT-NO-CAR-RECURSION" + "TYPE-BOUND-NUMBER" + "CONSTANTLY-T" "CONSTANTLY-NIL" "CONSTANTLY-0" + "PSXHASH" + "%BREAK" + "NTH-BUT-WITH-SANE-ARG-ORDER" + "DEPRECATION-WARNING" + "BIT-VECTOR-=" + + ;; ..and macros.. + "COLLECT" + "DO-ANONYMOUS" "DOHASH" "DOVECTOR" + "NAMED-LET" + "ONCE-ONLY" + "DEFENUM" + "DEFPRINTER" + "AVER" "ENFORCE-TYPE" + "AWHEN" "ACOND" "IT" + "BINDING*" + "!DEF-BOOLEAN-ATTRIBUTE" + "WITH-REBOUND-IO-SYNTAX" + "WITH-SANE-IO-SYNTAX" + + ;; ..and CONDITIONs.. + "BUG" + "UNSUPPORTED-OPERATOR" + + "BOOTSTRAP-PACKAGE-NAME" + "BOOTSTRAP-PACKAGE-NOT-FOUND" + "DEBOOTSTRAP-PACKAGE" + + "REFERENCE-CONDITION" "REFERENCE-CONDITION-REFERENCES" + "*PRINT-CONDITION-REFERENCES*" + + "DUPLICATE-DEFINITION" "DUPLICATE-DEFINITION-NAME" + "PACKAGE-AT-VARIANCE" "ARRAY-INITIAL-ELEMENT-MISMATCH" + "TYPE-WARNING" "LOCAL-ARGUMENT-MISMATCH" + "FORMAT-ARGS-MISMATCH" "FORMAT-TOO-FEW-ARGS-WARNING" + "FORMAT-TOO-MANY-ARGS-WARNING" "EXTENSION-FAILURE" "STRUCTURE-INITARG-NOT-KEYWORD" "NAME-CONFLICT" "NAME-CONFLICT-FUNCTION" "NAME-CONFLICT-DATUM" "NAME-CONFLICT-SYMBOLS" "RESOLVE-CONFLICT" - - ;; ..and DEFTYPEs.. - "INDEX" "LOAD/STORE-INDEX" - "SIGNED-BYTE-WITH-A-BITE-OUT" - "UNSIGNED-BYTE-WITH-A-BITE-OUT" - "SFUNCTION" "UNSIGNED-BYTE*" - ;; ..and type predicates - "INSTANCEP" - "DOUBLE-FLOAT-P" - "LOGICAL-PATHNAME-P" - "LONG-FLOAT-P" - "SHORT-FLOAT-P" - "SINGLE-FLOAT-P" - "FIXNUMP" - "BIGNUMP" - "RATIOP" - - ;; encapsulation - "ARG-LIST" - "BASIC-DEFINITION" - "ENCAPSULATE" "ENCAPSULATED-P" - "UNENCAPSULATE" - - ;; various CHAR-CODEs - "BACKSPACE-CHAR-CODE" "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE" - "FORM-FEED-CHAR-CODE" "LINE-FEED-CHAR-CODE" - "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE" - - ;; symbol-hacking idioms - "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*" - "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT" - - ;; hash caches - "DEFINE-HASH-CACHE" - "DEFUN-CACHED" - "DEFINE-CACHED-SYNONYM" - - ;; 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" - - ;; helpers for C library calls - "STRERROR" "SIMPLE-PERROR" - - ;; debuggers' little helpers - #!+sb-show "*/SHOW*" - #!+sb-show "HEXSTR" - "/SHOW" "/NOSHOW" - "/XHOW" "/NOXHOW" - "/SHOW0" "/NOSHOW0" - "/HEXSTR" "/NOHEXSTR" - "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT" - - ;; cross-compilation bootstrap hacks which turn into - ;; placeholders in a target system - "UNCROSS" - - ;; might as well be shared among the various files which - ;; need it: - "*EOF-OBJECT*" - - ;; allocation to static space - "MAKE-STATIC-VECTOR" - - ;; alien interface utilities - "C-STRINGS->STRING-LIST" - - ;; misc. utilities used internally - "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT? - "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR" - "FUN-NAME-BLOCK-NAME" - "FUN-NAME-INLINE-EXPANSION" - "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" - "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 - "FEATUREP" - "FLUSH-STANDARD-OUTPUT-STREAMS" - "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST" - "ABOUT-TO-MODIFY-SYMBOL-VALUE" - "SYMBOL-SELF-EVALUATING-P" - "PRINT-PRETTY-ON-STREAM-P" - "ARRAY-READABLY-PRINTABLE-P" - "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P" - "POSITIVE-PRIMEP" - "EVAL-IN-LEXENV" - "DEBUG-NAMIFY" - "FORCE" "DELAY" "PROMISE-READY-P" - "FIND-RESTART-OR-CONTROL-ERROR" - - ;; These could be moved back into SB!EXT if someone has - ;; compelling reasons, but hopefully we can get by - ;; without supporting them, at least not as publicly - ;; accessible things with fixed interfaces. - "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" - "FAST-READ-CHAR" - "FAST-READ-CHAR-REFILL" - "FAST-READ-S-INTEGER" - "FAST-READ-U-INTEGER" - "FAST-READ-VAR-U-INTEGER" - "FILE-NAME" - "INTERN*" - "PREPARE-FOR-FAST-READ-BYTE" - "PREPARE-FOR-FAST-READ-CHAR" - - ;; reflection of our backquote implementation that the - ;; pprinter needs - "*BACKQ-TOKENS*" - - ;; hackery to help set up for cold init - "!BEGIN-COLLECTING-COLD-INIT-FORMS" - "!COLD-INIT-FORMS" - "COLD-FSET" - "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS" - - ;; catch tags - "TOPLEVEL-CATCHER" - - ;; hooks for contrib/ stuff we're insufficiently sure - ;; about to add to SB!EXT - "*REPL-PROMPT-FUN*" - "*REPL-READ-FORM-FUN*")) + + ;; ..and DEFTYPEs.. + "INDEX" "LOAD/STORE-INDEX" + "SIGNED-BYTE-WITH-A-BITE-OUT" + "UNSIGNED-BYTE-WITH-A-BITE-OUT" + "SFUNCTION" "UNSIGNED-BYTE*" + ;; ..and type predicates + "INSTANCEP" + "DOUBLE-FLOAT-P" + "LOGICAL-PATHNAME-P" + "LONG-FLOAT-P" + "SHORT-FLOAT-P" + "SINGLE-FLOAT-P" + "FIXNUMP" + "BIGNUMP" + "RATIOP" + + ;; encapsulation + "ARG-LIST" + "BASIC-DEFINITION" + "ENCAPSULATE" "ENCAPSULATED-P" + "UNENCAPSULATE" + + ;; various CHAR-CODEs + "BACKSPACE-CHAR-CODE" "BELL-CHAR-CODE" "ESCAPE-CHAR-CODE" + "FORM-FEED-CHAR-CODE" "LINE-FEED-CHAR-CODE" + "RETURN-CHAR-CODE" "RUBOUT-CHAR-CODE" "TAB-CHAR-CODE" + + ;; symbol-hacking idioms + "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*" + "*LOAD-SOURCE-DEFAULT-TYPE*" "BASE-CHAR-CODE-LIMIT" + + ;; hash caches + "DEFINE-HASH-CACHE" + "DEFUN-CACHED" + "DEFINE-CACHED-SYNONYM" + + ;; 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" + + ;; helpers for C library calls + "STRERROR" "SIMPLE-PERROR" + + ;; debuggers' little helpers + #!+sb-show "*/SHOW*" + #!+sb-show "HEXSTR" + "/SHOW" "/NOSHOW" + "/XHOW" "/NOXHOW" + "/SHOW0" "/NOSHOW0" + "/HEXSTR" "/NOHEXSTR" + "/PRIMITIVE-PRINT" "/NO-PRIMITIVE-PRINT" + + ;; cross-compilation bootstrap hacks which turn into + ;; placeholders in a target system + "UNCROSS" + + ;; might as well be shared among the various files which + ;; need it: + "*EOF-OBJECT*" + + ;; allocation to static space + "MAKE-STATIC-VECTOR" + + ;; alien interface utilities + "C-STRINGS->STRING-LIST" + + ;; misc. utilities used internally + "DEFINE-FUNCTION-NAME-SYNTAX" "VALID-FUNCTION-NAME-P" ; should be SB!EXT? + "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR" + "FUN-NAME-BLOCK-NAME" + "FUN-NAME-INLINE-EXPANSION" + "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" + "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 + "FEATUREP" + "FLUSH-STANDARD-OUTPUT-STREAMS" + "WITH-UNIQUE-NAMES" "MAKE-GENSYM-LIST" + "ABOUT-TO-MODIFY-SYMBOL-VALUE" + "SYMBOL-SELF-EVALUATING-P" + "PRINT-PRETTY-ON-STREAM-P" + "ARRAY-READABLY-PRINTABLE-P" + "LOOKS-LIKE-NAME-OF-SPECIAL-VAR-P" + "POSITIVE-PRIMEP" + "EVAL-IN-LEXENV" + "DEBUG-NAMIFY" + "FORCE" "DELAY" "PROMISE-READY-P" + "FIND-RESTART-OR-CONTROL-ERROR" + + ;; These could be moved back into SB!EXT if someone has + ;; compelling reasons, but hopefully we can get by + ;; without supporting them, at least not as publicly + ;; accessible things with fixed interfaces. + "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" + "FAST-READ-CHAR" + "FAST-READ-CHAR-REFILL" + "FAST-READ-S-INTEGER" + "FAST-READ-U-INTEGER" + "FAST-READ-VAR-U-INTEGER" + "FILE-NAME" + "INTERN*" + "PREPARE-FOR-FAST-READ-BYTE" + "PREPARE-FOR-FAST-READ-CHAR" + + ;; reflection of our backquote implementation that the + ;; pprinter needs + "*BACKQ-TOKENS*" + + ;; hackery to help set up for cold init + "!BEGIN-COLLECTING-COLD-INIT-FORMS" + "!COLD-INIT-FORMS" + "COLD-FSET" + "!DEFUN-FROM-COLLECTED-COLD-INIT-FORMS" + + ;; catch tags + "TOPLEVEL-CATCHER" + + ;; hooks for contrib/ stuff we're insufficiently sure + ;; about to add to SB!EXT + "*REPL-PROMPT-FUN*" + "*REPL-READ-FORM-FUN*")) ;; FIXME: This package is awfully huge. It'd probably be good to ;; split it. There's at least one natural way to split it: the @@ -1067,7 +1067,7 @@ retained, possibly temporariliy, because it might be used internally." ;; * Pull GC stuff (*GC-INHIBIT*, *NEED-TO-COLLECT-GARBAGE*, etc.) ;; out into SB-GC. ;; * Pull special case implementations of sequence functions (e.g. - ;; %MAP-TO-LIST-ARITY-1 and %FIND-POSITION-IF-NOT) and + ;; %MAP-TO-LIST-ARITY-1 and %FIND-POSITION-IF-NOT) and ;; other sequence function implementation grot into SB-SEQ. ;; * Pull all the math stuff (%ACOS, %COSH, WORD-LOGICAL-AND...) ;; into SB-MATH. @@ -1085,7 +1085,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 re. blurring of boundaries." :use ("CL" "SB!ALIEN" "SB!ALIEN-INTERNALS" "SB!BIGNUM" - "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY") + "SB!EXT" "SB!FASL" "SB!INT" "SB!SYS" "SB!GRAY") :reexport ("DEF!STRUCT" "DEF!MACRO") :export ("%ACOS" "%ACOSH" "%ARRAY-AVAILABLE-ELEMENTS" "%ARRAY-DATA-VECTOR" @@ -1131,7 +1131,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "%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-SIGNED-SAP-REF-8" "%SET-STACK-REF" "%SET-SYMBOL-HASH" "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT" "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING" "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH" @@ -1148,7 +1148,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "WORD-LOGICAL-XOR" "ALIEN-TYPE-TYPE" "ALIEN-TYPE-TYPE-ALIEN-TYPE" "ALIEN-TYPE-TYPE-P" "ALLOCATE-VECTOR" "ALLOCATE-STATIC-VECTOR" - "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED" + "ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED" "COMPILER-ASSERT-SYMBOL-HOME-PACKAGE-UNLOCKED" "DISABLED-PACKAGE-LOCKS" "WITH-SINGLE-PACKAGE-LOCKED-ERROR" @@ -1169,7 +1169,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CALLABLE" "CASE-BODY-ERROR" "CHARACTER-SET" "CHARACTER-SET-TYPE" "CHARACTER-SET-TYPE-PAIRS" - #!+sb-unicode "CHARACTER-STRING-P" + #!+sb-unicode "CHARACTER-STRING-P" "CHARPOS" "CHECK-FOR-CIRCULARITY" "CHECK-TYPE-ERROR" "CLOSED-FLAME" "CODE-COMPONENT" "CODE-COMPONENT-P" "CODE-DEBUG-INFO" @@ -1190,7 +1190,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP" "CURRENT-DYNAMIC-SPACE-START" "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECLARATION-TYPE-CONFLICT-ERROR" - "DECODE-DOUBLE-FLOAT" + "DECODE-DOUBLE-FLOAT" #!+long-float "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT" "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P" @@ -1202,7 +1202,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE" "EFFECTIVE-FIND-POSITION-TEST" "EFFECTIVE-FIND-POSITION-KEY" "ERROR-NUMBER-OR-LOSE" - "EXTENDED-CHAR-P" + "EXTENDED-CHAR-P" "FAILED-%WITH-ARRAY-DATA" "FDEFINITION-OBJECT" "FDOCUMENTATION" "FILENAME" "FIND-AND-INIT-OR-CHECK-LAYOUT" "FLOAT-EXPONENT" @@ -1234,7 +1234,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "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" #!+(or x86-64 x86) "%LEA" "LEXENV" "LEXENV-DESIGNATOR" "LINE-LENGTH" "ANSI-STREAM" "ANSI-STREAM-BIN" "ANSI-STREAM-BOUT" "ANSI-STREAM-CLOSE" @@ -1275,7 +1275,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "OBJECT-NOT-ARRAY-ERROR" "OBJECT-NOT-CHARACTER-ERROR" "OBJECT-NOT-BASE-STRING-ERROR" "OBJECT-NOT-BIGNUM-ERROR" "OBJECT-NOT-BIT-VECTOR-ERROR" - #!+sb-unicode "OBJECT-NOT-CHARACTER-STRING-ERROR" + #!+sb-unicode "OBJECT-NOT-CHARACTER-STRING-ERROR" "OBJECT-NOT-COMPLEX-ERROR" "OBJECT-NOT-COMPLEX-FLOAT-ERROR" "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR" @@ -1342,7 +1342,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "OBJECT-NOT-SIMPLE-ARRAY-SIGNED-BYTE-8-ERROR" "OBJECT-NOT-SIMPLE-BIT-VECTOR-ERROR" "OBJECT-NOT-SIMPLE-BASE-STRING-ERROR" - #!+sb-unicode "OBJECT-NOT-SIMPLE-CHARACTER-STRING-ERROR" + #!+sb-unicode "OBJECT-NOT-SIMPLE-CHARACTER-STRING-ERROR" "OBJECT-NOT-SIMPLE-STRING-ERROR" "OBJECT-NOT-SIMPLE-VECTOR-ERROR" "OBJECT-NOT-SINGLE-FLOAT-ERROR" "OBJECT-NOT-STRING-ERROR" @@ -1352,8 +1352,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." ;; FIXME: 32/64-bit issues "OBJECT-NOT-UNSIGNED-BYTE-64-ERROR" "OBJECT-NOT-VECTOR-ERROR" - "OBJECT-NOT-VECTOR-NIL-ERROR" - "OBJECT-NOT-WEAK-POINTER-ERROR" + "OBJECT-NOT-VECTOR-NIL-ERROR" + "OBJECT-NOT-WEAK-POINTER-ERROR" "ODD-KEY-ARGS-ERROR" "OUTPUT-OBJECT" "OUTPUT-UGLY-OBJECT" "PACKAGE-DESIGNATOR" "PACKAGE-DOC-STRING" "PACKAGE-HASHTABLE-SIZE" "PACKAGE-HASHTABLE-FREE" @@ -1364,7 +1364,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." #!+(or x86 x86-64) "*PSEUDO-ATOMIC-INTERRUPTED*" "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR" "READER-EOF-ERROR" - "RESTART-DESIGNATOR" + "RESTART-DESIGNATOR" "RUN-PENDING-FINALIZERS" "SCALE-DOUBLE-FLOAT" #!+long-float "SCALE-LONG-FLOAT" @@ -1402,7 +1402,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "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" + #!+sb-unicode "SIMPLE-CHARACTER-STRING-P" "SIMPLE-PACKAGE-ERROR" "SIMPLE-UNBOXED-ARRAY" "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT" "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND" @@ -1530,7 +1530,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CONDITION-READER-FUNCTION" "CONDITION-WRITER-FUNCTION" - + "CONDITION-SLOT-ALLOCATION" "CONDITION-SLOT-DOCUMENTATION" "CONDITION-SLOT-INITARGS" @@ -1538,7 +1538,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CONDITION-SLOT-INITFORM-P" "CONDITION-SLOT-NAME" "CONDITION-SLOT-READERS" "CONDITION-SLOT-WRITERS" - + "!COLD-INIT" "!UNINTERN-INIT-ONLY-STUFF" "!GLOBALDB-COLD-INIT" "!FDEFN-COLD-INIT" "!FOREIGN-COLD-INIT" "!FUNCTION-NAMES-COLD-INIT" @@ -1556,7 +1556,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "GC-REINIT" "SIGNAL-COLD-INIT-OR-REINIT" - "STREAM-COLD-INIT-OR-RESET" + "STREAM-COLD-INIT-OR-RESET" ;; Cleanups to run before saving a core "DEBUG-DEINIT" "FOREIGN-DEINIT" "PROFILE-DEINIT" @@ -1594,14 +1594,14 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "INTERRUPT-THREAD-ERROR-THREAD" "INTERRUPT-THREAD-ERROR-ERRNO" "INTERRUPT-THREAD" "TERMINATE-THREAD" "DESTROY-THREAD" - "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE" + "MUTEX" "MAKE-MUTEX" "MUTEX-NAME" "MUTEX-VALUE" "GET-MUTEX" "RELEASE-MUTEX" "WITH-MUTEX" - "WITH-RECURSIVE-LOCK" - "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME" - "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST" - "MAKE-LISTENER-THREAD" - "RELEASE-FOREGROUND" "WITH-NEW-SESSION")) - + "WITH-RECURSIVE-LOCK" + "WAITQUEUE" "MAKE-WAITQUEUE" "WAITQUEUE-NAME" + "CONDITION-WAIT" "CONDITION-NOTIFY" "CONDITION-BROADCAST" + "MAKE-LISTENER-THREAD" + "RELEASE-FOREGROUND" "WITH-NEW-SESSION")) + #s(sb-cold:package-data :name "SB!LOOP" :doc "private: implementation details of LOOP" @@ -1616,99 +1616,99 @@ The Art of the Metaobject Protocol, by Kiczales, des Rivieres and Bobrow: ISBN 0-262-61074-4, with exceptions as noted in the User Manual." :use ("CL") :reexport ("ADD-METHOD" - "ALLOCATE-INSTANCE" - "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS" - "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE" - "METHOD-QUALIFIERS" "REMOVE-METHOD" - "BUILT-IN-CLASS" "CLASS" - "FUNCTION" "GENERIC-FUNCTION" - "METHOD" "METHOD-COMBINATION" - "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION" - "STANDARD-METHOD" "STANDARD-OBJECT" "T") + "ALLOCATE-INSTANCE" + "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS" + "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE" + "METHOD-QUALIFIERS" "REMOVE-METHOD" + "BUILT-IN-CLASS" "CLASS" + "FUNCTION" "GENERIC-FUNCTION" + "METHOD" "METHOD-COMBINATION" + "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION" + "STANDARD-METHOD" "STANDARD-OBJECT" "T") :export ("ADD-DEPENDENT" - "ADD-DIRECT-METHOD" - "ADD-DIRECT-SUBCLASS" - "CLASS-DEFAULT-INITARGS" - "CLASS-DIRECT-DEFAULT-INITARGS" - "CLASS-DIRECT-SLOTS" - "CLASS-DIRECT-SUBCLASSES" - "CLASS-DIRECT-SUPERCLASSES" - "CLASS-FINALIZED-P" - "CLASS-PRECEDENCE-LIST" - "CLASS-PROTOTYPE" - "CLASS-SLOTS" - "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" - "COMPUTE-CLASS-PRECEDENCE-LIST" - "COMPUTE-DEFAULT-INITARGS" - "COMPUTE-DISCRIMINATING-FUNCTION" - "COMPUTE-EFFECTIVE-METHOD" - "COMPUTE-EFFECTIVE-SLOT-DEFINITION" - "COMPUTE-SLOTS" - "DIRECT-SLOT-DEFINITION" - "DIRECT-SLOT-DEFINITION-CLASS" - "EFFECTIVE-SLOT-DEFINITION" - "EFFECTIVE-SLOT-DEFINITION-CLASS" - "ENSURE-CLASS" - "ENSURE-CLASS-USING-CLASS" - "ENSURE-GENERIC-FUNCTION-USING-CLASS" - "EQL-SPECIALIZER" - "EQL-SPECIALIZER-OBJECT" - "EXTRACT-LAMBDA-LIST" - "EXTRACT-SPECIALIZER-NAMES" - "FINALIZE-INHERITANCE" - "FIND-METHOD-COMBINATION" - "FORWARD-REFERENCED-CLASS" - "FUNCALLABLE-STANDARD-CLASS" - "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" - "FUNCALLABLE-STANDARD-OBJECT" - "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" - "GENERIC-FUNCTION-DECLARATIONS" - "GENERIC-FUNCTION-LAMBDA-LIST" - "GENERIC-FUNCTION-METHOD-CLASS" - "GENERIC-FUNCTION-METHOD-COMBINATION" - "GENERIC-FUNCTION-METHODS" - "GENERIC-FUNCTION-NAME" - "INTERN-EQL-SPECIALIZER" - "MAKE-METHOD-LAMBDA" - "MAP-DEPENDENTS" - ;; KLUDGE: See the User Manual - ;; "METAOBJECT" - "METHOD-FUNCTION" - "METHOD-GENERIC-FUNCTION" - "METHOD-LAMBDA-LIST" - "METHOD-SPECIALIZERS" - "ACCESSOR-METHOD-SLOT-DEFINITION" - "READER-METHOD-CLASS" - "REMOVE-DEPENDENT" - "REMOVE-DIRECT-METHOD" - "REMOVE-DIRECT-SUBCLASS" - "SET-FUNCALLABLE-INSTANCE-FUNCTION" - "SLOT-BOUNDP-USING-CLASS" - "SLOT-DEFINITION" - "SLOT-DEFINITION-ALLOCATION" - "SLOT-DEFINITION-INITARGS" - "SLOT-DEFINITION-INITFORM" - "SLOT-DEFINITION-INITFUNCTION" - "SLOT-DEFINITION-LOCATION" - "SLOT-DEFINITION-NAME" - "SLOT-DEFINITION-READERS" - "SLOT-DEFINITION-WRITERS" - "SLOT-DEFINITION-TYPE" - "SLOT-MAKUNBOUND-USING-CLASS" - "SLOT-VALUE-USING-CLASS" - "SPECIALIZER" - "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" - "SPECIALIZER-DIRECT-METHODS" - "STANDARD-ACCESSOR-METHOD" - "STANDARD-DIRECT-SLOT-DEFINITION" - "STANDARD-EFFECTIVE-SLOT-DEFINITION" - "STANDARD-INSTANCE-ACCESS" - "STANDARD-READER-METHOD" - "STANDARD-SLOT-DEFINITION" - "STANDARD-WRITER-METHOD" - "UPDATE-DEPENDENT" - "VALIDATE-SUPERCLASS" - "WRITER-METHOD-CLASS")) + "ADD-DIRECT-METHOD" + "ADD-DIRECT-SUBCLASS" + "CLASS-DEFAULT-INITARGS" + "CLASS-DIRECT-DEFAULT-INITARGS" + "CLASS-DIRECT-SLOTS" + "CLASS-DIRECT-SUBCLASSES" + "CLASS-DIRECT-SUPERCLASSES" + "CLASS-FINALIZED-P" + "CLASS-PRECEDENCE-LIST" + "CLASS-PROTOTYPE" + "CLASS-SLOTS" + "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" + "COMPUTE-CLASS-PRECEDENCE-LIST" + "COMPUTE-DEFAULT-INITARGS" + "COMPUTE-DISCRIMINATING-FUNCTION" + "COMPUTE-EFFECTIVE-METHOD" + "COMPUTE-EFFECTIVE-SLOT-DEFINITION" + "COMPUTE-SLOTS" + "DIRECT-SLOT-DEFINITION" + "DIRECT-SLOT-DEFINITION-CLASS" + "EFFECTIVE-SLOT-DEFINITION" + "EFFECTIVE-SLOT-DEFINITION-CLASS" + "ENSURE-CLASS" + "ENSURE-CLASS-USING-CLASS" + "ENSURE-GENERIC-FUNCTION-USING-CLASS" + "EQL-SPECIALIZER" + "EQL-SPECIALIZER-OBJECT" + "EXTRACT-LAMBDA-LIST" + "EXTRACT-SPECIALIZER-NAMES" + "FINALIZE-INHERITANCE" + "FIND-METHOD-COMBINATION" + "FORWARD-REFERENCED-CLASS" + "FUNCALLABLE-STANDARD-CLASS" + "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" + "FUNCALLABLE-STANDARD-OBJECT" + "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" + "GENERIC-FUNCTION-DECLARATIONS" + "GENERIC-FUNCTION-LAMBDA-LIST" + "GENERIC-FUNCTION-METHOD-CLASS" + "GENERIC-FUNCTION-METHOD-COMBINATION" + "GENERIC-FUNCTION-METHODS" + "GENERIC-FUNCTION-NAME" + "INTERN-EQL-SPECIALIZER" + "MAKE-METHOD-LAMBDA" + "MAP-DEPENDENTS" + ;; KLUDGE: See the User Manual + ;; "METAOBJECT" + "METHOD-FUNCTION" + "METHOD-GENERIC-FUNCTION" + "METHOD-LAMBDA-LIST" + "METHOD-SPECIALIZERS" + "ACCESSOR-METHOD-SLOT-DEFINITION" + "READER-METHOD-CLASS" + "REMOVE-DEPENDENT" + "REMOVE-DIRECT-METHOD" + "REMOVE-DIRECT-SUBCLASS" + "SET-FUNCALLABLE-INSTANCE-FUNCTION" + "SLOT-BOUNDP-USING-CLASS" + "SLOT-DEFINITION" + "SLOT-DEFINITION-ALLOCATION" + "SLOT-DEFINITION-INITARGS" + "SLOT-DEFINITION-INITFORM" + "SLOT-DEFINITION-INITFUNCTION" + "SLOT-DEFINITION-LOCATION" + "SLOT-DEFINITION-NAME" + "SLOT-DEFINITION-READERS" + "SLOT-DEFINITION-WRITERS" + "SLOT-DEFINITION-TYPE" + "SLOT-MAKUNBOUND-USING-CLASS" + "SLOT-VALUE-USING-CLASS" + "SPECIALIZER" + "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" + "SPECIALIZER-DIRECT-METHODS" + "STANDARD-ACCESSOR-METHOD" + "STANDARD-DIRECT-SLOT-DEFINITION" + "STANDARD-EFFECTIVE-SLOT-DEFINITION" + "STANDARD-INSTANCE-ACCESS" + "STANDARD-READER-METHOD" + "STANDARD-SLOT-DEFINITION" + "STANDARD-WRITER-METHOD" + "UPDATE-DEPENDENT" + "VALIDATE-SUPERCLASS" + "WRITER-METHOD-CLASS")) #s(sb-cold:package-data :name "SB!PCL" @@ -1723,103 +1723,103 @@ package is deprecated in favour of SB-MOP." ;; away, as they're superseded by the use of SB-MOP as the ;; publically-accessible package. :reexport ( ;; CL symbols - "ADD-METHOD" - "ALLOCATE-INSTANCE" - "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS" - "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE" - "METHOD-QUALIFIERS" "REMOVE-METHOD" - ;; MOP symbols - "ADD-DEPENDENT" - "ADD-DIRECT-METHOD" - "ADD-DIRECT-SUBCLASS" - "CLASS-DEFAULT-INITARGS" - "CLASS-DIRECT-DEFAULT-INITARGS" - "CLASS-DIRECT-SLOTS" - "CLASS-DIRECT-SUBCLASSES" - "CLASS-DIRECT-SUPERCLASSES" - "CLASS-FINALIZED-P" - "CLASS-PRECEDENCE-LIST" - "CLASS-PROTOTYPE" - "CLASS-SLOTS" - "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" - "COMPUTE-CLASS-PRECEDENCE-LIST" - "COMPUTE-DEFAULT-INITARGS" - "COMPUTE-DISCRIMINATING-FUNCTION" - "COMPUTE-EFFECTIVE-METHOD" - "COMPUTE-EFFECTIVE-SLOT-DEFINITION" - "COMPUTE-SLOTS" - "DIRECT-SLOT-DEFINITION" - "DIRECT-SLOT-DEFINITION-CLASS" - "EFFECTIVE-SLOT-DEFINITION" - "EFFECTIVE-SLOT-DEFINITION-CLASS" - "ENSURE-CLASS" - "ENSURE-CLASS-USING-CLASS" - "ENSURE-GENERIC-FUNCTION-USING-CLASS" - "EQL-SPECIALIZER" - "EQL-SPECIALIZER-OBJECT" - "EXTRACT-LAMBDA-LIST" - "EXTRACT-SPECIALIZER-NAMES" - "FINALIZE-INHERITANCE" - "FIND-METHOD-COMBINATION" - "FORWARD-REFERENCED-CLASS" - "FUNCALLABLE-STANDARD-CLASS" - "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" - "FUNCALLABLE-STANDARD-OBJECT" - "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" - "GENERIC-FUNCTION-DECLARATIONS" - "GENERIC-FUNCTION-LAMBDA-LIST" - "GENERIC-FUNCTION-METHOD-CLASS" - "GENERIC-FUNCTION-METHOD-COMBINATION" - "GENERIC-FUNCTION-METHODS" - "GENERIC-FUNCTION-NAME" - "INTERN-EQL-SPECIALIZER" - "MAKE-METHOD-LAMBDA" - "MAP-DEPENDENTS" - "METHOD-FUNCTION" - "METHOD-GENERIC-FUNCTION" - "METHOD-LAMBDA-LIST" - "METHOD-SPECIALIZERS" - "ACCESSOR-METHOD-SLOT-DEFINITION" - "READER-METHOD-CLASS" - "REMOVE-DEPENDENT" - "REMOVE-DIRECT-METHOD" - "REMOVE-DIRECT-SUBCLASS" - "SET-FUNCALLABLE-INSTANCE-FUNCTION" - "SLOT-BOUNDP-USING-CLASS" - "SLOT-DEFINITION" - "SLOT-DEFINITION-ALLOCATION" - "SLOT-DEFINITION-INITARGS" - "SLOT-DEFINITION-INITFORM" - "SLOT-DEFINITION-INITFUNCTION" - "SLOT-DEFINITION-LOCATION" - "SLOT-DEFINITION-NAME" - "SLOT-DEFINITION-READERS" - "SLOT-DEFINITION-WRITERS" - "SLOT-DEFINITION-TYPE" - "SLOT-MAKUNBOUND-USING-CLASS" - "SLOT-VALUE-USING-CLASS" - "SPECIALIZER" - "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" - "SPECIALIZER-DIRECT-METHODS" - "STANDARD-ACCESSOR-METHOD" - "STANDARD-DIRECT-SLOT-DEFINITION" - "STANDARD-EFFECTIVE-SLOT-DEFINITION" - "STANDARD-INSTANCE-ACCESS" - "STANDARD-READER-METHOD" - "STANDARD-SLOT-DEFINITION" - "STANDARD-WRITER-METHOD" - "UPDATE-DEPENDENT" - "VALIDATE-SUPERCLASS" - "WRITER-METHOD-CLASS")) + "ADD-METHOD" + "ALLOCATE-INSTANCE" + "CLASS-NAME" "COMPUTE-APPLICABLE-METHODS" + "ENSURE-GENERIC-FUNCTION" "MAKE-INSTANCE" + "METHOD-QUALIFIERS" "REMOVE-METHOD" + ;; MOP symbols + "ADD-DEPENDENT" + "ADD-DIRECT-METHOD" + "ADD-DIRECT-SUBCLASS" + "CLASS-DEFAULT-INITARGS" + "CLASS-DIRECT-DEFAULT-INITARGS" + "CLASS-DIRECT-SLOTS" + "CLASS-DIRECT-SUBCLASSES" + "CLASS-DIRECT-SUPERCLASSES" + "CLASS-FINALIZED-P" + "CLASS-PRECEDENCE-LIST" + "CLASS-PROTOTYPE" + "CLASS-SLOTS" + "COMPUTE-APPLICABLE-METHODS-USING-CLASSES" + "COMPUTE-CLASS-PRECEDENCE-LIST" + "COMPUTE-DEFAULT-INITARGS" + "COMPUTE-DISCRIMINATING-FUNCTION" + "COMPUTE-EFFECTIVE-METHOD" + "COMPUTE-EFFECTIVE-SLOT-DEFINITION" + "COMPUTE-SLOTS" + "DIRECT-SLOT-DEFINITION" + "DIRECT-SLOT-DEFINITION-CLASS" + "EFFECTIVE-SLOT-DEFINITION" + "EFFECTIVE-SLOT-DEFINITION-CLASS" + "ENSURE-CLASS" + "ENSURE-CLASS-USING-CLASS" + "ENSURE-GENERIC-FUNCTION-USING-CLASS" + "EQL-SPECIALIZER" + "EQL-SPECIALIZER-OBJECT" + "EXTRACT-LAMBDA-LIST" + "EXTRACT-SPECIALIZER-NAMES" + "FINALIZE-INHERITANCE" + "FIND-METHOD-COMBINATION" + "FORWARD-REFERENCED-CLASS" + "FUNCALLABLE-STANDARD-CLASS" + "FUNCALLABLE-STANDARD-INSTANCE-ACCESS" + "FUNCALLABLE-STANDARD-OBJECT" + "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER" + "GENERIC-FUNCTION-DECLARATIONS" + "GENERIC-FUNCTION-LAMBDA-LIST" + "GENERIC-FUNCTION-METHOD-CLASS" + "GENERIC-FUNCTION-METHOD-COMBINATION" + "GENERIC-FUNCTION-METHODS" + "GENERIC-FUNCTION-NAME" + "INTERN-EQL-SPECIALIZER" + "MAKE-METHOD-LAMBDA" + "MAP-DEPENDENTS" + "METHOD-FUNCTION" + "METHOD-GENERIC-FUNCTION" + "METHOD-LAMBDA-LIST" + "METHOD-SPECIALIZERS" + "ACCESSOR-METHOD-SLOT-DEFINITION" + "READER-METHOD-CLASS" + "REMOVE-DEPENDENT" + "REMOVE-DIRECT-METHOD" + "REMOVE-DIRECT-SUBCLASS" + "SET-FUNCALLABLE-INSTANCE-FUNCTION" + "SLOT-BOUNDP-USING-CLASS" + "SLOT-DEFINITION" + "SLOT-DEFINITION-ALLOCATION" + "SLOT-DEFINITION-INITARGS" + "SLOT-DEFINITION-INITFORM" + "SLOT-DEFINITION-INITFUNCTION" + "SLOT-DEFINITION-LOCATION" + "SLOT-DEFINITION-NAME" + "SLOT-DEFINITION-READERS" + "SLOT-DEFINITION-WRITERS" + "SLOT-DEFINITION-TYPE" + "SLOT-MAKUNBOUND-USING-CLASS" + "SLOT-VALUE-USING-CLASS" + "SPECIALIZER" + "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS" + "SPECIALIZER-DIRECT-METHODS" + "STANDARD-ACCESSOR-METHOD" + "STANDARD-DIRECT-SLOT-DEFINITION" + "STANDARD-EFFECTIVE-SLOT-DEFINITION" + "STANDARD-INSTANCE-ACCESS" + "STANDARD-READER-METHOD" + "STANDARD-SLOT-DEFINITION" + "STANDARD-WRITER-METHOD" + "UPDATE-DEPENDENT" + "VALIDATE-SUPERCLASS" + "WRITER-METHOD-CLASS")) #s(sb-cold:package-data :name "SB!PRETTY" :doc "private: implementation of pretty-printing" :use ("CL" "SB!EXT" "SB!INT" "SB!KERNEL") :export ("OUTPUT-PRETTY-OBJECT" - "PRETTY-STREAM" "PRETTY-STREAM-P" - "PPRINT-DISPATCH-TABLE" - "!PPRINT-COLD-INIT")) + "PRETTY-STREAM" "PRETTY-STREAM-P" + "PPRINT-DISPATCH-TABLE" + "!PPRINT-COLD-INIT")) #s(sb-cold:package-data :name "SB!PROFILE" @@ -1839,80 +1839,80 @@ 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 - ;; is for OS-dependent stuff. %PRIMITIVE should probably be in - ;; SB!KERNEL.) - "%PRIMITIVE" - "%STANDARD-CHAR-P" + "%BIND-ALIGNED-SAP" + ;; 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*" "*LINKAGE-INFO*" - "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*" + "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*" "*RUNTIME-DLHANDLE*" "*SHARED-OBJECTS*" "*STATIC-FOREIGN-SYMBOLS*" - "*STDERR*" "*STDIN*" - "*STDOUT*" "*TASK-DATA*" - "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*" - "ADD-FD-HANDLER" - "ALLOCATE-SYSTEM-MEMORY" - "BEEP" "BITS" - "BYTES" "C-PROCEDURE" + "*STDERR*" "*STDIN*" + "*STDOUT*" "*TASK-DATA*" + "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*" + "ADD-FD-HANDLER" + "ALLOCATE-SYSTEM-MEMORY" + "BEEP" "BITS" + "BYTES" "C-PROCEDURE" "CLOSE-SHARED-OBJECTS" - "COMPILER-VERSION" - "DEALLOCATE-SYSTEM-MEMORY" - "DEFAULT-INTERRUPT" - "DEPORT-BOOLEAN" "DEPORT-INTEGER" + "COMPILER-VERSION" + "DEALLOCATE-SYSTEM-MEMORY" + "DEFAULT-INTERRUPT" + "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DYNAMIC-FOREIGN-SYMBOLS-P" "DLOPEN-OR-LOSE" - "FROB-DO-BODY" - "ENABLE-INTERRUPT" - "ENUMERATION" - "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" - "EXTERN-ALIEN-NAME" - "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" - "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" - "FIND-FOREIGN-SYMBOL-ADDRESS" + "FROB-DO-BODY" + "ENABLE-INTERRUPT" + "ENUMERATION" + "ENSURE-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" + "EXTERN-ALIEN-NAME" + "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" + "FIND-DYNAMIC-FOREIGN-SYMBOL-ADDRESS" + "FIND-FOREIGN-SYMBOL-ADDRESS" "FIND-FOREIGN-SYMBOL-IN-TABLE" - "FOREIGN-SYMBOL-SAP" + "FOREIGN-SYMBOL-SAP" "FOREIGN-SYMBOL-ADDRESS" "FOREIGN-SYMBOL-DATAREF-SAP" - "GET-PAGE-SIZE" "GET-SYSTEM-INFO" - "IGNORE-INTERRUPT" - "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" - "LIST-DYNAMIC-FOREIGN-SYMBOLS" - "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE" - "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" - "OBJECT-SET-OPERATION" - "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES" - "POINTER" "POINTER<" "POINTER>" - "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE" - "REMOVE-FD-HANDLER" + "GET-PAGE-SIZE" "GET-SYSTEM-INFO" + "IGNORE-INTERRUPT" + "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT" + "LIST-DYNAMIC-FOREIGN-SYMBOLS" + "MACRO" "MAKE-FD-STREAM" "MAKE-OBJECT-SET" "MEMMOVE" + "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" + "OBJECT-SET-OPERATION" + "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES" + "POINTER" "POINTER<" "POINTER>" + "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE" + "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-SAP" "SAP-REF-SINGLE" - "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>=" - "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS" - "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" - "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" - "UNDEFINED-FOREIGN-SYMBOLS-P" + "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-SAP" "SAP-REF-SINGLE" + "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>=" + "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS" + "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" + "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" + "UNDEFINED-FOREIGN-SYMBOLS-P" "UPDATE-LINKAGE-TABLE" "VECTOR-SAP" - "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" - "WITH-FD-HANDLER" - "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING" - "WITHOUT-INTERRUPTS" "WORDS" - "ALLOCATE-SYSTEM-MEMORY-AT")) + "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" + "WITH-FD-HANDLER" + "WITH-INTERRUPTS" "WITH-PINNED-OBJECTS" "WITHOUT-GCING" + "WITHOUT-INTERRUPTS" "WORDS" + "ALLOCATE-SYSTEM-MEMORY-AT")) #s(sb-cold:package-data :name "SB!UNIX" @@ -1926,125 +1926,125 @@ 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") - :export ( ;; wrappers around Unix stuff to give just what Lisp needs + :export ( ;; wrappers around Unix stuff to give just what Lisp needs "NANOSLEEP" - "UID-USERNAME" - "UID-HOMEDIR" + "UID-USERNAME" + "UID-HOMEDIR" "WITH-RESTARTED-SYSCALL" - ;; stuff with a one-to-one mapping to Unix constructs - "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT" - "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" "F-GETFD" "F-GETFL" - "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC" - "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T" - "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" - "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" - "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX" - "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC" - "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" - "SG-OSPEED" "SGTTYB" "SIZE-T" "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" - "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" - "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK" - - ;; signals - "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE" - "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL" - "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS" - "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG" - "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH" - "SIGXCPU" "SIGXFSZ" - - ;; errors - "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT" - "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED" - "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM" - "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN" - "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO" - "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK" - "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET" - "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT" - "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK" - "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO" - "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM" - "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE" - "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE" - "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY" - "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV" - - "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT" - "UNIX-FILE-KIND" "UNIX-KILL" "CODESET" - "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS" - "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE" - "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG" - "TIOCSIGSEND" - "C-IFLAG" "C-LFLAG" "C-OFLAG" - "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS" - "O_NDELAY" "O_NOCTTY" - "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH" - "TCIOFLUSH" "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK" - "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL" - "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK" - "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL" - "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG" - "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK" - "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL" - "TTY-ECHOPRT" "TTY-ECHOKE" "TTY-DEFECHO" "TTY-FLUSHO" - "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD" - "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR" - "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD" - "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME" - "VSUSP" "VSTART" "VSTOP" "VDSUSP" - #!+(or svr4 bsd linux) "O_NDELAY" - #!+(or svr4 linux) - ("EADDRINUSE" - "EADDRNOTAVAIL" "EADV" - "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD" - "EBADMSG" "EBADR" "EBADRQC" - "EBADSLT" "EBFONT" #!+svr4 "ECANCELED" - "ECHRNG" "ECOMM" "ECONNABORTED" - "ECONNREFUSED" "ECONNRESET" "EDEADLK" - "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT" - #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH" - "EIDRM" "EILSEQ" "EINPROGRESS" - "EISCONN" #!+linux "EISNAM" "EL2HLT" - "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC" - "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN" - "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" - "ENAMETOOLONG" #!+linux "ENAVAIL" - "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO" - "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" - "ENOLINK" "ENOMSG" "ENONET" "ENOPKG" - "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" - "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM" - "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ" - "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" - "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE" - "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO" - "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT" - "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" - "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN" - "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL"))) + ;; stuff with a one-to-one mapping to Unix constructs + "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN" "DEV-T" "DIRECT" + "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD" "F-GETFD" "F-GETFL" + "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC" + "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T" + "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" + "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" + "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX" + "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC" + "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" + "SG-OSPEED" "SGTTYB" "SIZE-T" "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" + "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" + "WS-YPIXEL" "WNOHANG" "WSTOPPED" "WUNTRACED" "W_OK" "X_OK" + + ;; signals + "SIGALRM" "SIGBUS" "SIGCHLD" "SIGCONT" "SIGEMT" "SIGFPE" + "SIGHUP" "SIGILL" "SIGINT" "SIGIO" "SIGIOT" "SIGKILL" + "SIGPIPE" "SIGPROF" "SIGQUIT" "SIGSEGV" "SIGSTOP" "SIGSYS" + "SIGTERM" "SIGTRAP" "SIGTSTP" "SIGTTIN" "SIGTTOU" "SIGURG" + "SIGUSR1" "SIGUSR2" "SIGVTALRM" "SIGWAITING" "SIGWINCH" + "SIGXCPU" "SIGXFSZ" + + ;; errors + "E2BIG" "EADDRINUSE" "EADDRNOTAVAIL" "EAFNOSUPPORT" + "EAGAIN" "EALREADY" "EBADF" "EBUSY" "ECHILD" "ECONNABORTED" + "ECONNREFUSED" "ECONNRESET" "EDEADLK" "EDESTADDRREQ" "EDOM" + "EDQUOT" "EEXIST" "EFAULT" "EFBIG" "EHOSTDOWN" + "EHOSTUNREACH" "EINPROGRESS" "EINTR" "EINVAL" "EIO" + "EISCONN" "EISDIR" "ELOCAL" "ELOOP" "EMFILE" "EMLINK" + "EMSGSIZE" "ENAMETOOLONG" "ENETDOWN" "ENETRESET" + "ENETUNREACH" "ENFILE" "ENOBUFS" "ENODEV" "ENOENT" + "ENOEXEC" "ENOMEM" "ENOPROTOOPT" "ENOSPC" "ENOTBLK" + "ENOTCONN" "ENOTEMPTY" "ENOTSOCK" "ENOTTY" "ENXIO" + "EOPNOTSUPP" "EPERM" "EPFNOSUPPORT" "EPIPE" "EPROCLIM" + "EPROTONOSUPPORT" "EPROTOTYPE" "ERANGE" "EREMOTE" + "ERESTART" "EROFS" "ESHUTDOWN" "ESOCKTNOSUPPORT" "ESPIPE" + "ESRCH" "ESUCCESS" "ETIMEDOUT" "ETOOMANYREFS" "ETXTBSY" + "EUSERS" "EVICEERR" "EVICEOP" "EWOULDBLOCK" "EXDEV" + + "FD-ISSET" "FD-SET" "LTCHARS" "UNIX-FAST-SELECT" + "UNIX-FILE-KIND" "UNIX-KILL" "CODESET" + "TCSETPGRP" "FD-ZERO" "FD-CLR" "CHECK" "UNIX-RESOLVE-LINKS" + "FD-SETSIZE" "TCGETPGRP" "UNIX-FAST-GETRUSAGE" + "UNIX-SIMPLIFY-PATHNAME" "UNIX-KILLPG" + "TIOCSIGSEND" + "C-IFLAG" "C-LFLAG" "C-OFLAG" + "C-CFLAG" "TCSAFLUSH" "C-CC" "SIOCSPGRP" "TERMIOS" + "O_NDELAY" "O_NOCTTY" + "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH" + "TCIOFLUSH" "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK" + "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL" + "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK" + "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL" + "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG" + "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK" + "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL" + "TTY-ECHOPRT" "TTY-ECHOKE" "TTY-DEFECHO" "TTY-FLUSHO" + "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD" + "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR" + "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD" + "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME" + "VSUSP" "VSTART" "VSTOP" "VDSUSP" + #!+(or svr4 bsd linux) "O_NDELAY" + #!+(or svr4 linux) + ("EADDRINUSE" + "EADDRNOTAVAIL" "EADV" + "EAFNOSUPPORT" "EALREADY" "EBADE" "EBADFD" + "EBADMSG" "EBADR" "EBADRQC" + "EBADSLT" "EBFONT" #!+svr4 "ECANCELED" + "ECHRNG" "ECOMM" "ECONNABORTED" + "ECONNREFUSED" "ECONNRESET" "EDEADLK" + "EDEADLOCK" "EDESTADDRREQ" #!+linux "EDOTDOT" + #!+linux "EDQUOT" "EHOSTDOWN" "EHOSTUNREACH" + "EIDRM" "EILSEQ" "EINPROGRESS" + "EISCONN" #!+linux "EISNAM" "EL2HLT" + "EL2NSYNC" "EL3HLT" "EL3RST" "ELIBACC" + "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN" + "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" + "ENAMETOOLONG" #!+linux "ENAVAIL" + "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO" + "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" + "ENOLINK" "ENOMSG" "ENONET" "ENOPKG" + "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" + "ENOTCONN" "ENOTEMPTY" #!+linux "ENOTNAM" + "ENOTSOCK" #!+svr4 "ENOTSUP" "ENOTUNIQ" + "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" + "EPROTO" "EPROTONOSUPPORT" "EPROTOTYPE" + "EREMCHG" "EREMOTE" #!+linux "EREMOTEIO" + "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT" + "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" + "ETIMEDOUT" "ETOOMANYREFS" #!+linux "EUCLEAN" + "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL"))) #s(sb-cold:package-data :name "SB!VM" @@ -2052,251 +2052,251 @@ no guarantees of interface stability." "internal: the default place to hide information about the hardware and data 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") + "SB!EXT" "SB!FASL" "SB!INT" "SB!KERNEL" "SB!SYS" "SB!UNIX") :export ("*ASSEMBLY-UNIT-LENGTH*" - "*PRIMITIVE-OBJECTS*" - "AFTER-BREAKPOINT-TRAP" - "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET" - "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT" - "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT" - "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG" - "CHARACTER-REG-SC-NUMBER" - "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG" - "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE" - "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP" - "N-BYTE-BITS" "BYTE-REG-SC-NUMBER" - "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-TAG-SLOT" "CERROR-TRAP" - "CLOSURE-FUN-SLOT" - "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET" - "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET" - "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT" - "CODE-HEADER-WIDETAG" - "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-WIDETAG" - "COMPLEX-BIT-VECTOR-WIDETAG" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT" - "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT" - "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG" - "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER" - "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT" - #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT" - #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT" - #!+long-float "COMPLEX-LONG-FLOAT-SIZE" - #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG" - #!+long-float "COMPLEX-LONG-REG-SC-NUMBER" - #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER" - "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-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" - #!+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG" + "*PRIMITIVE-OBJECTS*" + "AFTER-BREAKPOINT-TRAP" + "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET" + "ARRAY-DISPLACED-P-SLOT" "ARRAY-DISPLACEMENT-SLOT" + "ARRAY-ELEMENTS-SLOT" "ARRAY-FILL-POINTER-P-SLOT" + "ARRAY-FILL-POINTER-SLOT" "ATOMIC-FLAG" + "CHARACTER-REG-SC-NUMBER" + "CHARACTER-STACK-SC-NUMBER" "CHARACTER-WIDETAG" + "BIGNUM-DIGITS-OFFSET" "BIGNUM-WIDETAG" "BINDING-SIZE" + "BINDING-SYMBOL-SLOT" "BINDING-VALUE-SLOT" "BREAKPOINT-TRAP" + "N-BYTE-BITS" "BYTE-REG-SC-NUMBER" + "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-TAG-SLOT" "CERROR-TRAP" + "CLOSURE-FUN-SLOT" + "CLOSURE-HEADER-WIDETAG" "CLOSURE-INFO-OFFSET" + "CODE-CODE-SIZE-SLOT" "CODE-CONSTANTS-OFFSET" + "CODE-DEBUG-INFO-SLOT" "CODE-ENTRY-POINTS-SLOT" + "CODE-HEADER-WIDETAG" + "CODE-TRACE-TABLE-OFFSET-SLOT" "COMPLEX-ARRAY-WIDETAG" + "COMPLEX-BIT-VECTOR-WIDETAG" "COMPLEX-DOUBLE-FLOAT-FILLER-SLOT" + "COMPLEX-DOUBLE-FLOAT-IMAG-SLOT" "COMPLEX-DOUBLE-FLOAT-REAL-SLOT" + "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG" + "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER" + "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT" + #!+long-float "COMPLEX-LONG-FLOAT-IMAG-SLOT" + #!+long-float "COMPLEX-LONG-FLOAT-REAL-SLOT" + #!+long-float "COMPLEX-LONG-FLOAT-SIZE" + #!+long-float "COMPLEX-LONG-FLOAT-WIDETAG" + #!+long-float "COMPLEX-LONG-REG-SC-NUMBER" + #!+long-float "COMPLEX-LONG-STACK-SC-NUMBER" + "COMPLEX-SINGLE-FLOAT-IMAG-SLOT" "COMPLEX-SINGLE-FLOAT-REAL-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" + #!+sb-unicode "COMPLEX-CHARACTER-STRING-WIDETAG" "COMPLEX-WIDETAG" - "COMPLEX-VECTOR-NIL-WIDETAG" - "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT" - "CONS-SIZE" "CONSTANT-SC-NUMBER" - "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER" - "CONTEXT-PC" "CONTEXT-REGISTER" - "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS" - "*CURRENT-CATCH-BLOCK*" - "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT" - "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-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" - "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-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-FUN-SLOT" - "FUNCALLABLE-INSTANCE-HEADER-WIDETAG" - "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" - "FUNCALLABLE-INSTANCE-LAYOUT-SLOT" - "FUNCALLABLE-INSTANCE-LEXENV-SLOT" - "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER" - "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER" - "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*" - "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG" - "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE" - "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS" - "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG" - ;; FIXME: Possibly these other parameters (see - ;; compiler/{x86,sparc}/parms.lisp) should be defined - ;; conditionally on #!+LONG-FLOAT) - "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE" - "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX" - "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE" - #!+long-float "LONG-FLOAT-SIZE" - "LONG-FLOAT-TRAPPING-NAN-BIT" - #!+long-float "LONG-FLOAT-WIDETAG" - #!+long-float "LONG-FLOAT-VALUE-SLOT" - #!+long-float "LONG-REG-SC-NUMBER" - #!+long-float "LONG-STACK-SC-NUMBER" - "LOWTAG-LIMIT" "LOWTAG-MASK" - "LRA-SAVE-OFFSET" - "MEMORY-USAGE" "MOST-POSITIVE-COST" - "N-LOWTAG-BITS" - "N-FIXNUM-TAG-BITS" - "N-POSITIVE-FIXNUM-BITS" - "NEGATIVE-IMMEDIATE-SC-NUMBER" - "NFP-SAVE-OFFSET" - "NON-DESCRIPTOR-REG-SC-NUMBER" - "NULL-SC-NUMBER" - "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP" - "OCFP-SAVE-OFFSET" - "ODD-FIXNUM-LOWTAG" - "OFFSET-STATIC-SYMBOL" - "OTHER-IMMEDIATE-0-LOWTAG" - "OTHER-IMMEDIATE-1-LOWTAG" - ;; FIXME: 32/64-bit issues - "OTHER-IMMEDIATE-2-LOWTAG" - "OTHER-IMMEDIATE-3-LOWTAG" - "OTHER-POINTER-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" - "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-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" - "*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" - "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG" - #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG" - "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG" - "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG" - #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG" - "SIMPLE-ARRAY-NIL-WIDETAG" - "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG" - "SIMPLE-ARRAY-WIDETAG" - "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-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-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" - "SIMPLE-BASE-STRING-WIDETAG" - #!+sb-unicode "SIMPLE-CHARACTER-STRING-WIDETAG" - "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS" - "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE" - "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX" - "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE" - "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT" - "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT" - "SINGLE-INT-CARG-REG-SC-NUMBER" - "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER" - "SINGLE-STEP-BREAKPOINT-TRAP" - "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS" - "SLOT-LENGTH" "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" - "*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 "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" + "COMPLEX-VECTOR-NIL-WIDETAG" + "COMPLEX-VECTOR-WIDETAG" "CONS-CAR-SLOT" "CONS-CDR-SLOT" + "CONS-SIZE" "CONSTANT-SC-NUMBER" + "CONTEXT-FLOATING-POINT-MODES" "CONTEXT-FLOAT-REGISTER" + "CONTEXT-PC" "CONTEXT-REGISTER" + "CONTROL-STACK-SC-NUMBER" "COUNT-NO-OPS" + "*CURRENT-CATCH-BLOCK*" + "CURRENT-FLOAT-TRAP" "DEFINE-FOR-EACH-PRIMITIVE-OBJECT" + "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-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" + "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-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-FUN-SLOT" + "FUNCALLABLE-INSTANCE-HEADER-WIDETAG" + "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" + "FUNCALLABLE-INSTANCE-LAYOUT-SLOT" + "FUNCALLABLE-INSTANCE-LEXENV-SLOT" + "GENESIS" "HALT-TRAP" "IGNORE-ME-SC-NUMBER" + "IMMEDIATE-CHARACTER-SC-NUMBER" "IMMEDIATE-SAP-SC-NUMBER" + "IMMEDIATE-SC-NUMBER" "*INITIAL-DYNAMIC-SPACE-FREE-POINTER*" + "INSTANCE-HEADER-WIDETAG" "INSTANCE-POINTER-LOWTAG" + "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE" + "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS" + "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG" + ;; FIXME: Possibly these other parameters (see + ;; compiler/{x86,sparc}/parms.lisp) should be defined + ;; conditionally on #!+LONG-FLOAT) + "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE" + "LONG-FLOAT-HIDDEN-BIT" "LONG-FLOAT-NORMAL-EXPONENT-MAX" + "LONG-FLOAT-NORMAL-EXPONENT-MIN" "LONG-FLOAT-SIGNIFICAND-BYTE" + #!+long-float "LONG-FLOAT-SIZE" + "LONG-FLOAT-TRAPPING-NAN-BIT" + #!+long-float "LONG-FLOAT-WIDETAG" + #!+long-float "LONG-FLOAT-VALUE-SLOT" + #!+long-float "LONG-REG-SC-NUMBER" + #!+long-float "LONG-STACK-SC-NUMBER" + "LOWTAG-LIMIT" "LOWTAG-MASK" + "LRA-SAVE-OFFSET" + "MEMORY-USAGE" "MOST-POSITIVE-COST" + "N-LOWTAG-BITS" + "N-FIXNUM-TAG-BITS" + "N-POSITIVE-FIXNUM-BITS" + "NEGATIVE-IMMEDIATE-SC-NUMBER" + "NFP-SAVE-OFFSET" + "NON-DESCRIPTOR-REG-SC-NUMBER" + "NULL-SC-NUMBER" + "OBJECT-NOT-LIST-TRAP" "OBJECT-NOT-INSTANCE-TRAP" + "OCFP-SAVE-OFFSET" + "ODD-FIXNUM-LOWTAG" + "OFFSET-STATIC-SYMBOL" + "OTHER-IMMEDIATE-0-LOWTAG" + "OTHER-IMMEDIATE-1-LOWTAG" + ;; FIXME: 32/64-bit issues + "OTHER-IMMEDIATE-2-LOWTAG" + "OTHER-IMMEDIATE-3-LOWTAG" + "OTHER-POINTER-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" + "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-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" + "*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" + "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG" + #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG" + "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG" + "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG" + #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG" + "SIMPLE-ARRAY-NIL-WIDETAG" + "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG" + "SIMPLE-ARRAY-WIDETAG" + "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-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-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" + "SIMPLE-BASE-STRING-WIDETAG" + #!+sb-unicode "SIMPLE-CHARACTER-STRING-WIDETAG" + "SIMPLE-VECTOR-WIDETAG" "SINGLE-FLOAT-BIAS" + "SINGLE-FLOAT-DIGITS" "SINGLE-FLOAT-EXPONENT-BYTE" + "SINGLE-FLOAT-HIDDEN-BIT" "SINGLE-FLOAT-NORMAL-EXPONENT-MAX" + "SINGLE-FLOAT-NORMAL-EXPONENT-MIN" "SINGLE-FLOAT-SIGNIFICAND-BYTE" + "SINGLE-FLOAT-SIZE" "SINGLE-FLOAT-TRAPPING-NAN-BIT" + "SINGLE-FLOAT-WIDETAG" "SINGLE-FLOAT-VALUE-SLOT" + "SINGLE-INT-CARG-REG-SC-NUMBER" + "SINGLE-REG-SC-NUMBER" "SINGLE-STACK-SC-NUMBER" + "SINGLE-STEP-BREAKPOINT-TRAP" + "SINGLE-VALUE-RETURN-BYTE-OFFSET" "SLOT-DOCS" + "SLOT-LENGTH" "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" + "*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 "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" - "TRACE-TABLE-CALL-SITE" - "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE" - "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK" - "UNBOUND-MARKER-WIDETAG" - "UNSIGNED-IMMEDIATE-SC-NUMBER" - "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER" - "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT" - "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-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" - "WORD-REG-SC-NUMBER" "WORD-SHIFT" - "ZERO-SC-NUMBER")) + "TRACE-TABLE-CALL-SITE" + "TRACE-TABLE-FUN-EPILOGUE" "TRACE-TABLE-FUN-PROLOGUE" + "TRACE-TABLE-NORMAL" "N-WIDETAG-BITS" "WIDETAG-MASK" + "UNBOUND-MARKER-WIDETAG" + "UNSIGNED-IMMEDIATE-SC-NUMBER" + "UNSIGNED-REG-SC-NUMBER" "UNSIGNED-STACK-SC-NUMBER" + "UNWIND-BLOCK-CURRENT-CODE-SLOT" "UNWIND-BLOCK-CURRENT-CONT-SLOT" + "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-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" + "WORD-REG-SC-NUMBER" "WORD-SHIFT" + "ZERO-SC-NUMBER")) #s(sb-cold:package-data :name "SB!WALKER" :doc "internal: a code walker used by PCL" :use ("CL" "SB!INT" "SB!EXT") :export ("DEFINE-WALKER-TEMPLATE" - "WALK-FORM" - "*WALK-FORM-EXPAND-MACROS-P*" - "VAR-LEXICAL-P" "VAR-SPECIAL-P" - "VAR-GLOBALLY-SPECIAL-P" - "*VAR-DECLARATIONS*" "VAR-DECLARATION" - - ;; These were exported from the original PCL version of this - ;; package, but aren't used in SBCL. - ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL" - ))) + "WALK-FORM" + "*WALK-FORM-EXPAND-MACROS-P*" + "VAR-LEXICAL-P" "VAR-SPECIAL-P" + "VAR-GLOBALLY-SPECIAL-P" + "*VAR-DECLARATIONS*" "VAR-DECLARATION" + + ;; These were exported from the original PCL version of this + ;; package, but aren't used in SBCL. + ;;"NESTED-WALK-FORM" "MACROEXPAND-ALL" + ))) diff --git a/tools-for-build/determine-endianness.c b/tools-for-build/determine-endianness.c index e1001c4..8cbf594 100644 --- a/tools-for-build/determine-endianness.c +++ b/tools-for-build/determine-endianness.c @@ -11,7 +11,7 @@ * While most of SBCL is derived from the CMU CL system, many * utilities for the build process (like this one) were written from * scratch after the fork from CMU CL. - * + * * This software is in the public domain and is provided with * absolutely no warranty. See the COPYING and CREDITS files for * more information. @@ -24,27 +24,27 @@ int main (int argc, char *argv[]) { char *bar = (char *) &foo; switch(*bar) { case ' ': - /* Do nothing */ - break; + /* Do nothing */ + break; case '#': - printf(" :little-endian"); - break; + printf(" :little-endian"); + break; default: - /* FIXME: How do we do sane error processing in Unix? This - program will be called from a script, in a manner somewhat - like: + /* FIXME: How do we do sane error processing in Unix? This + program will be called from a script, in a manner somewhat + like: - tools-for-build/determine-endianness >> $ltf + tools-for-build/determine-endianness >> $ltf but what if we have a too-smart C compiler that actually - gets us down to this branch? I suppose that if we have a C - compiler that is that smart, we're doomed to miscompile the - runtime anyway, so we won't get here. Still, it might be - good to have "set -e" in the various scripts so that we can - exit with an error here and have it be caught by the build - tools. -- CSR, 2002-11-24 - */ - exit(1); + gets us down to this branch? I suppose that if we have a C + compiler that is that smart, we're doomed to miscompile the + runtime anyway, so we won't get here. Still, it might be + good to have "set -e" in the various scripts so that we can + exit with an error here and have it be caught by the build + tools. -- CSR, 2002-11-24 + */ + exit(1); } - exit(0); + exit(0); } diff --git a/tools-for-build/grovel-headers.c b/tools-for-build/grovel-headers.c index cf02e27..3a2b615 100644 --- a/tools-for-build/grovel-headers.c +++ b/tools-for-build/grovel-headers.c @@ -12,7 +12,7 @@ * While most of SBCL is derived from the CMU CL system, many * utilities for the build process (like this one) were written from * scratch after the fork from CMU CL. - * + * * This software is in the public domain and is provided with * absolutely no warranty. See the COPYING and CREDITS files for * more information. @@ -46,7 +46,7 @@ void defconstant(char* lisp_name, long unix_number) { printf("(defconstant %s %ld) ; #x%lx\n", - lisp_name, unix_number, unix_number); + lisp_name, unix_number, unix_number); } void deferrno(char* lisp_name, long unix_number) @@ -64,8 +64,8 @@ main(int argc, char *argv[]) { /* don't need no steenking command line arguments */ if (1 != argc) { - fprintf(stderr, "argh! command line argument(s)\n"); - exit(1); + fprintf(stderr, "argh! command line argument(s)\n"); + exit(1); } /* don't need no steenking hand-editing */ @@ -78,11 +78,11 @@ main(int argc, char *argv[]) printf("(in-package \"SB!ALIEN\")\n\n"); printf (";;;flags for dlopen()\n"); - + defconstant ("rtld-lazy", RTLD_LAZY); defconstant ("rtld-now", RTLD_NOW); defconstant ("rtld-global", RTLD_GLOBAL); - + printf("(in-package \"SB!UNIX\")\n\n"); printf(";;; langinfo\n"); @@ -126,7 +126,7 @@ main(int argc, char *argv[]) defconstant("s-ifblk", S_IFBLK); defconstant("s-ifreg", S_IFREG); printf("\n"); - + defconstant("s-iflnk", S_IFLNK); defconstant("s-ifsock", S_IFSOCK); printf("\n"); @@ -203,7 +203,7 @@ main(int argc, char *argv[]) defsignal("sigstkflt", SIGSTKFLT); #endif defsignal("sigstop", SIGSTOP); -#if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86))) +#if (!((defined LISP_FEATURE_LINUX) && (defined LISP_FEATURE_X86))) defsignal("sigsys", SIGSYS); #endif defsignal("sigterm", SIGTERM); diff --git a/tools-for-build/ldso-stubs.lisp b/tools-for-build/ldso-stubs.lisp index 132c44a..6d33c02 100644 --- a/tools-for-build/ldso-stubs.lisp +++ b/tools-for-build/ldso-stubs.lisp @@ -1,16 +1,16 @@ -;;;; Generate stubs for C-linkage library functions which we need to refer to +;;;; Generate stubs for C-linkage library functions which we need to refer to ;;;; from Lisp. ;;;; ;;;; (But note this is only the Linux version, as per the FIXME ;;;; note in the BSD version in undefineds.h.) ;;;; -;;;; These stubs exist for the benefit of Lisp code that needs to refer +;;;; These stubs exist for the benefit of Lisp code that needs to refer ;;;; to foreign symbols when dlsym() is not available (i.e. when dumping ;;;; cold-sbcl.core, when we may be running in a host that's not SBCL, ;;;; or on platforms that don't have it at all). If the runtime is ;;;; dynamically linked, library functions won't be linked into it, so ;;;; the map file won't show them. So, we need a bunch of stubs that -;;;; nm(1) _can_ see. +;;;; nm(1) _can_ see. ;;;; ;;;; This software is part of the SBCL system. See the README file for ;;;; more information. @@ -29,17 +29,17 @@ ;;; 2001-09-18. -- CSR ;;; ;;; And an attempt to work around the Sun toolchain... --ns -#!+sparc +#!+sparc (defun ldso-stubify (fct str) (apply #'format str " .globl ldso_stub__~A ; \\ - FUNCDEF(ldso_stub__~A) ; \\ + FUNCDEF(ldso_stub__~A) ; \\ ldso_stub__~A: ; \\ - sethi %hi(~A),%g1 ; \\ - jmpl %g1+%lo(~A),%g0 ; \\ - nop /* delay slot*/ ; \\ + sethi %hi(~A),%g1 ; \\ + jmpl %g1+%lo(~A),%g0 ; \\ + nop /* delay slot*/ ; \\ .L~Ae1: ; \\ - .size ldso_stub__~A,.L~Ae1-ldso_stub__~A ;~%" + .size ldso_stub__~A,.L~Ae1-ldso_stub__~A ;~%" (make-list 9 :initial-element fct))) (defvar *preludes* '(" @@ -59,60 +59,60 @@ ldso_stub__~A: ; \\ #!+(or x86 x86-64) " #define LDSO_STUBIFY(fct) \\ - .align 16 ; \\ + .align 16 ; \\ .globl ldso_stub__ ## fct ; \\ - .type ldso_stub__ ## fct,@function ; \\ + .type ldso_stub__ ## fct,@function ; \\ ldso_stub__ ## fct: ; \\ - jmp fct ; \\ + jmp fct ; \\ .L ## fct ## e1: ; \\ - .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;" + .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;" ;;; osf1 has ancient cpp that doesn't do ## #!+(and osf1 alpha) " #define LDSO_STUBIFY(fct) \\ .globl ldso_stub__/**/fct ; \\ ldso_stub__/**/fct: ; \\ - jmp fct ; \\ + jmp fct ; \\ .L/**/fct/**/e1: ;" ;;; but there's no reason we need to put up with that on modern (Linux) OSes #!+(and linux alpha) " #define LDSO_STUBIFY(fct) \\ .globl ldso_stub__ ## fct ; \\ - .type ldso_stub__ ## fct,@function ; \\ + .type ldso_stub__ ## fct,@function ; \\ ldso_stub__ ## fct: ; \\ - jmp fct ; \\ + jmp fct ; \\ .L ## fct ## e1: ; \\ - .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;" + .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;" #!+(and linux ppc) " #define LDSO_STUBIFY(fct) \\ .globl ldso_stub__ ## fct ; \\ - .type ldso_stub__ ## fct,@function ; \\ + .type ldso_stub__ ## fct,@function ; \\ ldso_stub__ ## fct: ; \\ b fct ; \\ .L ## fct ## e1: ; \\ .size ldso_stub__ ## fct,.L ## fct ## e1-ldso_stub__ ## fct ;" #!+(and darwin ppc) " -#define LDSO_STUBIFY(fct) @\\ +#define LDSO_STUBIFY(fct) @\\ .text @\\ -.globl ldso_stub___ ## fct @\\ -ldso_stub___ ## fct: @\\ - b ldso_stub__ ## fct ## stub @\\ -.symbol_stub ldso_stub__ ## fct ## stub: @\\ -.indirect_symbol _ ## fct @\\ - lis r11,ha16(ldso_stub__ ## fct ## $lazy_ptr) @\\ - lwz r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\ - mtctr r12 @\\ - addi r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr) @\\ - bctr @\\ -.lazy_symbol_pointer @\\ -ldso_stub__ ## fct ## $lazy_ptr: @\\ - .indirect_symbol _ ## fct @\\ - .long dyld_stub_binding_helper" - -;;; KLUDGE: set up the vital fifth argument, passed on the +.globl ldso_stub___ ## fct @\\ +ldso_stub___ ## fct: @\\ + b ldso_stub__ ## fct ## stub @\\ +.symbol_stub ldso_stub__ ## fct ## stub: @\\ +.indirect_symbol _ ## fct @\\ + lis r11,ha16(ldso_stub__ ## fct ## $lazy_ptr) @\\ + lwz r12,lo16(ldso_stub__ ## fct ## $lazy_ptr)(r11) @\\ + mtctr r12 @\\ + addi r11,r11,lo16(ldso_stub__ ## fct ## $lazy_ptr) @\\ + bctr @\\ +.lazy_symbol_pointer @\\ +ldso_stub__ ## fct ## $lazy_ptr: @\\ + .indirect_symbol _ ## fct @\\ + .long dyld_stub_binding_helper" + +;;; KLUDGE: set up the vital fifth argument, passed on the ;;; stack. Do this unconditionally, even if the stub is for a ;;; function with few arguments: it can't hurt. We only do this for ;;; the fifth argument, as the first four are passed in registers @@ -121,31 +121,31 @@ ldso_stub__ ## fct ## $lazy_ptr: @\\ ;;; Expanded to 8 arguments regardless. -- ths, 2005-03-24 #!+mips " #define LDSO_STUBIFY(fct) \\ - .globl ldso_stub__ ## fct ; \\ - .type ldso_stub__ ## fct,@function ; \\ - .ent ldso_stub__ ## fct ; \\ + .globl ldso_stub__ ## fct ; \\ + .type ldso_stub__ ## fct,@function ; \\ + .ent ldso_stub__ ## fct ; \\ ldso_stub__ ## fct: ; \\ - .set noat ; \\ - addiu $29,-48 ; \\ - sw $28,40($29) ; \\ - sw $31,44($29) ; \\ - lw $25,64($29) ; \\ - lw $1,68($29) ; \\ - sw $25,16($29) ; \\ - sw $1,20($29) ; \\ - lw $25,72($29) ; \\ - lw $1,76($29) ; \\ - sw $25,24($29) ; \\ - sw $1,28($29) ; \\ - .set at ; \\ - la $25, fct ; \\ - jalr $25 ; \\ - lw $31,44($29) ; \\ - lw $28,40($29) ; \\ - addiu $29,48 ; \\ - jr $31 ; \\ - .end ldso_stub__ ## fct ; \\ - .size ldso_stub__ ## fct,.-ldso_stub__ ## fct ;")) + .set noat ; \\ + addiu $29,-48 ; \\ + sw $28,40($29) ; \\ + sw $31,44($29) ; \\ + lw $25,64($29) ; \\ + lw $1,68($29) ; \\ + sw $25,16($29) ; \\ + sw $1,20($29) ; \\ + lw $25,72($29) ; \\ + lw $1,76($29) ; \\ + sw $25,24($29) ; \\ + sw $1,28($29) ; \\ + .set at ; \\ + la $25, fct ; \\ + jalr $25 ; \\ + lw $31,44($29) ; \\ + lw $28,40($29) ; \\ + addiu $29,48 ; \\ + jr $31 ; \\ + .end ldso_stub__ ## fct ; \\ + .size ldso_stub__ ## fct,.-ldso_stub__ ## fct ;")) (defvar *stubs* (append '("accept" @@ -210,7 +210,7 @@ ldso_stub__ ## fct: ; \\ "malloc" "memmove" "mkdir" - "nanosleep" + "nanosleep" "nl_langinfo" "open" "opendir" @@ -246,7 +246,7 @@ ldso_stub__ ## fct: ; \\ "tzname" "unlink" "utimes" - "wait3" + "wait3" "write") ;; These aren't needed on the X86 because they're microcoded into the ;; FPU, so the Lisp VOPs can implement them directly without having to @@ -254,15 +254,15 @@ ldso_stub__ ## fct: ; \\ ;; ;; Note: There might be some other functions in this category as well. ;; E.g. I notice tanh() and acos() in the list above.. -- WHN 2001-06-07 - #!-x86 + #!-x86 '("sin" - "cos" - "tan" - "atan" - "atan2" - "exp" - "log" - "log10" + "cos" + "tan" + "atan" + "atan2" + "exp" + "log" + "log10" "sqrt") #!+alpha '("ieee_get_fp_control" @@ -272,8 +272,8 @@ ldso_stub__ ## fct: ; \\ "dlerror" "dlopen" "dlsym") - #!+os-provides-dladdr - '("dladdr") + #!+os-provides-dladdr + '("dladdr") #!-(and sparc sunos) ;; !defined(SVR4) '("sigsetmask"))) diff --git a/tools-for-build/os-provides-dladdr-test.c b/tools-for-build/os-provides-dladdr-test.c index 4b0f472..ba899a2 100644 --- a/tools-for-build/os-provides-dladdr-test.c +++ b/tools-for-build/os-provides-dladdr-test.c @@ -1,4 +1,4 @@ -/* test to build and run so that we know if we have dladdr +/* test to build and run so that we know if we have dladdr */ /* bloody FSF dlcfn.h won't give us dladdr without this */ diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp index 4ecfdbb..eb21782 100644 --- a/tools-for-build/ucd.lisp +++ b/tools-for-build/ucd.lisp @@ -38,50 +38,50 @@ (defparameter *decomposition-base* nil) (defun hash-misc (gc-index bidi-index ccc-index decimal-digit digit - bidi-mirrored cl-both-case-p) + bidi-mirrored cl-both-case-p) (let* ((list (list gc-index bidi-index ccc-index decimal-digit digit - bidi-mirrored cl-both-case-p)) - (index (gethash list *misc-hash*))) + bidi-mirrored cl-both-case-p)) + (index (gethash list *misc-hash*))) (or index - (progn - (vector-push list *misc-table*) - (setf (gethash list *misc-hash*) - (incf *misc-index*)))))) + (progn + (vector-push list *misc-table*) + (setf (gethash list *misc-hash*) + (incf *misc-index*)))))) (defun compare-misc-entry (left right) (destructuring-bind (left-gc-index left-bidi-index left-ccc-index - left-decimal-digit left-digit left-bidi-mirrored - left-cl-both-case-p) + left-decimal-digit left-digit left-bidi-mirrored + left-cl-both-case-p) left (destructuring-bind (right-gc-index right-bidi-index right-ccc-index - right-decimal-digit right-digit right-bidi-mirrored - right-cl-both-case-p) - right + right-decimal-digit right-digit right-bidi-mirrored + right-cl-both-case-p) + right (or (and left-cl-both-case-p (not right-cl-both-case-p)) - (and (or left-cl-both-case-p (not right-cl-both-case-p)) - (or (< left-gc-index right-gc-index) - (and (= left-gc-index right-gc-index) - (or (< left-bidi-index right-bidi-index) - (and (= left-bidi-index right-bidi-index) - (or (< left-ccc-index right-ccc-index) - (and (= left-ccc-index right-ccc-index) - (or (string< left-decimal-digit - right-decimal-digit) - (and (string= left-decimal-digit - right-decimal-digit) - (or (string< left-digit right-digit) - (and (string= left-digit - right-digit) - (string< left-bidi-mirrored - right-bidi-mirrored)))))))))))))))) + (and (or left-cl-both-case-p (not right-cl-both-case-p)) + (or (< left-gc-index right-gc-index) + (and (= left-gc-index right-gc-index) + (or (< left-bidi-index right-bidi-index) + (and (= left-bidi-index right-bidi-index) + (or (< left-ccc-index right-ccc-index) + (and (= left-ccc-index right-ccc-index) + (or (string< left-decimal-digit + right-decimal-digit) + (and (string= left-decimal-digit + right-decimal-digit) + (or (string< left-digit right-digit) + (and (string= left-digit + right-digit) + (string< left-bidi-mirrored + right-bidi-mirrored)))))))))))))))) (defun build-misc-table () (sort *misc-table* #'compare-misc-entry) (setq *misc-mapping* (make-array (1+ *misc-index*))) (loop for i from 0 to *misc-index* - do (setf (aref *misc-mapping* - (gethash (aref *misc-table* i) *misc-hash*)) - i))) + do (setf (aref *misc-mapping* + (gethash (aref *misc-table* i) *misc-hash*)) + i))) (defun slurp-ucd () (setq *last-uppercase* nil) @@ -97,43 +97,43 @@ (setq *decomposition-types* (make-hash-table :test #'equal)) (setq *decomposition-length-max* 0) (setq *decomposition-base* (make-array (ash #x110000 - (- *page-size-exponent*)) - :initial-element nil)) + (- *page-size-exponent*)) + :initial-element nil)) (setq *ucd-base* (make-array (ash #x110000 (- *page-size-exponent*)) - :initial-element nil)) + :initial-element nil)) (with-open-file (*standard-input* - (make-pathname :name "UnicodeData" - :type "txt" - :defaults *unicode-character-database*) - :direction :input) + (make-pathname :name "UnicodeData" + :type "txt" + :defaults *unicode-character-database*) + :direction :input) (loop for line = (read-line nil nil) - while line - do (slurp-ucd-line line))) + while line + do (slurp-ucd-line line))) (second-pass) (build-misc-table) *decompositions*) (defun split-string (line character) (loop for prev-position = 0 then (1+ position) - for position = (position character line :start prev-position) - collect (subseq line prev-position position) - do (unless position - (loop-finish)))) + for position = (position character line :start prev-position) + collect (subseq line prev-position position) + do (unless position + (loop-finish)))) (defun init-indices (strings) (let ((hash (make-hash-table :test #'equal))) (loop for string in strings - for index from 0 - do (setf (gethash string hash) index)) + for index from 0 + do (setf (gethash string hash) index)) hash)) (defparameter *general-categories* (init-indices '("Lu" "Ll" "Lt" "Lm" "Lo" "Cc" "Cf" "Co" "Cs" "Mc" - "Me" "Mn" "Nd" "Nl" "No" "Pc" "Pd" "Pe" "Pf" "Pi" - "Po" "Ps" "Sc" "Sk" "Sm" "So" "Zl" "Zp" "Zs"))) + "Me" "Mn" "Nd" "Nl" "No" "Pc" "Pd" "Pe" "Pf" "Pi" + "Po" "Ps" "Sc" "Sk" "Sm" "So" "Zl" "Zp" "Zs"))) (defparameter *bidi-classes* (init-indices '("AL" "AN" "B" "BN" "CS" "EN" "ES" "ET" "L" "LRE" "LRO" - "NSM" "ON" "PDF" "R" "RLE" "RLO" "S" "WS"))) + "NSM" "ON" "PDF" "R" "RLE" "RLO" "S" "WS"))) (defparameter *block-first* nil) @@ -146,137 +146,137 @@ ;;; 100000 -- 10FFFD: private use (defun encode-ucd-line (line code-point) (destructuring-bind (name general-category canonical-combining-class - bidi-class decomposition-type-and-mapping - decimal-digit digit numeric bidi-mirrored - unicode-1-name iso-10646-comment simple-uppercase - simple-lowercase simple-titlecase) + bidi-class decomposition-type-and-mapping + decimal-digit digit numeric bidi-mirrored + unicode-1-name iso-10646-comment simple-uppercase + simple-lowercase simple-titlecase) line (declare (ignore unicode-1-name iso-10646-comment)) (if (and (> (length name) 8) - (string= ", First>" name :start2 (- (length name) 8))) - (progn - (setq *block-first* code-point) - nil) - (let* ((gc-index (or (gethash general-category *general-categories*) - (error "unknown general category ~A" - general-category))) - (bidi-index (or (gethash bidi-class *bidi-classes*) - (error "unknown bidirectional class ~A" - bidi-class))) - (ccc-index (parse-integer canonical-combining-class)) - (digit-index (unless (string= "" decimal-digit) - (parse-integer decimal-digit))) - (upper-index (unless (string= "" simple-uppercase) - (parse-integer simple-uppercase :radix 16))) - (lower-index (unless (string= "" simple-lowercase) - (parse-integer simple-lowercase :radix 16))) - (title-index (unless (string= "" simple-titlecase) - (parse-integer simple-titlecase :radix 16))) - (cl-both-case-p - (not (null (or (and (= gc-index 0) lower-index) - (and (= gc-index 1) upper-index))))) - (misc-index (hash-misc gc-index bidi-index ccc-index - decimal-digit digit bidi-mirrored - cl-both-case-p))) - (declare (ignore digit-index)) - (incf *name-size* (length name)) - (when (string/= "" decomposition-type-and-mapping) - (let ((split (split-string decomposition-type-and-mapping - #\Space))) - (when (char= #\< (aref (first split) 0)) - (setf (gethash (pop split) *decomposition-types*) t)) - (unless (aref *decomposition-base* (cp-high code-point)) - (setf (aref *decomposition-base* (cp-high code-point)) - (make-array (ash 1 *page-size-exponent*) - :initial-element nil))) - (setf (aref (aref *decomposition-base* (cp-high code-point)) - (cp-low code-point)) - (mapcar #'(lambda (string) - (parse-integer string :radix 16)) - split)) - (setq *decomposition-length-max* - (max *decomposition-length-max* (length split))) - (incf *decompositions* (length split)))) - (when (and (string/= "" simple-uppercase) - (string/= "" simple-lowercase)) - (push (list code-point upper-index lower-index) *both-cases*)) - (when (string/= simple-uppercase simple-titlecase) - (push (cons code-point title-index) *different-titlecases*)) - (when (string/= digit numeric) - (push (cons code-point numeric) *different-numerics*)) - (cond - ((= gc-index 8) - (unless *last-uppercase* - (incf *uppercase-transition-count*)) - (setq *last-uppercase* t)) - (t - (when *last-uppercase* - (incf *uppercase-transition-count*)) - (setq *last-uppercase* nil))) - (when (> ccc-index 255) - (error "canonical combining class too large ~A" ccc-index)) - (let ((result (vector misc-index (or upper-index lower-index 0)))) - (when (and (> (length name) 7) - (string= ", Last>" name :start2 (- (length name) 7))) - (let ((page-start (ash (+ *block-first* - (ash 1 *page-size-exponent*) - -1) - (- *page-size-exponent*))) - (page-end (ash code-point (- *page-size-exponent*)))) - (loop for point from *block-first* - below (ash page-start *page-size-exponent*) - do (setf (aref (aref *ucd-base* (cp-high point)) - (cp-low point)) - result)) - (loop for page from page-start below page-end - do (setf (aref *ucd-base* page) - (make-array (ash 1 *page-size-exponent*) - :initial-element result))) - (loop for point from (ash page-end *page-size-exponent*) - below code-point - do (setf (aref (aref *ucd-base* (cp-high point)) - (cp-low point)) - result)))) - result))))) + (string= ", First>" name :start2 (- (length name) 8))) + (progn + (setq *block-first* code-point) + nil) + (let* ((gc-index (or (gethash general-category *general-categories*) + (error "unknown general category ~A" + general-category))) + (bidi-index (or (gethash bidi-class *bidi-classes*) + (error "unknown bidirectional class ~A" + bidi-class))) + (ccc-index (parse-integer canonical-combining-class)) + (digit-index (unless (string= "" decimal-digit) + (parse-integer decimal-digit))) + (upper-index (unless (string= "" simple-uppercase) + (parse-integer simple-uppercase :radix 16))) + (lower-index (unless (string= "" simple-lowercase) + (parse-integer simple-lowercase :radix 16))) + (title-index (unless (string= "" simple-titlecase) + (parse-integer simple-titlecase :radix 16))) + (cl-both-case-p + (not (null (or (and (= gc-index 0) lower-index) + (and (= gc-index 1) upper-index))))) + (misc-index (hash-misc gc-index bidi-index ccc-index + decimal-digit digit bidi-mirrored + cl-both-case-p))) + (declare (ignore digit-index)) + (incf *name-size* (length name)) + (when (string/= "" decomposition-type-and-mapping) + (let ((split (split-string decomposition-type-and-mapping + #\Space))) + (when (char= #\< (aref (first split) 0)) + (setf (gethash (pop split) *decomposition-types*) t)) + (unless (aref *decomposition-base* (cp-high code-point)) + (setf (aref *decomposition-base* (cp-high code-point)) + (make-array (ash 1 *page-size-exponent*) + :initial-element nil))) + (setf (aref (aref *decomposition-base* (cp-high code-point)) + (cp-low code-point)) + (mapcar #'(lambda (string) + (parse-integer string :radix 16)) + split)) + (setq *decomposition-length-max* + (max *decomposition-length-max* (length split))) + (incf *decompositions* (length split)))) + (when (and (string/= "" simple-uppercase) + (string/= "" simple-lowercase)) + (push (list code-point upper-index lower-index) *both-cases*)) + (when (string/= simple-uppercase simple-titlecase) + (push (cons code-point title-index) *different-titlecases*)) + (when (string/= digit numeric) + (push (cons code-point numeric) *different-numerics*)) + (cond + ((= gc-index 8) + (unless *last-uppercase* + (incf *uppercase-transition-count*)) + (setq *last-uppercase* t)) + (t + (when *last-uppercase* + (incf *uppercase-transition-count*)) + (setq *last-uppercase* nil))) + (when (> ccc-index 255) + (error "canonical combining class too large ~A" ccc-index)) + (let ((result (vector misc-index (or upper-index lower-index 0)))) + (when (and (> (length name) 7) + (string= ", Last>" name :start2 (- (length name) 7))) + (let ((page-start (ash (+ *block-first* + (ash 1 *page-size-exponent*) + -1) + (- *page-size-exponent*))) + (page-end (ash code-point (- *page-size-exponent*)))) + (loop for point from *block-first* + below (ash page-start *page-size-exponent*) + do (setf (aref (aref *ucd-base* (cp-high point)) + (cp-low point)) + result)) + (loop for page from page-start below page-end + do (setf (aref *ucd-base* page) + (make-array (ash 1 *page-size-exponent*) + :initial-element result))) + (loop for point from (ash page-end *page-size-exponent*) + below code-point + do (setf (aref (aref *ucd-base* (cp-high point)) + (cp-low point)) + result)))) + result))))) (defun slurp-ucd-line (line) (let* ((split-line (split-string line #\;)) - (code-point (parse-integer (first split-line) :radix 16)) - (code-high (ash code-point (- *page-size-exponent*))) - (code-low (ldb (byte *page-size-exponent* 0) code-point))) + (code-point (parse-integer (first split-line) :radix 16)) + (code-high (ash code-point (- *page-size-exponent*))) + (code-low (ldb (byte *page-size-exponent* 0) code-point))) (unless (aref *ucd-base* code-high) (setf (aref *ucd-base* code-high) - (make-array (ash 1 *page-size-exponent*) - :initial-element nil))) + (make-array (ash 1 *page-size-exponent*) + :initial-element nil))) (setf (aref (aref *ucd-base* code-high) code-low) - (encode-ucd-line (cdr split-line) code-point)))) + (encode-ucd-line (cdr split-line) code-point)))) (defun second-pass () (loop for i from 0 below (length *ucd-base*) - when (aref *ucd-base* i) - do (loop for j from 0 below (length (aref *ucd-base* i)) - for result = (aref (aref *ucd-base* i) j) - when result - when (let* ((transform-point (aref result 1)) - (transform-high (ash transform-point - (- *page-size-exponent*))) - (transform-low (ldb (byte *page-size-exponent* 0) - transform-point))) - (and (plusp transform-point) - (/= (aref (aref (aref *ucd-base* transform-high) - transform-low) - 1) - (+ (ash i *page-size-exponent*) j)))) - do (destructuring-bind (gc-index bidi-index ccc-index - decimal-digit digit bidi-mirrored - cl-both-case-p) - (aref *misc-table* (aref result 0)) - (declare (ignore cl-both-case-p)) - (format t "~A~%" (+ (ash i *page-size-exponent*) j)) - (setf (aref result 0) - (hash-misc gc-index bidi-index ccc-index - decimal-digit digit bidi-mirrored - nil)))))) + when (aref *ucd-base* i) + do (loop for j from 0 below (length (aref *ucd-base* i)) + for result = (aref (aref *ucd-base* i) j) + when result + when (let* ((transform-point (aref result 1)) + (transform-high (ash transform-point + (- *page-size-exponent*))) + (transform-low (ldb (byte *page-size-exponent* 0) + transform-point))) + (and (plusp transform-point) + (/= (aref (aref (aref *ucd-base* transform-high) + transform-low) + 1) + (+ (ash i *page-size-exponent*) j)))) + do (destructuring-bind (gc-index bidi-index ccc-index + decimal-digit digit bidi-mirrored + cl-both-case-p) + (aref *misc-table* (aref result 0)) + (declare (ignore cl-both-case-p)) + (format t "~A~%" (+ (ash i *page-size-exponent*) j)) + (setf (aref result 0) + (hash-misc gc-index bidi-index ccc-index + decimal-digit digit bidi-mirrored + nil)))))) (defun write-3-byte (triplet stream) (write-byte (ldb (byte 8 0) triplet) stream) @@ -290,86 +290,86 @@ (defun output () (let ((hash (make-hash-table :test #'equalp)) - (index 0)) + (index 0)) (loop for page across *ucd-base* - do (when page - (unless (gethash page hash) - (setf (gethash page hash) - (incf index))))) + do (when page + (unless (gethash page hash) + (setf (gethash page hash) + (incf index))))) (let ((array (make-array (1+ index)))) (maphash #'(lambda (key value) - (setf (aref array value) key)) - hash) + (setf (aref array value) key)) + hash) (setf (aref array 0) - (make-array (ash 1 *page-size-exponent*) :initial-element nil)) + (make-array (ash 1 *page-size-exponent*) :initial-element nil)) (with-open-file (stream (make-pathname :name "ucd" - :type "dat" - :defaults *output-directory*) - :direction :output - :element-type '(unsigned-byte 8) - :if-exists :supersede - :if-does-not-exist :create) - (loop for (gc-index bidi-index ccc-index decimal-digit digit - bidi-mirrored) - across *misc-table* - do (write-byte gc-index stream) - do (write-byte bidi-index stream) - do (write-byte ccc-index stream) - do (write-byte (digit-to-byte decimal-digit) stream) - do (write-byte (digit-to-byte digit) stream) - do (write-byte (if (string= "N" bidi-mirrored) 0 1) stream) - do (write-byte 0 stream) - do (write-byte 0 stream)) - (loop for page across *ucd-base* - do (write-byte (if page (gethash page hash) 0) stream)) - (loop for page across array - do (loop for entry across page - do (write-byte (if entry - (aref *misc-mapping* (aref entry 0)) - 255) - stream) - do (write-3-byte (if entry (aref entry 1) 0) - stream)))))) + :type "dat" + :defaults *output-directory*) + :direction :output + :element-type '(unsigned-byte 8) + :if-exists :supersede + :if-does-not-exist :create) + (loop for (gc-index bidi-index ccc-index decimal-digit digit + bidi-mirrored) + across *misc-table* + do (write-byte gc-index stream) + do (write-byte bidi-index stream) + do (write-byte ccc-index stream) + do (write-byte (digit-to-byte decimal-digit) stream) + do (write-byte (digit-to-byte digit) stream) + do (write-byte (if (string= "N" bidi-mirrored) 0 1) stream) + do (write-byte 0 stream) + do (write-byte 0 stream)) + (loop for page across *ucd-base* + do (write-byte (if page (gethash page hash) 0) stream)) + (loop for page across array + do (loop for entry across page + do (write-byte (if entry + (aref *misc-mapping* (aref entry 0)) + 255) + stream) + do (write-3-byte (if entry (aref entry 1) 0) + stream)))))) (with-open-file (*standard-output* - (make-pathname :name "numerics" - :type "lisp-expr" - :defaults *output-directory*) - :direction :output - :if-exists :supersede - :if-does-not-exist :create) + (make-pathname :name "numerics" + :type "lisp-expr" + :defaults *output-directory*) + :direction :output + :if-exists :supersede + :if-does-not-exist :create) (let ((*print-pretty* t)) (prin1 (mapcar #'(lambda (x) (cons (car x) (read-from-string (cdr x)))) - *different-numerics*)))) + *different-numerics*)))) (with-open-file (*standard-output* - (make-pathname :name "titlecases" - :type "lisp-expr" - :defaults *output-directory*) - :direction :output - :if-exists :supersede - :if-does-not-exist :create) + (make-pathname :name "titlecases" + :type "lisp-expr" + :defaults *output-directory*) + :direction :output + :if-exists :supersede + :if-does-not-exist :create) (let ((*print-pretty* t)) (prin1 *different-titlecases*))) (with-open-file (*standard-output* - (make-pathname :name "misc" - :type "lisp-expr" - :defaults *output-directory*) - :direction :output - :if-exists :supersede - :if-does-not-exist :create) + (make-pathname :name "misc" + :type "lisp-expr" + :defaults *output-directory*) + :direction :output + :if-exists :supersede + :if-does-not-exist :create) (let ((*print-pretty* t)) (prin1 `(:length ,(length *misc-table*) - :uppercase ,(loop for (gc-index) across *misc-table* - for i from 0 - when (= gc-index 0) - collect i) - :lowercase ,(loop for (gc-index) across *misc-table* - for i from 0 - when (= gc-index 1) - collect i) - :titlecase ,(loop for (gc-index) across *misc-table* - for i from 0 - when (= gc-index 2) - collect i))))) + :uppercase ,(loop for (gc-index) across *misc-table* + for i from 0 + when (= gc-index 0) + collect i) + :lowercase ,(loop for (gc-index) across *misc-table* + for i from 0 + when (= gc-index 1) + collect i) + :titlecase ,(loop for (gc-index) across *misc-table* + for i from 0 + when (= gc-index 2) + collect i))))) (values)) ;;; Use of the generated files @@ -378,13 +378,13 @@ (defun read-compiled-ucd () (with-open-file (stream (make-pathname :name "ucd" - :type "dat" - :defaults *output-directory*) - :direction :input - :element-type '(unsigned-byte 8)) + :type "dat" + :defaults *output-directory*) + :direction :input + :element-type '(unsigned-byte 8)) (let ((length (file-length stream))) (setq *compiled-ucd* - (make-array length :element-type '(unsigned-byte 8))) + (make-array length :element-type '(unsigned-byte 8))) (read-sequence *compiled-ucd* stream))) (values)) @@ -395,7 +395,7 @@ (defun cp-index (cp) (let* ((cp-high (cp-high cp)) - (page (aref *compiled-ucd* (+ (* 8 *length*) cp-high)))) + (page (aref *compiled-ucd* (+ (* 8 *length*) cp-high)))) (+ (* 8 *length*) (ash #x110000 (- *page-size-exponent*)) (* (ash 4 *page-size-exponent*) page) @@ -407,8 +407,8 @@ (defun cp-value-1 (cp) (let ((index (cp-index cp))) (dpb (aref *compiled-ucd* (+ index 3)) (byte 8 16) - (dpb (aref *compiled-ucd* (+ index 2)) (byte 8 8) - (aref *compiled-ucd* (1+ index)))))) + (dpb (aref *compiled-ucd* (+ index 2)) (byte 8 8) + (aref *compiled-ucd* (1+ index)))))) (defun cp-general-category (cp) (aref *compiled-ucd* (* 8 (cp-value-0 cp)))) @@ -416,7 +416,7 @@ (defun cp-decimal-digit (cp) (let ((decimal-digit (aref *compiled-ucd* (+ 3 (* 8 (cp-value-0 cp)))))) (and (< decimal-digit 10) - decimal-digit))) + decimal-digit))) (defun cp-alpha-char-p (cp) (< (cp-general-category cp) 5)) @@ -424,14 +424,14 @@ (defun cp-alphanumericp (cp) (let ((gc (cp-general-category cp))) (or (< gc 5) - (= gc 12)))) + (= gc 12)))) (defun cp-digit-char-p (cp &optional (radix 10)) (let ((number (or (cp-decimal-digit cp) - (and (<= 65 cp 90) - (- cp 55)) - (and (<= 97 cp 122) - (- cp 87))))) + (and (<= 65 cp 90) + (- cp 55)) + (and (<= 97 cp 122) + (- cp 87))))) (when (and number (< number radix)) number))) diff --git a/tools-for-build/where-is-mcontext.c b/tools-for-build/where-is-mcontext.c index cfe6e14..edcd646 100644 --- a/tools-for-build/where-is-mcontext.c +++ b/tools-for-build/where-is-mcontext.c @@ -12,7 +12,7 @@ * While most of SBCL is derived from the CMU CL system, many * utilities for the build process (like this one) were written from * scratch after the fork from CMU CL. - * + * * This software is in the public domain and is provided with * absolutely no warranty. See the COPYING and CREDITS files for * more information. @@ -23,25 +23,25 @@ #include int main (int argc, char *argv[]) { - + if(argc != 1) { - fprintf(stderr,"%s: command line arguments provided. Don't do that.\n", argv[0]); - exit(1); + fprintf(stderr,"%s: command line arguments provided. Don't do that.\n", argv[0]); + exit(1); } - + printf("\ /* This is an automatically-generated file; please do not edit it.\n\ See the program tools-for-build/where-is-mcontext.c.\n\ */\n\n"); - + printf("\ #ifndef PPC_LINUX_MCONTEXT_H\n\ #define PPC_LINUX_MCONTEXT_H\n\n"); if (offsetof(ucontext_t,uc_mcontext) > 40) { - printf("#define GLIBC232_STYLE_UCONTEXT\n\n"); + printf("#define GLIBC232_STYLE_UCONTEXT\n\n"); } else { - printf("#define GLIBC231_STYLE_UCONTEXT\n\n"); + printf("#define GLIBC231_STYLE_UCONTEXT\n\n"); } printf("\ #endif /* PPC_LINUX_MCONTEXT_H */\n"); diff --git a/version.lisp-expr b/version.lisp-expr index 710f072..4de0235 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.2.50" +"0.9.2.51"