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*))