From 300c53d2503e1bae61dc15172d314ee7cffac1ef Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 27 Sep 2007 15:56:06 +0000 Subject: [PATCH] 1.0.10.10: theoretical #!+long-float fix to MAKE-MEMBER-TYPE * 0.0l0, not 0.0lo. Thanks to Peter Graves. --- src/code/early-type.lisp | 2 +- version.lisp-expr | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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) diff --git a/version.lisp-expr b/version.lisp-expr index 112b106..8758dac 100644 --- 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" -- 1.7.10.4