X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=package-data-list.lisp-expr;h=87a3f64c9521e62175ca6f289a5aaac99203dfb8;hb=1fd80272bd0a0510113978a33066622e4fd506a7;hp=774f0e89def387ff8ff318c0d17301d4cdab628d;hpb=d75b4eb603f1e9e366997c8e378fe0ae0d79b5d9;p=sbcl.git

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 774f0e8..87a3f64 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -552,11 +552,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; WITH-STANDARD-IO-SYNTAX or something.)
              "*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
 
-             ;; KLUDGE: CMU CL had
-             ;; "*IGNORE-FLOATING-POINT-UNDERFLOW*", which seemed
-             ;; like a reasonable idea but doesn't seem to be supported
-             ;; now? -- WHN 19991206
-
              ;; extended declarations..
              "FREEZE-TYPE" "INHIBIT-WARNINGS"
              "MAYBE-INLINE"
@@ -586,7 +581,6 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
              ;; want to do this stuff.
              "FLOAT-DENORMALIZED-P"
              "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
-             "FLOATING-POINT-INVALID"
              "FLOAT-INFINITY-P"
              "SHORT-FLOAT-NEGATIVE-INFINITY"
              "SHORT-FLOAT-POSITIVE-INFINITY"
@@ -692,6 +686,7 @@ retained, possibly temporariliy, because it might be used internally."
 
              ;; error-reporting facilities
              "SIMPLE-CONTROL-ERROR" "SIMPLE-FILE-ERROR"
+             "SIMPLE-PARSE-ERROR"
              "SIMPLE-PROGRAM-ERROR" "SIMPLE-STREAM-ERROR"
              "SIMPLE-STYLE-WARNING"
              "STYLE-WARN"
@@ -831,7 +826,7 @@ retained, possibly temporariliy, because it might be used internally."
              "C-STRINGS->STRING-LIST"
 
              ;; misc. utilities used internally
-             "LEGAL-FUN-NAME-P"
+             "LEGAL-FUN-NAME-P" "LEGAL-FUN-NAME-OR-TYPE-ERROR"
              "FUN-NAME-BLOCK-NAME"
 	     "FUN-NAME-INLINE-EXPANSION"
              "WHITESPACE-CHAR-P"
@@ -929,7 +924,8 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
              "%ATAN" "%ATAN2" "%ATANH"
              "%CALLER-FRAME-AND-PC" "%CHECK-BOUND" "%CLOSURE-FUN"
              "%CLOSURE-INDEX-REF" "%COS" "%COS-QUICK"
-             "%COSH" "%DEPOSIT-FIELD" "%DETECT-STACK-EXHAUSTION"
+             "%COSH" "%DATA-VECTOR-AND-INDEX"
+	     "%DEPOSIT-FIELD"
              "%DOUBLE-FLOAT" "%DPB" "%EXP" "%EXPM1"
              "%FIND-POSITION" "%FIND-POSITION-VECTOR-MACRO"
              "%FIND-POSITION-IF" "%FIND-POSITION-IF-VECTOR-MACRO"
@@ -1806,7 +1802,7 @@ structure representations"
              "PRIMITIVE-OBJECT-LOWTAG" "PRIMITIVE-OBJECT-NAME"
              "PRIMITIVE-OBJECT-OPTIONS" "PRIMITIVE-OBJECT-P"
              "PRIMITIVE-OBJECT-SIZE" "PRIMITIVE-OBJECT-SLOTS"
-             "PRIMITIVE-OBJECT-VARIABLE-LENGTH" "PRINT-ALLOCATED-OBJECTS"
+             "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*"
@@ -1854,6 +1850,7 @@ structure representations"
              "BINDING-STACK-START" "BINDING-STACK-END" 
              "CONTROL-STACK-START" "CONTROL-STACK-END"
              "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"