From a3785ea2a36816afae99a557ef8eae7593264f85 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Thu, 4 Sep 2008 23:48:09 +0200
Subject: [PATCH] Remove debug statement.

---
 src/cmp/cmpffi.lsp | 1 -
 1 file changed, 1 deletion(-)

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)))