Changeset 14173

Timestamp:

Aug 11, 2010, 8:55:20 PM (9 years ago)

Author:

rme

Message:

Test for ticket:708.

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1689 +1689 @@
         (set-macro-character #\Left-Pointing_Double_Angle_Quotation_Mark nil)))
   :win)
+
+(deftest ccl.bug#708
+    (flet ((one (b)
+             (declare (type (integer 51357426816569 68500595286128) b))
+             (logand b -2))
+           (two (b)
+             (logand b -2)))
+      (- (one 67660763903986) (two 67660763903986)))
+  0)