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)
