From: Christophe Rhodes <csr21@cantab.net>
Date: Sat, 30 Jan 2010 21:30:50 +0000 (+0000)
Subject: 1.0.34.16: Test case for ROUND brokenness
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ab1d7976e745cabcc2e77c5b6eecc7fe6ad8111e;p=sbcl.git

1.0.34.16: Test case for ROUND brokenness
---

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index de92498..bb495bd 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -3396,3 +3396,10 @@
       (:no-error (&rest values)
         (declare (ignore values))
         (error "no error")))))
+
+(with-test (:name :unary-round-type-derivation)
+  (let* ((src '(lambda (zone)
+                (multiple-value-bind (h m) (truncate (abs zone) 1.0)
+                  (round (* 60.0 m)))))
+         (fun (compile nil src)))
+    (assert (= (funcall fun 0.5) 30))))
diff --git a/version.lisp-expr b/version.lisp-expr
index 8c7124e..d98563c 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.34.15"
+"1.0.34.16"