Author: ehuelsmann Date: Sun May 14 10:26:40 2006 New Revision: 154
Modified: trunk/event.lisp trunk/protocol.lisp trunk/utility.lisp Log: Fix issues with newly added code.
Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Sun May 14 10:26:40 2006 @@ -135,8 +135,8 @@ (let ((channel (find-channel connection channel))) (setf (visibility channel) (or (car (assoc chan-visibility - '((#= :public) (#* :private) (#@ :secret)) - :test #'char=)) + '(("=" :public) ("*" :private) ("@" :secret)) + :test #'string=)) :unknown)) (unless (has-mode-p channel 'namreply-in-progress) (add-mode channel 'namreply-in-progress
Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Sun May 14 10:26:40 2006 @@ -335,7 +335,6 @@ :fill-pointer t) '(13 10)) (setf (fill-pointer buf) buf-len) - (print buf) (let* ((message (create-irc-message (try-decode-line buf *default-incoming-external-formats*)))) (setf (connection message) connection) message))
Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Sun May 14 10:26:40 2006 @@ -121,7 +121,7 @@ (let ((read-fun (if (subtypep (stream-element-type stream) 'integer) (if non-blocking #'read-byte-no-hang #'read-byte) (if non-blocking #'read-char-no-hang #'read-char))) - (limit-vector (coerce limit '(vector * t))) + (limit-vector (coerce limit '(vector t *))) (targ-max (1- (length target))) (limit-max (length limit)) (limit-cur 0)