From eenge at common-lisp.net  Fri May 12 17:45:50 2006
From: eenge at common-lisp.net (eenge)
Date: Fri, 12 May 2006 13:45:50 -0400 (EDT)
Subject: [cl-xmpp-cvs] CVS cl-xmpp
Message-ID: <20060512174550.27C441D006@common-lisp.net>

Update of /project/cl-xmpp/cvsroot/cl-xmpp
In directory clnet:/tmp/cvs-serv13890

Modified Files:
	README cl-xmpp.lisp 
Log Message:
commiting fixes from Robert Brown, thanks!


--- /project/cl-xmpp/cvsroot/cl-xmpp/README	2005/11/28 15:15:03	1.11
+++ /project/cl-xmpp/cvsroot/cl-xmpp/README	2006/05/12 17:45:49	1.12
@@ -14,15 +14,15 @@
 ;;  (defvar *connection* (xmpp:connect-tls :hostname "talk.google.com"
                                            :jid-domain-part "gmail.com"))
 
-  * (xmpp:auth connection "username" "password" "resource")
+  * (xmpp:auth *connection* "username" "password" "resource")
 ;; or pass :mechanism :sasl-plain, :digest-md5 or sasl-digest-md5
 ;; if you loaded cl-xmpp-sasl or cl-xmpp-tls.
 
 ;; send someone a message
-  * (xmpp:message connection "username at hostname" "what's going on?")
+  * (xmpp:message *connection* "username at hostname" "what's going on?")
 
 ;; then sit back and watch the messages roll in:
-  * (xmpp:receive-stanza-loop connection)
+  * (xmpp:receive-stanza-loop *connection*)
 <MESSAGE from=username at hostname to=me at myserver>
 [....]
 ;; or use xmpp:receive-stanza if you're just wanting one stanza
@@ -30,7 +30,7 @@
 ;; stanza)
 
 ;; That's it.  Interrupt the loop to issue other commands, eg:
-  * (xmpp:get-roster connection)
+  * (xmpp:get-roster *connection*)
 
 ;; or any of the other ones you may find by looking through cl-xmpp.lisp
 ;; and package.lisp to see which ones are exported.
--- /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2006/03/02 15:51:33	1.26
+++ /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp	2006/05/12 17:45:49	1.27
@@ -1,4 +1,4 @@
-;;;; $Id: cl-xmpp.lisp,v 1.26 2006/03/02 15:51:33 eenge Exp $
+;;;; $Id: cl-xmpp.lisp,v 1.27 2006/05/12 17:45:49 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -219,7 +219,7 @@
 	     ((member id '(items1 items2 items3 items4))
 	      (make-disco-items (get-element object :query)))
 	     (t ;; Assuming an error
-              (make-error (get-element object :error))))))))))
+              (make-error (get-element object :error)))))))))))
 
 (defmethod xml-element-to-event ((connection connection)
 				 (object xml-element) (name (eql :error)))



From eenge at common-lisp.net  Fri May 12 17:45:50 2006
From: eenge at common-lisp.net (eenge)
Date: Fri, 12 May 2006 13:45:50 -0400 (EDT)
Subject: [cl-xmpp-cvs] CVS cl-xmpp/test
Message-ID: <20060512174550.4213B1F003@common-lisp.net>

Update of /project/cl-xmpp/cvsroot/cl-xmpp/test
In directory clnet:/tmp/cvs-serv13890/test

Modified Files:
	cl-xmpp-test.asd 
Log Message:
commiting fixes from Robert Brown, thanks!


--- /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd	2005/12/14 19:04:07	1.4
+++ /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd	2006/05/12 17:45:50	1.5
@@ -1,5 +1,5 @@
 -;;;; -*- mode: lisp -*-
-;;;; $Id: cl-xmpp-test.asd,v 1.4 2005/12/14 19:04:07 eenge Exp $
+;;;; $Id: cl-xmpp-test.asd,v 1.5 2006/05/12 17:45:50 eenge Exp $
 ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/test/cl-xmpp-test.asd,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -16,7 +16,7 @@
     :author "Erik Enge"
     :licence "MIT"
     :description "Common Lisp XMPP client implementation"
-    :depends-on (:cl-xmpp :rt)
+    :depends-on (:cl-xmpp #-sbcl :rt #+sbcl :sb-rt)
     :components ((:file "package")
                  (:file "utility-test"
                   :depends-on ("package"))
@@ -25,5 +25,6 @@
                  (:file "cl-xmpp-test"
                   :depends-on ("package"))))
 
-(defmethod perform ((operation test-op) (component (eql (find-system 'cl-xmpp-test))))
-  (cl-xmpp-test:do-tests))
+(defmethod perform ((operation test-op)
+		    (component (eql (find-system 'cl-xmpp-test))))
+  (funcall (intern "DO-TESTS" 'cl-xmpp-test)))