Changeset 14901


Ignore:
Timestamp:
Jul 22, 2011, 7:04:20 PM (8 years ago)
Author:
rme
Message:

Test for r14893.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r14889 r14901  
    18121812          (error (cc) :error))))
    18131813  :win)
     1814
     1815;;; see http://clozure.com/pipermail/openmcl-devel/2011-July/012944.html
     1816(deftest ccl.mul-strength-reduce-botch
     1817  (flet ((foo ()
     1818           (let ((a 1))
     1819             (* 144115188075855873 a -1)))
     1820         (bar ()
     1821           (let ((a 1))
     1822             (* 33554433 a -1))))
     1823    (values
     1824     (= (foo) -144115188075855873)
     1825     (= (bar) -33554433)))
     1826  t t)
Note: See TracChangeset for help on using the changeset viewer.