anchor.diff: -;;;; $Id: cl-xmpp.lisp,v 1.35 2008/07/13 21:43:47 ehuelsmann Exp $
  +;;;; $Id: cl-xmpp.lisp,v 1.33 2008/07/09 19:58:50 ehuelsmann Exp $
   ;;;; $Source: /project/cl-xmpp/cvsroot/cl-xmpp/cl-xmpp.lisp,v $
   
   ;;;; See the LICENSE file for licensing information.
   
   (in-package :xmpp)
  -
  -;; Define our own error condition for server disconnections
  -(define-condition server-disconnect (simple-condition)
  -  ())
   
   (defclass connection ()
     ((server-stream
       :accessor server-stream
       :initarg :server-stream
       :initform nil)
  -   (socket
  -    :accessor socket
  -    :initarg :socket)
  +   (server-socket
  +    :accessor server-socket
  +    :initarg :server-socket
  +    :initform nil)
      (server-source
       :accessor server-source
       :initform nil)
  
positive.code:   (with-iq-query (connection :id "getlist2" :xmlns "jabber:iq:privacy")
     (cxml:with-element "list"
      (cxml:attribute "name" name))))
  
negative.code: 	(t 
  	 (case type
  	   (:get (warn "Don't know how to handle IQ get yet."))
  	   (t
  	    (cond
  	     ((member id '(info1 info2 info3))
  	      (make-disco-info (get-element object :query)))
  	     ((member id '(items1 items2 items3 items4))
  	      (make-disco-items (get-element object :query)))
  	     (t ;; Assuming an error
                (make-error (get-element object :error)))))))))))
  
  (defmethod xml-element-to-event ((connection connection)
  				 (object xml-element) (name (eql :error)))
  