anchor.diff:                       (list (cons "defcallback x" (getf (cdr attribs) :type)))
                        (fix-type-name name)))
   
  -    (format nil "~@<;; ~@;~a~;~:>"
  -        '((:POINTER VOID)
  -          (("pUserData" (:POINTER VOID)) ("size" SIZE_T) ("alignment" SIZE_T)
  -           ("allocationScope" SYSTEM-ALLOCATION-SCOPE)))
  -        )
  -
       ;; structs/unions
  -    (setf *foo* types)
       (loop for (name . attribs) in (sort (remove-if-not
                                            (lambda (x)
                                              (and (consp (cdr x))
  
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:      (error "~s" str))))
  
  (defun fix-type-name (name)
    (let* ((start (if (alexandria:starts-with-subseq "Vk" name) 2 0)))
      (when (zerop start)
        (setf name (ppcre:regex-replace-all "PFN_vk" name "Pfn")))
      (cffi:translate-camelcase-name (subseq name start)
  