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 (file)
--- 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 (file)
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 "#<compiled-debug-function ~a>"
+                 (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 (file)
--- 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 (file)
--- 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"