From: Christophe Rhodes Date: Sat, 12 Oct 2002 12:22:06 +0000 (+0000) Subject: 0.7.8.29: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=316eddc9b2b1aa24012ed826ce700105fdbcdfdb;p=sbcl.git 0.7.8.29: Delete some stale symbols from, and do one or two other fixups to, package-data-list.lisp-expr ... e.g. long-float symbols conditional on #!+LONG-FLOAT ... also s/#+x86/#!+x86/ Add Eric Marsden's script to contrib/ --- diff --git a/TODO b/TODO index 1d77f65..f4ff1fe 100644 --- a/TODO +++ b/TODO @@ -58,10 +58,6 @@ for early 0.7.x: os_trunc_foo(), os_round_up_foo() ** removed various avoid-evaluating-C-macro-arg-twice cruft -* added mechanisms for automatically finding dead symbols in - package-data.lisp-expr (i.e. those symbols not bound, - fbound, defined as types, or whatever), and used them - to remove dead symbols * Either get rid of or at least rework the fdefinition/encapsulation system so that (SYMBOL-FUNCTION 'FOO) is identically equal to (FDEFINITION 'FOO). diff --git a/contrib/stale-symbols.lisp b/contrib/stale-symbols.lisp new file mode 100644 index 0000000..0803bf5 --- /dev/null +++ b/contrib/stale-symbols.lisp @@ -0,0 +1,50 @@ +;;; This code is currently essentially the same as code posted by Eric +;;; Marsden to cmucl-imp, to detect stale symbols in a core. +;;; +;;; Known deficiencies: +;;; +;;; * flags CATCH tags as stale; +;;; * flags constants (under certain circumstances) as stale; +;;; * output is not necessarily terribly clear; +;;; * takes a long time (several hours on CSR's 300MHz x86 desktop) to +;;; run. + +(defun print-stale-reference (obj stream) + (cond ((vectorp obj) + (format stream "vector (probable package internals)")) + ((sb-c::compiled-debug-function-p obj) + (format stream "#" + (sb-c::compiled-debug-function-name obj))) + (t + (format stream "~w" obj)))) + +(defun find-stale-objects () + (dolist (space '(:static :dynamic :read-only)) + (sb-vm::map-allocated-objects + (lambda (obj type size) + (declare (optimize (safety 0)) + (ignore size)) + (when (eql type sb-vm:symbol-header-widetag) + (ignore-errors + (let ((read-only-space-refs (sb-vm::list-referencing-objects :read-only obj)) + (static-space-refs (sb-vm::list-referencing-objects :static obj)) + (dynamic-space-refs (sb-vm::list-referencing-objects :dynamic obj))) + (when (>= 1 (+ (length read-only-space-refs) + (length static-space-refs) + (length dynamic-space-refs))) + (format t "Symbol ~a::~a~%" + (and (symbol-package obj) (package-name (symbol-package obj))) + (symbol-name obj)) + (unless (null read-only-space-refs) + (princ " Reference in read-only space: ") + (print-stale-reference (car read-only-space-refs) t) + (terpri)) + (unless (null static-space-refs) + (princ " Reference in static space: ") + (print-stale-reference (car static-space-refs) t) + (terpri)) + (unless (null dynamic-space-refs) + (princ " Reference in dynamic space: ") + (print-stale-reference (car dynamic-space-refs) t) + (terpri))))))) + space))) diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr index a5d0e1e..87f9323 100644 --- a/package-data-list.lisp-expr +++ b/package-data-list.lisp-expr @@ -758,11 +758,11 @@ retained, possibly temporariliy, because it might be used internally." "UNSIGNED-BYTE-WITH-A-BITE-OUT" ;; ..and type predicates "INSTANCEP" - "DOUBLE-FLOATP" + "DOUBLE-FLOAT-P" "LOGICAL-PATHNAME-P" - "LONG-FLOATP" - "SHORT-FLOATP" - "SINGLE-FLOATP" + "LONG-FLOAT-P" + "SHORT-FLOAT-P" + "SINGLE-FLOAT-P" "FIXNUMP" "BIGNUMP" "RATIOP" @@ -939,7 +939,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "%FIND-POSITION-IF-NOT" "%FIND-POSITION-IF-NOT-VECTOR-MACRO" "%FUN-DOC" "%FUN-NAME" "%HYPOT" "%LDB" - "%LOG" "%LOGB" "%LOG10" "%LOG1P" "%LONG-FLOAT" + "%LOG" "%LOGB" "%LOG10" "%LOG1P" + #!+long-float "%LONG-FLOAT" "%MAKE-COMPLEX" "%MAKE-FUNCALLABLE-INSTANCE" "%MAKE-RATIO" "%MAP" "%MAP-TO-SIMPLE-VECTOR-ARITY-1" "%MAP-TO-LIST-ARITY-1" "%MAP-TO-NIL-ON-SEQUENCE" "%MAP-TO-NIL-ON-SIMPLE-VECTOR" @@ -990,14 +991,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "ARRAY-TYPE-P" "ARRAY-TYPE-SPECIALIZED-ELEMENT-TYPE" "ASH-INDEX" "ASSERT-ERROR" "BASE-CHAR-P" - "BINDING-STACK-POINTER-SAP" "BIT-BASH-AND" - "BIT-BASH-ANDC1" - "BIT-BASH-ANDC2" "BIT-BASH-CLEAR" "BIT-BASH-COPY" - "BIT-BASH-EQV" - "BIT-BASH-IOR" "BIT-BASH-LOGNAND" "BIT-BASH-LOGNOR" - "BIT-BASH-NOT" - "BIT-BASH-ORC1" "BIT-BASH-ORC2" "BIT-BASH-SET" - "BIT-BASH-XOR" + "BINDING-STACK-POINTER-SAP" "BIT-BASH-COPY" "BIT-INDEX" "BOGUS-ARG-TO-VALUES-LIST-ERROR" "BOOLE-CODE" "BYTE-SPECIFIER" @@ -1013,7 +1007,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "COERCE-TO-LIST" "COERCE-TO-VECTOR" "*COLD-INIT-COMPLETE-P*" "COMPLEX-DOUBLE-FLOAT-P" - "COMPLEX-FLOAT-P" "COMPLEX-LONG-FLOAT-P" + "COMPLEX-FLOAT-P" + #!+long-float "COMPLEX-LONG-FLOAT-P" "COMPLEX-RATIONAL-P" "COMPLEX-SINGLE-FLOAT-P" "COMPLEX-VECTOR-P" "COMPOUND-TYPE" "COMPOUND-TYPE-P" "COMPOUND-TYPE-TYPES" "CONS-TYPE" "CONS-TYPE-CAR-TYPE" "CONS-TYPE-CDR-TYPE" @@ -1027,7 +1022,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CSUBTYPEP" "CTYPE" "TYPE-HASH-VALUE" "CTYPE-OF" "CTYPE-P" "CTYPEP" "CURRENT-FP" "CURRENT-SP" "DATA-VECTOR-REF" "DATA-VECTOR-SET" "DECODE-DOUBLE-FLOAT" - "DECODE-LONG-FLOAT" "DECODE-SINGLE-FLOAT" + #!+long-float "DECODE-LONG-FLOAT" + "DECODE-SINGLE-FLOAT" "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P" "!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO" @@ -1035,7 +1031,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "DOUBLE-FLOAT-EXPONENT" "DOUBLE-FLOAT-HIGH-BITS" "DOUBLE-FLOAT-INT-EXPONENT" "DOUBLE-FLOAT-LOW-BITS" "DOUBLE-FLOAT-SIGNIFICAND" - "DOUBLE-FLOAT-P" "FLOAT-WAIT" + "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE" "END-TOO-LARGE-ERROR" "ERROR-NUMBER-OR-LOSE" @@ -1067,7 +1063,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "*!INITIAL-FDEFN-OBJECTS*" "*!INITIAL-FOREIGN-SYMBOLS*" "*!INITIAL-LAYOUTS*" "*!INITIAL-SYMBOLS*" "INTEGER-DECODE-DOUBLE-FLOAT" - "INTEGER-DECODE-LONG-FLOAT" "INTEGER-DECODE-SINGLE-FLOAT" + #!+long-float "INTEGER-DECODE-LONG-FLOAT" + "INTEGER-DECODE-SINGLE-FLOAT" "INTERNAL-ERROR" "INTERNAL-TIME" "INTERSECTION-TYPE" "INTERSECTION-TYPE-P" "INTERSECTION-TYPE-TYPES" @@ -1087,15 +1084,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "ANSI-STREAM-OUT" "ANSI-STREAM-SOUT" "LIST-TO-VECTOR*" "LOGICAL-HOST" "LOGICAL-HOST-DESIGNATOR" - "LONG-FLOAT-EXPONENT" "LONG-FLOAT-EXP-BITS" - "LONG-FLOAT-HIGH-BITS" - "LONG-FLOAT-LOW-BITS" "LONG-FLOAT-MID-BITS" "LONG-FLOAT-P" - "LONG-FLOAT-RADIX" "LONG-WORDS" + #!+long-float "LONG-FLOAT-EXPONENT" + #!+long-float "LONG-FLOAT-EXP-BITS" + #!+long-float "LONG-FLOAT-HIGH-BITS" + #!+long-float "LONG-FLOAT-LOW-BITS" + #!+long-float "LONG-FLOAT-MID-BITS" + "LONG-WORDS" "LRA" "LRA-CODE-HEADER" "LRA-P" "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE" "MAKE-ARRAY-HEADER" "MAKE-ARRAY-TYPE" "MAKE-CONS-TYPE" "MAKE-DOUBLE-FLOAT" "MAKE-FUN-TYPE" - "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-LONG-FLOAT" + "MAKE-KEY-INFO" "MAKE-LISP-OBJ" + #!+long-float "MAKE-LONG-FLOAT" "MAKE-MEMBER-TYPE" "MAKE-NAMED-TYPE" "MAKE-NULL-LEXENV" "MAKE-NUMERIC-TYPE" "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY" @@ -1119,7 +1119,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "OBJECT-NOT-COMPLEX-ERROR" "OBJECT-NOT-COMPLEX-FLOAT-ERROR" "OBJECT-NOT-COMPLEX-SINGLE-FLOAT-ERROR" - "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR" + #!+long-float "OBJECT-NOT-COMPLEX-LONG-FLOAT-ERROR" "OBJECT-NOT-COMPLEX-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-COMPLEX-RATIONAL-ERROR" ;; FIXME: It's confusing using "complex" to mean @@ -1132,17 +1132,18 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "OBJECT-NOT-FLOAT-ERROR" "OBJECT-NOT-FUN-ERROR" "OBJECT-NOT-INSTANCE-ERROR" "OBJECT-NOT-INTEGER-ERROR" - "OBJECT-NOT-LIST-ERROR" "OBJECT-NOT-LONG-FLOAT-ERROR" + "OBJECT-NOT-LIST-ERROR" + #!+long-float "OBJECT-NOT-LONG-FLOAT-ERROR" "OBJECT-NOT-NUMBER-ERROR" "OBJECT-NOT-RATIO-ERROR" "OBJECT-NOT-RATIONAL-ERROR" "OBJECT-NOT-REAL-ERROR" "OBJECT-NOT-SAP-ERROR" "OBJECT-NOT-SIGNED-BYTE-32-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-ERROR" - "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR" + #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-DOUBLE-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-ERROR" - "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR" + #!+long-float "OBJECT-NOT-SIMPLE-ARRAY-LONG-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-SINGLE-FLOAT-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-16-ERROR" "OBJECT-NOT-SIMPLE-ARRAY-UNSIGNED-BYTE-2-ERROR" @@ -1168,19 +1169,21 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "PACKAGE-INTERNAL-SYMBOLS" "PACKAGE-EXTERNAL-SYMBOLS" "PARSE-DEFMACRO" "PARSE-UNKNOWN-TYPE" "PARSE-UNKNOWN-TYPE-SPECIFIER" "PATHNAME-DESIGNATOR" - #+x86 "*PSEUDO-ATOMIC-ATOMIC*" - #+x86 "*PSEUDO-ATOMIC-INTERRUPTED*" + #!+x86 "*PSEUDO-ATOMIC-ATOMIC*" + #!+x86 "*PSEUDO-ATOMIC-INTERRUPTED*" "PUNT-PRINT-IF-TOO-LONG" "READER-IMPOSSIBLE-NUMBER-ERROR" "READER-PACKAGE-ERROR" - "SCALE-DOUBLE-FLOAT" "SCALE-LONG-FLOAT" + "SCALE-DOUBLE-FLOAT" + #!+long-float "SCALE-LONG-FLOAT" "SCALE-SINGLE-FLOAT" "SEQUENCE-END" "SEQUENCE-OF-CHECKED-LENGTH-GIVEN-TYPE" "SET-ARRAY-HEADER" "SET-HEADER-DATA" "SHIFT-TOWARDS-END" "SHIFT-TOWARDS-START" "SHRINK-VECTOR" "SIGNED-BYTE-32-P" "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-P" - "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P" + #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-P" "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-P" - "SIMPLE-ARRAY-DOUBLE-FLOAT-P" "SIMPLE-ARRAY-LONG-FLOAT-P" + "SIMPLE-ARRAY-DOUBLE-FLOAT-P" + #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-P" "SIMPLE-ARRAY-P" "SIMPLE-ARRAY-SINGLE-FLOAT-P" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-P" @@ -1195,7 +1198,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "SIMPLE-PACKAGE-ERROR" "SIMPLE-UNBOXED-ARRAY" "SINGLE-FLOAT-BITS" "SINGLE-FLOAT-EXPONENT" - "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-P" + "SINGLE-FLOAT-INT-EXPONENT" "SINGLE-FLOAT-SIGNIFICAND" "SINGLE-VALUE-TYPE" "SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE" "STACK-REF" @@ -1203,7 +1206,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "%INSTANCE-LENGTH" "%INSTANCE-REF" "%INSTANCE-SET" - "STRING-TO-SIMPLE-STRING" "SYSTEM-AREA-CLEAR" "SYSTEM-AREA-COPY" "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" @@ -1282,7 +1284,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries." "CLASS-CELL-TYPEP" "FIND-CLASS-CELL" "EXTRACT-FUN-TYPE" "FUNCALLABLE-STRUCTURE-CLASS" - "%RANDOM-DOUBLE-FLOAT" "%RANDOM-LONG-FLOAT" + "%RANDOM-DOUBLE-FLOAT" + #!+long-float "%RANDOM-LONG-FLOAT" "%RANDOM-SINGLE-FLOAT" "RANDOM-PCL-CLASS" "%FUNCALLABLE-INSTANCE-INFO" "RANDOM-CHUNK" @@ -1337,7 +1340,7 @@ is a good idea, but see SB-SYS re. blurring of boundaries." ;; in this package. -- WHN 19990911 "STRING>=*" "STRING>*" "STRING=*" "STRING<=*" "STRING<*" "STRING/=*" - "SHORT-FLOAT-P" "%SVSET" "%SP-STRING-COMPARE" "%SETNTH" + "%SVSET" "%SP-STRING-COMPARE" "%SETNTH" "%SETELT" "%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER" "%SET-FDEFINITION" "%SCHARSET" "%SBITSET" "%RPLACD" "%RPLACA" "%PUT" "%CHARSET" "%BITSET" "%ASET" @@ -1499,16 +1502,15 @@ SB-KERNEL) have been undone, but probably more remain." "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*" "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*" - "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" - "ADD-PORT-OBJECT" + "ADD-FD-HANDLER" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS" - "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" + "BYTES" "C-PROCEDURE" "COMPILER-VERSION" "DEALLOCATE-SYSTEM-MEMORY" "DEFAULT-INTERRUPT" "DEPORT-BOOLEAN" "DEPORT-INTEGER" - "FROB-DO-BODY" "DOUBLE-FLOAT-RADIX" + "FROB-DO-BODY" "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD" "FD-STREAM-P" @@ -1520,10 +1522,9 @@ SB-KERNEL) have been undone, but probably more remain." "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "OBJECT-SET-OPERATION" "OS-COLD-INIT-OR-REINIT" "OS-CONTEXT-T" "OUTPUT-RAW-BYTES" - "POINTER" "POINTER<" "POINTER>" "PORT" + "POINTER" "POINTER<" "POINTER>" "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE" - "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER" - "REMOVE-PORT-OBJECT" + "REMOVE-FD-HANDLER" "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT" "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8" @@ -1533,17 +1534,14 @@ SB-KERNEL) have been undone, but probably more remain." "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>=" "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS" "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" - "SHORT-FLOAT-RADIX" "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32" "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8" - "SINGLE-FLOAT-RADIX" ;; FIXME: STRUCTURE!OBJECT stuff probably belongs in SB!KERNEL. "STRUCTURE!OBJECT" "STRUCTURE!OBJECT-MAKE-LOAD-FORM" - "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER" "SYSTEM-AREA-POINTER-P" "VECTOR-SAP" "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER" - "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING" + "WITH-INTERRUPTS" "WITHOUT-GCING" "WITHOUT-INTERRUPTS" "WORDS" "ALLOCATE-SYSTEM-MEMORY-AT" "GET-DYNAMIC-FOREIGN-SYMBOL-ADDRESS")) @@ -1721,9 +1719,12 @@ structure representations" "COMPLEX-DOUBLE-FLOAT-SIZE" "COMPLEX-DOUBLE-FLOAT-WIDETAG" "COMPLEX-DOUBLE-REG-SC-NUMBER" "COMPLEX-DOUBLE-STACK-SC-NUMBER" "COMPLEX-IMAG-SLOT" "COMPLEX-REAL-SLOT" - "COMPLEX-LONG-FLOAT-IMAG-SLOT" "COMPLEX-LONG-FLOAT-REAL-SLOT" - "COMPLEX-LONG-FLOAT-SIZE" "COMPLEX-LONG-FLOAT-WIDETAG" - "COMPLEX-LONG-REG-SC-NUMBER" "COMPLEX-LONG-STACK-SC-NUMBER" + #!+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" @@ -1782,13 +1783,18 @@ structure representations" "INSTANCE-SLOTS-OFFSET" "INSTANCE-USAGE" "INTERIOR-REG-SC-NUMBER" "INTERNAL-ERROR-ARGS" "INTERRUPTED-FLAG" "LIST-ALLOCATED-OBJECTS" "LIST-POINTER-LOWTAG" - "LONG-FLOAT-BIAS" "LONG-FLOAT-DIGITS" "LONG-FLOAT-EXPONENT-BYTE" + ;; 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-SIZE" "LONG-FLOAT-TRAPPING-NAN-BIT" - "LONG-FLOAT-WIDETAG" - "LONG-FLOAT-VALUE-SLOT" "LONG-REG-SC-NUMBER" - "LONG-STACK-SC-NUMBER" + #!+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" @@ -1818,10 +1824,10 @@ structure representations" "SAP-STACK-SC-NUMBER" "SAP-WIDETAG" "SIGFPE-HANDLER" "SIGNED-REG-SC-NUMBER" "SIGNED-STACK-SC-NUMBER" "SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-WIDETAG" - "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG" + #!+long-float "SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-WIDETAG" "SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-WIDETAG" "SIMPLE-ARRAY-DOUBLE-FLOAT-WIDETAG" - "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG" + #!+long-float "SIMPLE-ARRAY-LONG-FLOAT-WIDETAG" "SIMPLE-ARRAY-SINGLE-FLOAT-WIDETAG" "SIMPLE-ARRAY-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-16-WIDETAG" "SIMPLE-ARRAY-UNSIGNED-BYTE-2-WIDETAG" diff --git a/version.lisp-expr b/version.lisp-expr index 9a14db0..4625155 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -18,4 +18,4 @@ ;;; internal versions off the main CVS branch, it gets hairier, e.g. ;;; "0.pre7.14.flaky4.13".) -"0.7.8.28" +"0.7.8.29"