anchor.diff:  	(progn
   	  (setf *offset* 1)
   	  `((defparameter ,types-name nil)
  -	    
  +
   	    (defun ,name ()
   	      ,@(mapcar (lambda (interface)
   			  (generate-setf-interface generate-interfaces? interface))
   			interfaces)
  -	      
  +
   	      (setf ,types-name
   		    (make-wl-types
   		     (null-pointer)
   		     ,@(apply #'append (mapcar #'interfaces-of-interface interfaces))))
  -	      
  +
   	      ,@(apply #'append
   		       (mapcar (lambda (interface)
   				 (set-requests-and-events interface types-name))
  
positive.code: 	,@(mapcar (lambda (roe)
  		    (generate-empty-callback name roe))
  		  roes)
  	
  	(defun ,implement-func (&key ,@implement-func-args)
  	  (let ((implementation (foreign-alloc '(:struct ,implement-name))))
  	    ,@(mapcar (lambda (roe)
  
negative.code: 		   :initial-value nil)))
  
  (defun read-wayland-xml (path)
    (with-open-file (s path :if-does-not-exist :error)
      (xmls:parse s)))
  
  (defun of-type (x type)
  