[Sbcl-commits] CVS: sbcl/tests float.pure.lisp, 1.40, 1.41 time.pure.lisp, 1.4, 1.5

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv16572/tests

Modified Files:
	float.pure.lisp time.pure.lisp 
Log Message:
1.0.20.33: two buglets, LOG and TIME

 * Unbreak (LOG DOUBLE INTEGER).

 * LAMBDAS-CONVERTED / LAMBDA-CONVERSIONS confusion in PRINT-TIME.
   (patch by Erik Marsden)


Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- float.pure.lisp	26 Sep 2008 16:24:05 -0000	1.40
+++ float.pure.lisp	30 Sep 2008 07:56:57 -0000	1.41
@@ -208,7 +208,9 @@
   (assert (eql 2567.6046442221327d0
                (log (loop for n from 1 to 1000 for f = 1 then (* f n)
                           finally (return f))
-                    10d0))))
+                    10d0)))
+  ;; both ways
+  (assert (eql (log 123123123.0d0 10) (log 123123123 10.0d0))))
 
 (with-test (:name :log-base-zero-return-type)
   (assert (eql 0.0f0 (log 123 (eval 0))))

Index: time.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/time.pure.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- time.pure.lisp	14 Jul 2005 16:30:45 -0000	1.4
+++ time.pure.lisp	30 Sep 2008 07:56:57 -0000	1.5
@@ -27,3 +27,6 @@
                           (when (>= time time1)
                             (return)))))))
          3)
+
+(with-test (:name :time/lambdas-converted)
+  (time (compile nil '(lambda () 42))))