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)))))