[cl-xmpp-cvs] CVS cl-xmpp

[eenge]

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)))