[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp:/tmp/cvs-serv20440

Modified Files:
	event.lisp parse-message.lisp 
Log Message:
Remove debugging print forms.

--- /project/cl-irc/cvsroot/cl-irc/event.lisp	2006/02/15 23:24:34	1.18
+++ /project/cl-irc/cvsroot/cl-irc/event.lisp	2006/02/15 23:47:19	1.19
@@ -1,4 +1,4 @@
-;;;; $Id: event.lisp,v 1.18 2006/02/15 23:24:34 ehuelsmann Exp $
+;;;; $Id: event.lisp,v 1.19 2006/02/15 23:47:19 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -232,8 +232,6 @@
   (destructuring-bind
       (target &rest arguments)
       (arguments message)
-    (print (arguments message))
-    (print arguments)
     (let* ((connection (connection message))
            (target (or (find-channel connection target)
                        (find-user connection target)))
--- /project/cl-irc/cvsroot/cl-irc/parse-message.lisp	2006/02/15 19:14:33	1.8
+++ /project/cl-irc/cvsroot/cl-irc/parse-message.lisp	2006/02/15 23:47:19	1.9
@@ -1,4 +1,4 @@
-;;;; $Id: parse-message.lisp,v 1.8 2006/02/15 19:14:33 ehuelsmann Exp $
+;;;; $Id: parse-message.lisp,v 1.9 2006/02/15 23:47:19 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/parse-message.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -64,11 +64,9 @@
   (multiple-value-bind
       (start return-string)
       (return-arguments string :start start)
-    (print return-string)
     (multiple-value-bind
         (return-index trailing)
         (return-trailing-argument string :start start)
-      (print trailing)
       (values return-index
               (append return-string (when (and trailing (string/= "" trailing))
                                       (list trailing)))))))