anchor.diff:  			(generate-setf-interface generate-interfaces? interface))
   			interfaces))))))
   
  -;; 
  +;;
   
   (defun preamble (package symbols path-to-lib dependencies)
     (let ((package-keyword (intern (concatenate 'string
  
positive.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?)
  
negative.code: 		    (:use :common-lisp :cffi :wayland-util :wayland-server-core ,@dependencies)
  		    (:export
  		     ,@symbols))
  
  		  (in-package ,package-keyword)
  
  		  ,@(when path-to-lib
  		      `(,(if (rest path-to-lib)
  			    `(define-foreign-library ,package
  