From ehuelsmann at common-lisp.net  Sun Jun 29 22:31:23 2008
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Sun, 29 Jun 2008 18:31:23 -0400 (EDT)
Subject: [cl-irc-cvs] r209 - trunk
Message-ID: <20080629223123.6A43669006@common-lisp.net>

Author: ehuelsmann
Date: Sun Jun 29 18:31:22 2008
New Revision: 209

Modified:
   trunk/utility.lisp
Log:
Update for flexi-streams 1.0(.3?).


Modified: trunk/utility.lisp
==============================================================================
--- trunk/utility.lisp	(original)
+++ trunk/utility.lisp	Sun Jun 29 18:31:22 2008
@@ -119,7 +119,7 @@
                                ;; :element-type 'character
                                :external-format ex-fmt)))
                   (read-line flexi nil nil)))
-              (flexi-streams:flexi-stream-encoding-error ()
+              (flexi-streams:external-format-encoding-error ()
                   nil)))
         if decoded
         do (return decoded)))


From ehuelsmann at common-lisp.net  Mon Jun 30 20:52:34 2008
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Mon, 30 Jun 2008 16:52:34 -0400 (EDT)
Subject: [cl-irc-cvs] r210 - trunk/example
Message-ID: <20080630205234.C405B13071@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)


From ehuelsmann at common-lisp.net  Mon Jun 30 21:29:33 2008
From: ehuelsmann at common-lisp.net (ehuelsmann at common-lisp.net)
Date: Mon, 30 Jun 2008 17:29:33 -0400 (EDT)
Subject: [cl-irc-cvs] r211 - trunk/example
Message-ID: <20080630212933.D03085E0FF@common-lisp.net>

Author: ehuelsmann
Date: Mon Jun 30 17:29:32 2008
New Revision: 211

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

Modified: trunk/example/specbot.lisp
==============================================================================
--- trunk/example/specbot.lisp	(original)
+++ trunk/example/specbot.lisp	Mon Jun 30 17:29:32 2008
@@ -105,10 +105,10 @@
   (let ((destination (if (string-equal (first (arguments message)) *nickname*)
                          (source message)
                          (first (arguments message))))
-        (to-lookup (strip-address (trailing-argument message))))
+        (to-lookup (strip-address (car (last (arguments message))))))
     (if (and (or
               (string-equal (first (arguments message)) *nickname*)
-              (not (string= to-lookup (trailing-argument message))))
+              (not (string= to-lookup (car (last (arguments message))))))
              (member to-lookup '("help" "help?") :test #'string-equal))
         (progn
           (privmsg *connection* destination