Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp:/tmp/cvs-serv30492
Modified Files: protocol.lisp event.lisp Log Message: Remove last uses of trailing-argument.
--- /project/cl-irc/cvsroot/cl-irc/protocol.lisp 2006/02/15 20:14:21 1.36 +++ /project/cl-irc/cvsroot/cl-irc/protocol.lisp 2006/02/20 06:53:25 1.37 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.36 2006/02/15 20:14:21 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.37 2006/02/20 06:53:25 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $
;;;; See LICENSE for licensing information. @@ -889,8 +889,8 @@ (received-time message) (command message) (source message) - (arguments message) - (trailing-argument message)) + (butlast (arguments message)) + (car (last (arguments message)))) (force-output stream)))
(defmethod apply-to-hooks ((message irc-message)) @@ -940,7 +940,7 @@ (command message) (ctcp-command message) (source message) - (arguments message) - (trailing-argument message)) + (butlast (arguments message)) + (car (last (arguments message)))) (force-output stream)))
--- /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/19 22:47:40 1.20 +++ /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/20 06:53:25 1.21 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.20 2006/02/19 22:47:40 ehuelsmann Exp $ +;;;; $Id: event.lisp,v 1.21 2006/02/20 06:53:25 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $
;;;; See LICENSE for licensing information. @@ -332,7 +332,7 @@ (connection message) :notice (source message) (make-ctcp-message - (format nil "PING ~A" (trailing-argument message))))) + (format nil "PING ~A" (car (last (arguments message)))))
(defmethod irc-message-event (connection (message ctcp-dcc-chat-request-message)) (declare (ignore connection))