[cl-irc-cvs] r154 - trunk

[ehuelsmann at common-lisp.net]

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)