From 8abfb0da7d8d0ee31fb4827d62c3db3f8430dfac Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr.(none)>
Date: Sat, 25 Oct 2008 17:11:46 +0200
Subject: [PATCH] Remove debugging statement

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

diff --git a/src/cmp/cmpname.lsp b/src/cmp/cmpname.lsp
index f6ef04caf..e57d0cf5e 100644
--- a/src/cmp/cmpname.lsp
+++ b/src/cmp/cmpname.lsp
@@ -91,7 +91,6 @@ the function name it precedes."
     (when (search-tag stream tag)
       (let ((name (read-name stream)))
 	(cmpnote "Found tag: ~S for ~A" name file)
-	(print name)
 	name))))
 
 (defun remove-prefix (prefix name)