Changeset 14901

Timestamp:

Jul 22, 2011, 12:04:20 PM (13 years ago)

Author:

R. Matthew Emerson

Message:

Test for r14893.

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1812 +1812 @@
           (error (cc) :error))))
   :win)
+
+;;; see http://clozure.com/pipermail/openmcl-devel/2011-July/012944.html
+(deftest ccl.mul-strength-reduce-botch
+  (flet ((foo ()
+           (let ((a 1))
+             (* 144115188075855873 a -1)))
+         (bar ()
+           (let ((a 1))
+             (* 33554433 a -1))))
+    (values
+     (= (foo) -144115188075855873)
+     (= (bar) -33554433)))
+  t t)