Changeset 11602


Ignore:
Timestamp:
Jan 8, 2009, 6:42:38 PM (11 years ago)
Author:
gz
Message:

Regression test for overflow bug

File:
1 edited

Legend:

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

    r11599 r11602  
    731731  1)
    732732
     733
     734(deftest ccl.bug-overflow-handling
     735    (funcall (test-compile '(lambda ()
     736                             (let ((upper-bound most-positive-fixnum))
     737                               (let ((lower-bound (- (1+ upper-bound))))
     738                                 lower-bound)))))
     739  #.most-negative-fixnum)
    733740
    734741;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.