Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 14673)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 14674)
@@ -1745,2 +1745,10 @@
   -1d0)
 
+(deftest ccl.bug#830
+  (let ((val #c(1d300 1d300)))
+    (handler-case
+	(progn
+	  (abs val)
+	  :win)
+      (floating-point-overflow (c) c)))
+  :win)