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

[Kevin Rosenberg]

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv1338

Modified Files:
	command.lisp protocol.lisp 
Log Message:
conditionalize sb-bsd-socket usage and warn for implementations where function not implemented
Date: Tue Dec 16 13:30:32 2003
Author: krosenberg

Index: net-nittin-irc/command.lisp
diff -u net-nittin-irc/command.lisp:1.8 net-nittin-irc/command.lisp:1.9
--- net-nittin-irc/command.lisp:1.8	Sun Nov 23 18:21:57 2003
+++ net-nittin-irc/command.lisp	Tue Dec 16 13:30:32 2003
@@ -1,4 +1,4 @@
-;;;; $Id: command.lisp,v 1.8 2003/11/23 23:21:57 eenge Exp $
+;;;; $Id: command.lisp,v 1.9 2003/12/16 18:30:32 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -304,6 +304,7 @@
   (send-irc-message connection :privmsg (make-ctcp-message message) target))
 
 (defmethod ctcp-chat-initiate ((connection connection) (nickname string))
+  #+sbcl
   (let ((socket (sb-bsd-sockets:make-inet-socket :stream :tcp))
         (port 44347))
     (sb-bsd-sockets:socket-bind socket #(127 0 0 1) port) ; arbitrary port
@@ -315,4 +316,6 @@
     (make-dcc-connection :user (find-user connection nickname)
                          :input-stream t
                          :output-stream (sb-bsd-sockets:socket-make-stream socket :input t :output t :buffering :none)
-                         :socket socket)))
+                         :socket socket))
+  #-sbcl (warn "ctcp-chat-initiate is not supported on this implementation.")
+  )


Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.23 net-nittin-irc/protocol.lisp:1.24
--- net-nittin-irc/protocol.lisp:1.23	Tue Nov 25 08:14:34 2003
+++ net-nittin-irc/protocol.lisp	Tue Dec 16 13:30:32 2003
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.23 2003/11/25 13:14:34 eenge Exp $
+;;;; $Id: protocol.lisp,v 1.24 2003/12/16 18:30:32 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -211,13 +211,16 @@
                                  (remote-address nil)
                                  (remote-port nil)
                                  (output-stream t))
+  #+sbcl
   (let ((socket (sb-bsd-sockets:make-inet-socket :stream :tcp)))
     (sb-bsd-sockets:socket-connect socket remote-address remote-port)
     (make-instance 'dcc-connection
                    :user user
                    :stream (sb-bsd-sockets:socket-make-stream socket :input t :output t :buffering :none)
                    :socket socket
-                   :output-stream t)))
+                   :output-stream t))
+  #-sbcl
+  (warn "make-dcc-connection not supported for this implementation."))
 
 (defmethod read-message ((connection dcc-connection))
   (let ((message (read-line (stream connection))))
@@ -237,7 +240,8 @@
   (close (stream connection))
   (setf (user connection) nil)
   (setf *dcc-connections* (remove connection *dcc-connections*))
-  (sb-bsd-sockets:socket-close (socket connection)))
+  #+sbcl (sb-bsd-sockets:socket-close (socket connection))
+  )
 
 (defmethod connectedp ((connection dcc-connection))
   (let ((stream (stream connection)))