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@hostname" "what's going on?") + * (xmpp:message *connection* "username@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@hostname to=me@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)))