Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 14665)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 14666)
@@ -1736,2 +1736,6 @@
     (foo -299404531 1081111751))
   1075867653)
+
+(deftest ccl.bug#829
+  (float-sign (imagpart (atanh #c(-2d0 -0d0))))
+  -1d0)