[cl-irc-cvs] r210 - trunk/example

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Jun 30 16:52:34 2008
New Revision: 210

Modified:
   trunk/example/cliki.lisp
Log:
Update cliki.lisp to conform to deprecation of trailing-arguments.

Modified: trunk/example/cliki.lisp
==============================================================================
--- trunk/example/cliki.lisp	(original)
+++ trunk/example/cliki.lisp	Mon Jun 30 16:52:34 2008
@@ -723,7 +723,7 @@
 
 
 (defun valid-cliki-message (message)
-  (scan *cliki-attention-prefix* (trailing-argument message)))
+  (scan *cliki-attention-prefix* (car (last (arguments message)))))
 
 (defvar *respond-to-general-hellos* nil)
 
@@ -741,15 +741,15 @@
 		 (nthcdr 10 (sb-debug:backtrace-as-list)))
 	 (return-from msg-hook))))
     (progn
-      (scan-for-more (trailing-argument message))
+      (scan-for-more (car (last (arguments message))))
       (let ((respond-to (if (string-equal (first (arguments message)) *cliki-nickname*) (source message) (first (arguments message)))))
 	(if (valid-cliki-message message)
-	    (let ((response (cliki-lookup (regex-replace *cliki-attention-prefix* (trailing-argument message) "") :sender (source message) :channel (first (irc:arguments message)))))
+	    (let ((response (cliki-lookup (regex-replace *cliki-attention-prefix* (car (last (arguments message))) "") :sender (source message) :channel (first (irc:arguments message)))))
 	      (and response (privmsg *cliki-connection* respond-to response)))
 	    (if (string-equal (first (arguments message)) *cliki-nickname*)
-		(aif (cliki-lookup (trailing-argument message) :sender (source message))
+		(aif (cliki-lookup (car (last (arguments message))) :sender (source message))
 		     (privmsg *cliki-connection* respond-to it))
-		(if (anybody-here (trailing-argument message))
+		(if (anybody-here (car (last (arguments message))))
 		    (privmsg *cliki-connection* (first (arguments message)) (format nil "~A: hello." (source message))))))
 	(take-care-of-memos respond-to (source message))))))
 
@@ -757,7 +757,7 @@
 
 (defun notice-hook (message)
   (if (and (string-equal (source message) "NickServ")
-	   (scan "owned by someone else" (trailing-argument message)))
+	   (scan "owned by someone else" (car (last (arguments message)))))
       (privmsg *cliki-connection* (source message) (format nil "IDENTIFY ~A" *cliki-nickserv-password*))))
 
 (defun rename-cliki (new-nick)