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)