[cl-xmpp-cvs] CVS update: cl-xmpp/cl-xmpp.lisp cl-xmpp/package.lisp - cl-xmpp-cvs@common-lisp.net - mailman3.common-lisp.net

3 Nov 2005

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory common-lisp.net:/tmp/cvs-serv2289
Modified Files:
    cl-xmpp.lisp package.lisp 
Log Message:
adding openmcl support from lemonodor
Date: Thu Nov  3 21:55:11 2005
Author: eenge
Index: cl-xmpp/cl-xmpp.lisp
diff -u cl-xmpp/cl-xmpp.lisp:1.7 cl-xmpp/cl-xmpp.lisp:1.8

--- cl-xmpp/cl-xmpp.lisp:1.7	Mon Oct 31 22:07:15 2005
+++ cl-xmpp/cl-xmpp.lisp	Thu Nov  3 21:55:10 2005
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.7 2005/10/31 21:07:15 eenge Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.8 2005/11/03 20:55:10 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -63,7 +63,8 @@
                           :socket socket
                           :hostname hostname
                           :port port))
-  #+allegro (let ((socket (socket:make-socket :remote-host hostname :remote-port port)))
+  #+(or allegro openmcl)
+  (let ((socket (socket:make-socket :remote-host hostname :remote-port port)))
               ;; fixme: (setf (sb-bsd-sockets:non-blocking-mode socket) t)
               (make-instance 'connection
                              :server-stream socket
@@ -95,7 +96,7 @@
 (defmethod disconnect ((connection connection))
   "Disconnect TCP connection."
   #+sbcl (sb-bsd-sockets:socket-close (socket connection))
-  #+(or allegro lispworks) (close (socket connection))
+  #+(or allegro openmcl lispworks) (close (socket connection))
   connection)
;;
Index: cl-xmpp/package.lisp
diff -u cl-xmpp/package.lisp:1.3 cl-xmpp/package.lisp:1.4
--- cl-xmpp/package.lisp:1.3	Sat Oct 29 19:25:04 2005
+++ cl-xmpp/package.lisp	Thu Nov  3 21:55:11 2005
@@ -1,4 +1,4 @@
-;;;; $Id: package.lisp,v 1.3 2005/10/29 17:25:04 eenge Exp $
+;;;; $Id: package.lisp,v 1.4 2005/11/03 20:55:11 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/package.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -7,8 +7,9 @@
(eval-when (:execute :load-toplevel :compile-toplevel)
   (defpackage :cl-xmpp
-      (:use :cl)
-    (:nicknames :xmpp)
+      (:use :cl
+	    #+allegro :socket
+	    #+openmcl :ccl)
     (:export
      ;; connection-related
      :connect :disconnect :socket :stream- :hostname :port :connectedp

    