Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv32586
Modified Files: protocol.lisp package.lisp command.lisp Log Message: avoid setting symbol-functions on cl exported symbols Date: Tue Dec 16 13:57:36 2003 Author: krosenberg
Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.24 net-nittin-irc/protocol.lisp:1.25 --- net-nittin-irc/protocol.lisp:1.24 Tue Dec 16 13:30:32 2003 +++ net-nittin-irc/protocol.lisp Tue Dec 16 13:57:36 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.24 2003/12/16 18:30:32 krosenberg Exp $ +;;;; $Id: protocol.lisp,v 1.25 2003/12/16 18:57:36 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
;;;; See LICENSE for licensing information. @@ -143,7 +143,7 @@ message))
(defmethod send-irc-message ((connection connection) command - trailing-argument &rest arguments) + &optional trailing-argument &rest arguments) "Turn the arguments into a valid IRC message and send it to the server, via the `connection'." (let ((raw-message (make-irc-message command @@ -186,7 +186,7 @@ user at this end can be reached via your normal connection object.") (stream :initarg :stream - :accessor stream) + :accessor dcc-stream) (output-stream :initarg :output-stream :accessor output-stream @@ -223,7 +223,7 @@ (warn "make-dcc-connection not supported for this implementation."))
(defmethod read-message ((connection dcc-connection)) - (let ((message (read-line (stream connection)))) + (let ((message (read-line (dcc-stream connection)))) (format (output-stream connection) "~A~%" message) (force-output (output-stream connection)) message)) @@ -232,19 +232,19 @@ (loop while (read-message connection)))
(defmethod send-dcc-message ((connection dcc-connection) message) - (format (stream connection) "~A~%" message)) + (format (dcc-stream connection) "~A~%" message))
;; argh. I want to name this quit but that gives me issues with ;; generic functions. need to resolve. (defmethod dcc-close ((connection dcc-connection)) - (close (stream connection)) + (close (dcc-stream connection)) (setf (user connection) nil) (setf *dcc-connections* (remove connection *dcc-connections*)) #+sbcl (sb-bsd-sockets:socket-close (socket connection)) )
(defmethod connectedp ((connection dcc-connection)) - (let ((stream (stream connection))) + (let ((stream (dcc-stream connection))) (and (streamp stream) (open-stream-p stream))))
Index: net-nittin-irc/package.lisp diff -u net-nittin-irc/package.lisp:1.11 net-nittin-irc/package.lisp:1.12 --- net-nittin-irc/package.lisp:1.11 Mon Nov 24 22:35:55 2003 +++ net-nittin-irc/package.lisp Tue Dec 16 13:57:36 2003 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.11 2003/11/25 03:35:55 eenge Exp $ +;;;; $Id: package.lisp,v 1.12 2003/12/16 18:57:36 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -100,7 +100,7 @@ :away :rehash :die - :restart + :restart- :summon :users- :wallops
Index: net-nittin-irc/command.lisp diff -u net-nittin-irc/command.lisp:1.9 net-nittin-irc/command.lisp:1.10 --- net-nittin-irc/command.lisp:1.9 Tue Dec 16 13:30:32 2003 +++ net-nittin-irc/command.lisp Tue Dec 16 13:57:36 2003 @@ -1,4 +1,4 @@ -;;;; $Id: command.lisp,v 1.9 2003/12/16 18:30:32 krosenberg Exp $ +;;;; $Id: command.lisp,v 1.10 2003/12/16 18:57:36 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $
;;;; See LICENSE for licensing information. @@ -274,7 +274,7 @@ (defmethod die ((connection connection)) (send-irc-message connection :die))
-(defmethod restart ((connection connection)) +(defmethod restart- ((connection connection)) (send-irc-message connection :restart))
(defmethod summon ((connection connection) (nickname string)