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