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)