Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv13779

Modified Files: parse-message.lisp Log Message: return-arguments now parses arguments-lists of MODE messages properly

Date: Mon Nov 24 22:12:01 2003 Author: eenge

Index: net-nittin-irc/parse-message.lisp diff -u net-nittin-irc/parse-message.lisp:1.6 net-nittin-irc/parse-message.lisp:1.7 --- net-nittin-irc/parse-message.lisp:1.6 Sun Nov 23 17:39:16 2003 +++ net-nittin-irc/parse-message.lisp Mon Nov 24 22:12:00 2003 @@ -1,4 +1,4 @@ -;;;; $Id: parse-message.lisp,v 1.6 2003/11/23 22:39:16 eenge Exp $ +;;;; $Id: parse-message.lisp,v 1.7 2003/11/25 03:12:00 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/parse-message.lisp,v $

;;;; See the LICENSE file for licensing information. @@ -50,7 +50,7 @@ arguments part of the message as a list. Returns nil if the arguments part is not present." (multiple-value-bind (end-position return-argument) - (cut-between string nil '(#:) :start start) + (cut-between string nil '(#: #\Return) :start start) (values end-position (tokenize-string return-argument :delimiters '(#\Space)))))