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

[ehuelsmann at 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