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

[sbcl.git] / src / code / early-type.lisp

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)