anchor.diff:  	,@(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)
  
positive.code:   ((name :accessor name :initarg :name :initform nil)
     (args :accessor args :initarg :args :initform nil)))
  
  ;; Utility function
  
  (defparameter *generate-interfaces* nil)
  
  
negative.code:   ((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 ()
  