anchor.diff:                        :errors (kw-list errorcodes
                                          :translate 'make-const-keyword)
                         :queues (kw-list queues)
  -                      :command-buffer-level (kw-list cmdbufferlevel))))
  -        #++(format t "new function ~s: ~s (~s)~% ~s~% ~s~%~{~s~%~}"
  -                   name type (xps proto)
  -                   successcodes
  -                   errorcodes
  -                   params))))
  +                      :command-buffer-level (kw-list cmdbufferlevel)))))))
   
   ;;; TODO: feature
   ;;; TODO: extensions
  
positive.code:                               :members members
                                (when comment (list :comment comment))))))
            (t
             (error "unknown type category ~s for name ~s~%" category (or name @name)))))))
  
  ;;; enums*
    (xpath:do-node-set (node (xpath:evaluate "/registry/enums" vk.xml))
  
negative.code:              (format out "~:[)~;~]~%~%" bits))
  
      ;; function pointer types
      (loop for (name . attribs) in (sort (remove-if-not
                                           (lambda (x)
                                             (and (consp (cdr x))
                                                  (eql (second x) :func)))
  