Changeset 14674

Timestamp:

Mar 11, 2011, 11:30:21 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

Test for ticket:830.

File:

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

trunk/tests/ansi-tests/ccl.lsp

@@ -1745 +1745 @@
   -1d0)
 
+(deftest ccl.bug#830
+  (let ((val #c(1d300 1d300)))
+    (handler-case
+        (progn
+          (abs val)
+          :win)
+      (floating-point-overflow (c) c)))
+  :win)