1.0.10.10: theoretical #!+long-float fix to MAKE-MEMBER-TYPE

* 0.0l0, not 0.0lo. Thanks to Peter Graves.

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 92ada6e..0aa0974 100644 (file)
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -432,7 +432,7 @@
                           (member n-double doubles)
                           (or (aver (= 2 (length doubles))) t)))
             #!+long-float
-            (longp (and (member 0.0lo longs)
+            (longp (and (member 0.0l0 longs)
                         (member n-long longs)
                         (or (aver (= 2 (lenght longs))) t))))
         (if (or singlep doublep #!+long-float longp)

diff --git a/version.lisp-expr b/version.lisp-expr
index 112b106..8758dac 100644 (file)
--- 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".)
-"1.0.10.9"
+"1.0.10.10"