Changeset 14682

Timestamp:

Mar 18, 2011, 2:19:28 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Test for ticket:674.

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1771 +1771 @@
       (floating-point-overflow (c) c)))
   :win)
+
+(deftest ccl.bug#674
+  (let ((val #c(1d160 1)))
+    (handler-case
+        (progn
+          (/ val)
+          :win)
+      (floating-point-overflow (c) c)))
+  :win)