Remove debugging statement

This commit is contained in:
Juan Jose Garcia Ripoll 2008-10-25 17:11:46 +02:00
parent 75464d29dd
commit 8abfb0da7d

View file

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