[flexi-streams-cvs] r14 - branches/hans

[hhubner at common-lisp.net]

Author: hhubner
Date: Fri May  9 04:37:58 2008
New Revision: 14

Modified:
   branches/hans/input.lisp
Log:
remove debug print


Modified: branches/hans/input.lisp
==============================================================================
--- branches/hans/input.lisp	(original)
+++ branches/hans/input.lisp	Fri May  9 04:37:58 2008
@@ -338,7 +338,6 @@
                                                                 #'read-char-code
                                                                 #'unread-char-code)
                   until (eql char :eof)
-                  do (format t "char ~S~%" char)
                   do (vector-push char string))
                string)))))))