Changeset 14682


Ignore:
Timestamp:
Mar 18, 2011, 9:19:28 PM (9 years ago)
Author:
rme
Message:

Test for ticket:674.

File:
1 edited

Legend:

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

    r14676 r14682  
    17711771      (floating-point-overflow (c) c)))
    17721772  :win)
     1773
     1774(deftest ccl.bug#674
     1775  (let ((val #c(1d160 1)))
     1776    (handler-case
     1777        (progn
     1778          (/ val)
     1779          :win)
     1780      (floating-point-overflow (c) c)))
     1781  :win)
Note: See TracChangeset for help on using the changeset viewer.