X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=0aa097449c4a6cbfadaeae7d1acab968e224de91;hb=47b7637b3e7c012c6dfa754e107c9bc7d74e73bd;hp=92ada6eb8511de16774efb65c393049930ff35b8;hpb=8bb34dad31b73a7bd4ca17b1630f4f5bdc94f347;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 92ada6e..0aa0974 100644
--- 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)