Changeset 15921


Ignore:
Timestamp:
Oct 1, 2013, 9:02:54 AM (8 years ago)
Author:
gb
Message:

Test for ticket:1115 .

File:
1 edited

Legend:

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

    r15879 r15921  
    18981898    (string-equal :a :ba :start2 1)
    18991899  t)
     1900
     1901(deftest ccl.bug#1115
     1902    (mapcar (lambda (x)
     1903              (ignore-errors (not (null (ccl::require-type x '(unsigned-byte 64))))))
     1904            (list (ash 1 64) (ash 1 63) (ash 1 31) (ash 1 32) -1 1 4177526783))
     1905  (nil t t t nil t t))
Note: See TracChangeset for help on using the changeset viewer.