[cl-irc-cvs] r208 - trunk

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Feb 12 16:50:35 2008
New Revision: 208

Modified:
   trunk/command.lisp
   trunk/protocol.lisp
Log:
Fix errors reported by slyrus on #lisp (freenode irc).

Modified: trunk/command.lisp
==============================================================================
--- trunk/command.lisp	(original)
+++ trunk/command.lisp	Tue Feb 12 16:50:35 2008
@@ -474,7 +474,7 @@
 (defmethod dcc-request-cancel ((connection connection) token)
   (dcc-remove-offer connection token)
   (if (stringp token)
-      (let ((offer (dcc-offer-get connection token)))
+      (let ((offer (dcc-get-offer connection token)))
         ;; We have a passive request; active ones have an associated
         ;; socket instead...
         (ctcp-reply connection (first offer)

Modified: trunk/protocol.lisp
==============================================================================
--- trunk/protocol.lisp	(original)
+++ trunk/protocol.lisp	Tue Feb 12 16:50:35 2008
@@ -1086,7 +1086,7 @@
    (raw-message-string
     :initarg :raw-message-string
     :accessor raw-message-string
-    :type sting))
+    :type string))
   (:documentation ""))
 
 (defmethod print-object ((object dcc-message) stream)