Changeset 14173


Ignore:
Timestamp:
Aug 11, 2010, 8:55:20 PM (9 years ago)
Author:
rme
Message:

Test for ticket:708.

File:
1 edited

Legend:

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

    r14115 r14173  
    16891689        (set-macro-character #\Left-Pointing_Double_Angle_Quotation_Mark nil)))
    16901690  :win)
     1691
     1692(deftest ccl.bug#708
     1693    (flet ((one (b)
     1694             (declare (type (integer 51357426816569 68500595286128) b))
     1695             (logand b -2))
     1696           (two (b)
     1697             (logand b -2)))
     1698      (- (one 67660763903986) (two 67660763903986)))
     1699  0)
Note: See TracChangeset for help on using the changeset viewer.