[cl-irc-cvs] r192 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Mon Apr 23 02:47:15 2007
New Revision: 192

Modified:
   trunk/parse-message.lisp
Log:
Rename shadowing local binding (type -> sess-type).

Modified: trunk/parse-message.lisp
==============================================================================
--- trunk/parse-message.lisp	(original)
+++ trunk/parse-message.lisp	Mon Apr 23 02:47:15 2007
@@ -123,38 +123,38 @@
   "Is the `string' actually a representation of the DCC `type'?"
   (let* ((args (tokenize-string (string-trim (list +soh+) string)))
          (dcc (string-upcase (first args)))
-         (type (string-upcase (second args))))
+         (sess-type (string-upcase (second args))))
     (when (string= dcc "DCC")
       (let ((r
              ;; the list below was found on Wikipedia and in kvirc docs
-             (second (assoc type '(("CHAT" :dcc-chat-request)
-                                   ("SEND" :dcc-send-request)
-                                   ("XMIT" :dcc-xmit-request)
-                                   ("SCHAT" :dcc-schat-request)
-                                   ("SSEND" :dcc-ssend-request)
-                                   ("REVERSE" :dcc-reverse-request)
-                                   ("RSEND" :dcc-rsend-request)
-                                   ("TSEND" :dcc-tsend-request)
-                                   ("STSEND" :dcc-stsend-request)
-                                   ("TSSEND" :dcc-stsend-request)
-                                   ("RESUME" :dcc-resume-request)
-                                   ("ACCEPT" :dcc-accept-request)
-                                   ;; GET
-                                   ;; TGET
-                                   ;; STGET
-                                   ;; TSGET
-                                   ;; RECV
-                                   ;; SRECV
-                                   ;; TRECV
-                                   ;; STRECV
-                                   ;; TSRECV
-                                   ;; RSEND
-                                   ;; SRSEND
-                                   ;; TRSEND
-                                   ;; STRSEND
-                                   ;; TSRSEND
-                                   ;; VOICE
-                                   ) :test #'string=))))
+             (second (assoc sess-type '(("CHAT" :dcc-chat-request)
+                                        ("SEND" :dcc-send-request)
+                                        ("XMIT" :dcc-xmit-request)
+                                        ("SCHAT" :dcc-schat-request)
+                                        ("SSEND" :dcc-ssend-request)
+                                        ("REVERSE" :dcc-reverse-request)
+                                        ("RSEND" :dcc-rsend-request)
+                                        ("TSEND" :dcc-tsend-request)
+                                        ("STSEND" :dcc-stsend-request)
+                                        ("TSSEND" :dcc-stsend-request)
+                                        ("RESUME" :dcc-resume-request)
+                                        ("ACCEPT" :dcc-accept-request)
+                                        ;; GET
+                                        ;; TGET
+                                        ;; STGET
+                                        ;; TSGET
+                                        ;; RECV
+                                        ;; SRECV
+                                        ;; TRECV
+                                        ;; STRECV
+                                        ;; TSRECV
+                                        ;; RSEND
+                                        ;; SRSEND
+                                        ;; TRSEND
+                                        ;; STRSEND
+                                        ;; TSRSEND
+                                        ;; VOICE
+                                        ) :test #'string=))))
         (when (eq r type)
           type)))))