anchor.diff:    ((name :accessor name :initarg :name :initform nil)
      (version :accessor version :initarg :version :initform nil)
      (requests :accessor requests :initarg :requests :initform nil)
  +   (enums :accessor enums :initarg :enums :initform nil)
      (events :accessor events :initarg :events :initform nil)))
   
   (defclass wl-arg ()
  
positive.code: 	 (interface (make-instance 'wl-interface
  				   :name interface-name
  				   :version interface-version)))
      (setf (requests interface) (read-roes "request" interface-entries))
      (setf (events interface) (read-roes "event" interface-entries))
      interface))
  
  (defun read-protocol (protocol-sxml)
  
negative.code: 			(use-foreign-library ,package)))))))
  
  ;; If we don't have a lib that exports the interface objects
  ;; we have to build them
  
  (defun generate-bindings (client? package xml-file &key (path-to-lib nil) (generate-interfaces? nil) (dependencies nil))
    (setf *generate-interfaces* generate-interfaces?)
  