0.7.9.41:

[sbcl.git] / package-data-list.lisp-expr

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index a5d0e1e..8da64b8 100644 (file)
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -693,6 +693,7 @@ retained, possibly temporariliy, because it might be used internally."
              "SIMPLE-PARSE-ERROR"
              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
              "SIMPLE-STYLE-WARNING"
+            "SPECIAL-FORM-FUNCTION"
              "STYLE-WARN"
 
              ;; bootstrapping magic, to make things happen both in
@@ -747,6 +748,7 @@ retained, possibly temporariliy, because it might be used internally."
              "DEFENUM"
              "DEFPRINTER"
              "AVER" "ENFORCE-TYPE"
+             "AWHEN" "ACOND" "IT"
 
             ;; ..and CONDITIONs..
             "BUG"
@@ -758,11 +760,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"
@@ -792,6 +794,7 @@ retained, possibly temporariliy, because it might be used internally."
              ;; hash caches
              "DEFINE-HASH-CACHE"
              "DEFUN-CACHED"
+             "DEFINE-CACHED-SYNONYM"
 
              ;; time
              "FORMAT-DECODED-TIME"
@@ -939,7 +942,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 +994,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 +1010,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 +1025,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 +1034,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 +1066,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,17 +1087,21 @@ 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-NULL-LEXENV" "MAKE-NULL-INTERACTIVE-LEXENV"
+            "MAKE-NUMERIC-TYPE"
              "MAKE-SINGLE-FLOAT" "MAKE-SPECIALIZABLE-ARRAY"
              "%MAKE-INSTANCE"
             "MAKE-VALUE-CELL"
@@ -1119,7 +1123,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 +1136,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 +1173,22 @@ 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-COUNT"
              "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 +1203,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 +1211,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 +1289,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 +1345,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 +1507,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 +1527,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 +1539,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 +1724,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 +1788,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 +1829,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"