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 (file)
--- 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 (file)
--- 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"