[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

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