[Sbcl-commits] CVS: sbcl/tests compiler.pure.lisp,1.218,1.219

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv14643/tests

Modified Files:
	compiler.pure.lisp 
Log Message:
1.0.34.16: Test case for ROUND brokenness


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.218
retrieving revision 1.219
diff -u -d -r1.218 -r1.219
--- compiler.pure.lisp	26 Jan 2010 15:42:43 -0000	1.218
+++ compiler.pure.lisp	30 Jan 2010 21:30:50 -0000	1.219
@@ -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))))