[net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp net-nittin-irc/package.lisp net-nittin-irc/command.lisp

[Kevin Rosenberg]

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)