Changeset 211 for trunk/example

Timestamp:

06/30/08 21:29:32 (17 years ago)

Author:

Erik Huelsmann

Message:

Update specbot.lisp to conform to deprecation of trailing-arguments.

File:

• trunk/example/specbot.lisp (modified) (1 diff)

trunk/example/specbot.lisp ¶

@@ -106 +106 @@
                          (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