projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.12.4: delete bad ROOM test
[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
(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)
(member n-long longs)
(or (aver (= 2 (lenght longs))) t))))
(if (or singlep doublep #!+long-float longp)