Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 13156)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 13157)
@@ -1597,2 +1597,7 @@
       :win)
   :win)
+
+(deftest ccl.bug#621
+    (test-compiler-warning "(defun ccl.bug#621.fn ()
+                              (the (values integer real) (round 2.5)))")
+  ())