Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 14667)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 14668)
@@ -1737,5 +1737,10 @@
   1075867653)
 
+(deftest ccl.bug#828
+  (float-sign (realpart (atan #c(-0d0 2d0))))
+  -1d0)
+
 (deftest ccl.bug#829
   (float-sign (imagpart (atanh #c(-2d0 -0d0))))
   -1d0)
+