[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

Update of /project/cl-irc/cvsroot/cl-irc
In directory common-lisp:/tmp/cvs-serv17343

Modified Files:
	parse-message.lisp protocol.lisp 
Log Message:
Silence SBCL compile warnings (one of which being a real bug).

--- /project/cl-irc/cvsroot/cl-irc/parse-message.lisp	2006/02/15 19:03:53	1.7
+++ /project/cl-irc/cvsroot/cl-irc/parse-message.lisp	2006/02/15 19:14:33	1.8
@@ -1,4 +1,4 @@
-;;;; $Id: parse-message.lisp,v 1.7 2006/02/15 19:03:53 ehuelsmann Exp $
+;;;; $Id: parse-message.lisp,v 1.8 2006/02/15 19:14:33 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/parse-message.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -164,12 +164,12 @@
            (ctcp (ctcp-message-type trailing-argument)))
       (when command
         (cond
-          (nil ;(irc-error-reply-p command)
+          ;;((irc-error-reply-p command)
            ;; Disable for now, as it prevents adding hooks for some useful
            ;; error types
-           (progn
-             (setf command (find-reply-name (parse-integer command)))
-             (setf class 'irc-error-reply)))
+           ;;(progn
+           ;;  (setf command (find-reply-name (parse-integer command)))
+           ;;  (setf class 'irc-error-reply)))
           ((numeric-reply-p command)
            (progn
              (setf command (find-reply-name (parse-integer command)))
--- /project/cl-irc/cvsroot/cl-irc/protocol.lisp	2006/02/15 19:03:53	1.34
+++ /project/cl-irc/cvsroot/cl-irc/protocol.lisp	2006/02/15 19:14:33	1.35
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.34 2006/02/15 19:03:53 ehuelsmann Exp $
+;;;; $Id: protocol.lisp,v 1.35 2006/02/15 19:14:33 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -261,7 +261,8 @@
 (defun start-background-message-handler (connection)
   "Read messages from the `connection', parse them and dispatch
 irc-message-event on them. Returns background process ID if available."
-  (flet ((do-loop () (read-message-loop connection)))
+  (flet (#-(and sbcl (not sb-thread))
+           (do-loop () (read-message-loop connection)))
     (let ((name (format nil "irc-hander-~D" (incf *process-count*))))
       #+(or allegro cmu lispworks sb-thread openmcl armedbear)
       (start-process #'do-loop name)
@@ -426,7 +427,8 @@
 ;; generic functions.  need to resolve.
 (defmethod dcc-close ((connection dcc-connection))
   #+(and sbcl (not sb-thread))
-  (sb-sys:invalidate-descriptor (sb-sys:fd-stream-fd (stream connection)))
+  (sb-sys:invalidate-descriptor
+   (sb-sys:fd-stream-fd (network-stream connection)))
   (close (network-stream connection))
   (setf (user connection) nil)
   (setf *dcc-connections* (remove connection *dcc-connections*))