diff --git a/src/cmp/cmpffi.lsp b/src/cmp/cmpffi.lsp
index 1c43f6d95..fd4845201 100644
--- a/src/cmp/cmpffi.lsp
+++ b/src/cmp/cmpffi.lsp
@@ -337,7 +337,6 @@
 	 coerced-arguments)
     ;; If the expression begins with @[0-9a-z]*, this means we are
     ;; saving some variables.
-    (print c-expression)
     (when (and (> (length c-expression) 1)
 	       (eq (char c-expression 0) #\@))
       (do ((ndx 1 (1+ ndx)))