Bug#1017294: xelb: FTBFS: make[1]: *** [Makefile:15: xcb-xinput.el] Error 255

[Lucas Nussbaum <lucas@debian.org>]

Source: xelb
Version: 0.18-2
Severity: serious
Justification: FTBFS
Tags: bookworm sid ftbfs
User: lucas@debian.org
Usertags: ftbfs-20220813 ftbfs-bookworm

Hi,

During a rebuild of all packages in sid, your package failed to build
on amd64.


Relevant part (hopefully):
> make[1]: Entering directory '/<<PKGBUILDDIR>>'
> 
> Generating xcb-xproto.el...
> Using vacuous schema
> 
> Generating xcb-bigreq.el...
> Generating xcb-render.el...
> Generating xcb-shape.el...
> Generating xcb-dpms.el...
> Generating xcb-dri2.el...
> Generating xcb-dri3.el...
> Generating xcb-ge.el...
> Generating xcb-glx.el...
> Using vacuous schema
> 
> Generating xcb-sync.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Generating xcb-record.el...
> Generating xcb-res.el...
> Using vacuous schema
> 
> Generating xcb-screensaver.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Generating xcb-shm.el...
> Generating xcb-xc_misc.el...
> Using vacuous schema
> 
> Generating xcb-xevie.el...
> Using vacuous schema
> 
> Generating xcb-xf86dri.el...
> Using vacuous schema
> 
> Generating xcb-xf86vidmode.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Generating xcb-xinerama.el...
> Generating xcb-xkb.el...
> Using vacuous schema
> 
> Generating xcb-xprint.el...
> Using vacuous schema
> 
> Generating xcb-xselinux.el...
> Using vacuous schema
> 
> Generating xcb-xtest.el...
> Using vacuous schema
> 
> Generating xcb-xv.el...
> Using vacuous schema
> 
> Generating xcb-xfixes.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Generating xcb-randr.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Using vacuous schema
> 
> Generating xcb-xvmc.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Using vacuous schema
> 
> Generating xcb-composite.el...
> Generating xcb-damage.el...
> Generating xcb-xinput.el...
> Using vacuous schema
> 
> Generating xcb-present.el...
> Using vacuous schema
> 
> Using vacuous schema
> 
> Using vacuous schema
> 
> Using vacuous schema
> 
> Debugger entered--Lisp error: (error "Unsupported structure content: <length>")
>   signal(error ("Unsupported structure content: <length>"))
>   error("Unsupported structure content: <%s>" length)
>   (let ((x val)) (error "Unsupported structure content: <%s>" x))
>   (cond ((eq val 'pad) (xelb-parse-pad node)) ((eq val 'required_start_align) (xelb-parse-required_start_align node)) ((eq val 'field) (xelb-parse-field node)) ((eq val 'fd) (xelb-parse-fd node)) ((eq val 'list) (xelb-parse-list node)) ((eq val 'exprfield) (xelb-parse-exprfield node)) ((eq val 'switch) (xelb-parse-switch node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported structure content: <%s>" x))))
>   (let* ((val (xelb-node-name node))) (cond ((eq val 'pad) (xelb-parse-pad node)) ((eq val 'required_start_align) (xelb-parse-required_start_align node)) ((eq val 'field) (xelb-parse-field node)) ((eq val 'fd) (xelb-parse-fd node)) ((eq val 'list) (xelb-parse-list node)) ((eq val 'exprfield) (xelb-parse-exprfield node)) ((eq val 'switch) (xelb-parse-switch node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported structure content: <%s>" x)))))
>   xelb-parse-structure-content((length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))))
>   mapcar(xelb-parse-structure-content ((length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))) (field ((type . "CARD16") (name . "type") (enum . "DeviceClassType"))) (field ((type . "CARD16") (name . "len"))) (field ((type . "DeviceId") (name . "sourceid"))) (switch ((name . "data")) (fieldref nil "type") (required_start_align ((align . "4") (offset . "2"))) (case ((name . "key")) (enumref ((ref . "DeviceClassType")) "Key") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_keys"))) (list ((type . "CARD32") (name . "keys")) (fieldref nil "num_keys"))) (case ((name . "button")) (enumref ((ref . "DeviceClassType")) "Button") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_buttons"))) (list ((type . "CARD32") (name . "state")) (op ((op . "/")) (op (...) (fieldref nil "num_buttons") (value nil "31")) (value nil "32"))) (list ((type . "ATOM") (name . "labels")) (fieldref nil "num_buttons"))) (case ((name . "valuator")) (enumref ((ref . "DeviceClassType")) "Valuator") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "ATOM") (name . "label"))) (field ((type . "FP3232") (name . "min"))) (field ((type . "FP3232") (name . "max"))) (field ((type . "FP3232") (name . "value"))) (field ((type . "CARD32") (name . "resolution"))) (field ((type . "CARD8") (name . "mode") (enum . "ValuatorMode"))) (pad ((bytes . "3")))) (case ((name . "scroll")) (enumref ((ref . "DeviceClassType")) "Scroll") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "CARD16") (name . "scroll_type") (enum . "ScrollType"))) (pad ((bytes . "2"))) (field ((type . "CARD32") (name . "flags") (mask . "ScrollFlags"))) (field ((type . "FP3232") (name . "increment")))) (case ((name . "touch")) (enumref ((ref . "DeviceClassType")) "Touch") (field ((type . "CARD8") (name . "mode") (enum . "TouchMode"))) (field ((type . "CARD8") (name . "num_touches")))) (case ((name . "gesture")) (enumref ((ref . "DeviceClassType")) "Gesture") (field ((type . "CARD8") (name . "num_touches"))) (pad ((bytes . "1")))))))
>   (apply #'nconc (mapcar #'xelb-parse-structure-content contents))
>   (list 'defclass name '(xcb:-struct) (apply #'nconc (mapcar #'xelb-parse-structure-content contents)))
>   (list (list 'defclass name '(xcb:-struct) (apply #'nconc (mapcar #'xelb-parse-structure-content contents))))
>   (let ((name (intern (concat xelb-prefix (xelb-node-attr node 'name)))) (contents (xelb-node-subnodes node t))) (list (list 'defclass name '(xcb:-struct) (apply #'nconc (mapcar #'xelb-parse-structure-content contents)))))
>   xelb-parse-struct((struct ((name . "DeviceClass")) (length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))) (field ((type . "CARD16") (name . "type") (enum . "DeviceClassType"))) (field ((type . "CARD16") (name . "len"))) (field ((type . "DeviceId") (name . "sourceid"))) (switch ((name . "data")) (fieldref nil "type") (required_start_align ((align . "4") (offset . "2"))) (case ((name . "key")) (enumref ((ref . "DeviceClassType")) "Key") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_keys"))) (list ((type . "CARD32") (name . "keys")) (fieldref nil "num_keys"))) (case ((name . "button")) (enumref ((ref . "DeviceClassType")) "Button") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_buttons"))) (list ((type . "CARD32") (name . "state")) (op ((op . "/")) (op (...) (fieldref nil "num_buttons") (value nil "31")) (value nil "32"))) (list ((type . "ATOM") (name . "labels")) (fieldref nil "num_buttons"))) (case ((name . "valuator")) (enumref ((ref . "DeviceClassType")) "Valuator") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "ATOM") (name . "label"))) (field ((type . "FP3232") (name . "min"))) (field ((type . "FP3232") (name . "max"))) (field ((type . "FP3232") (name . "value"))) (field ((type . "CARD32") (name . "resolution"))) (field ((type . "CARD8") (name . "mode") (enum . "ValuatorMode"))) (pad ((bytes . "3")))) (case ((name . "scroll")) (enumref ((ref . "DeviceClassType")) "Scroll") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "CARD16") (name . "scroll_type") (enum . "ScrollType"))) (pad ((bytes . "2"))) (field ((type . "CARD32") (name . "flags") (mask . "ScrollFlags"))) (field ((type . "FP3232") (name . "increment")))) (case ((name . "touch")) (enumref ((ref . "DeviceClassType")) "Touch") (field ((type . "CARD8") (name . "mode") (enum . "TouchMode"))) (field ((type . "CARD8") (name . "num_touches")))) (case ((name . "gesture")) (enumref ((ref . "DeviceClassType")) "Gesture") (field ((type . "CARD8") (name . "num_touches"))) (pad ((bytes . "1")))))))
>   (cond ((eq val 'import) (xelb-parse-import node)) ((eq val 'struct) (xelb-parse-struct node)) ((eq val 'union) (xelb-parse-union node)) ((memq val '(xidunion xidtype)) (xelb-parse-xidtype node)) ((eq val 'enum) (xelb-parse-enum node)) ((eq val 'typedef) (xelb-parse-typedef node)) ((eq val 'request) (xelb-parse-request node)) ((eq val 'event) (xelb-parse-event node)) ((eq val 'error) (xelb-parse-error node)) ((eq val 'eventcopy) (xelb-parse-eventcopy node)) ((eq val 'errorcopy) (xelb-parse-errorcopy node)) ((eq val 'eventstruct) (xelb-parse-eventstruct node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported top-level element: <%s>" x))))
>   (let* ((val (xelb-node-name node))) (cond ((eq val 'import) (xelb-parse-import node)) ((eq val 'struct) (xelb-parse-struct node)) ((eq val 'union) (xelb-parse-union node)) ((memq val '(xidunion xidtype)) (xelb-parse-xidtype node)) ((eq val 'enum) (xelb-parse-enum node)) ((eq val 'typedef) (xelb-parse-typedef node)) ((eq val 'request) (xelb-parse-request node)) ((eq val 'event) (xelb-parse-event node)) ((eq val 'error) (xelb-parse-error node)) ((eq val 'eventcopy) (xelb-parse-eventcopy node)) ((eq val 'errorcopy) (xelb-parse-errorcopy node)) ((eq val 'eventstruct) (xelb-parse-eventstruct node)) ((memq val '(doc comment)) nil) (t (let ((x val)) (error "Unsupported top-level element: <%s>" x)))))
>   xelb-parse-top-level-element((struct ((name . "DeviceClass")) (length nil (op ((op . "*")) (fieldref nil "len") (value nil "4"))) (field ((type . "CARD16") (name . "type") (enum . "DeviceClassType"))) (field ((type . "CARD16") (name . "len"))) (field ((type . "DeviceId") (name . "sourceid"))) (switch ((name . "data")) (fieldref nil "type") (required_start_align ((align . "4") (offset . "2"))) (case ((name . "key")) (enumref ((ref . "DeviceClassType")) "Key") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_keys"))) (list ((type . "CARD32") (name . "keys")) (fieldref nil "num_keys"))) (case ((name . "button")) (enumref ((ref . "DeviceClassType")) "Button") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "num_buttons"))) (list ((type . "CARD32") (name . "state")) (op ((op . "/")) (op (...) (fieldref nil "num_buttons") (value nil "31")) (value nil "32"))) (list ((type . "ATOM") (name . "labels")) (fieldref nil "num_buttons"))) (case ((name . "valuator")) (enumref ((ref . "DeviceClassType")) "Valuator") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "ATOM") (name . "label"))) (field ((type . "FP3232") (name . "min"))) (field ((type . "FP3232") (name . "max"))) (field ((type . "FP3232") (name . "value"))) (field ((type . "CARD32") (name . "resolution"))) (field ((type . "CARD8") (name . "mode") (enum . "ValuatorMode"))) (pad ((bytes . "3")))) (case ((name . "scroll")) (enumref ((ref . "DeviceClassType")) "Scroll") (required_start_align ((align . "4") (offset . "2"))) (field ((type . "CARD16") (name . "number"))) (field ((type . "CARD16") (name . "scroll_type") (enum . "ScrollType"))) (pad ((bytes . "2"))) (field ((type . "CARD32") (name . "flags") (mask . "ScrollFlags"))) (field ((type . "FP3232") (name . "increment")))) (case ((name . "touch")) (enumref ((ref . "DeviceClassType")) "Touch") (field ((type . "CARD8") (name . "mode") (enum . "TouchMode"))) (field ((type . "CARD8") (name . "num_touches")))) (case ((name . "gesture")) (enumref ((ref . "DeviceClassType")) "Gesture") (field ((type . "CARD8") (name . "num_touches"))) (pad ((bytes . "1")))))))
>   (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((--dolist-tail-- result)) (while --dolist-tail-- (let ((j ...)) (eval j) (pp j) (setq --dolist-tail-- (cdr --dolist-tail--))))) (princ "\n"))))
>   (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((--dolist-tail-- result)) (while --dolist-tail-- (let (...) (eval j) (pp j) (setq --dolist-tail-- ...)))) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--)))
>   (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((--dolist-tail-- result)) (while --dolist-tail-- (let ... ... ... ...))) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--))))
>   (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let (...) (while --dolist-tail-- ...)) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--)))))
>   (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '(eq 'xcb (xelb-node-name result)))) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s  -*- lexical-binding: t -..." header (let ((extension-name (xelb-node-attr result 'extension-name))) (if extension-name (concat extension-name " extension") "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result 'extension-xname)) (extension-name (xelb-node-attr result 'extension-name)) (major-version (xelb-node-attr result 'major-version)) (minor-version (xelb-node-attr result 'minor-version))) (if extension-xname (progn (pp (list 'defconst (intern (concat xelb-prefix "-extension-xname")) extension-xname)))) (if extension-name (progn (pp (list 'defconst (intern (concat xelb-prefix "-extension-name")) extension-name)))) (if major-version (progn (pp (list 'defconst (intern (concat xelb-prefix "-major-version")) (string-to-number major-version))))) (if minor-version (progn (pp (list 'defconst (intern (concat xelb-prefix "-minor-version")) (string-to-number minor-version))))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ... ...) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if xelb-error-alist (progn (pp (cons 'defconst (cons (intern (concat xelb-prefix "error-number-class-alist")) (cons (list ... xelb-error-alist) '...)))) (princ "\n"))) (if xelb-event-alist (progn (pp (cons 'defconst (cons (intern (concat xelb-prefix "event-number-class-alist")) (cons (list ... xelb-event-alist) '...)))) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons 'defconst (cons (intern (concat xelb-prefix "xge-number-class-alist")) (cons (list ... xelb-xge-alist) '...)))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header)))
>   (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '(eq 'xcb (xelb-node-name result)))) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s  -*- lexical-binding: t -..." header (let ((extension-name (xelb-node-attr result ...))) (if extension-name (concat extension-name " extension") "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result 'extension-xname)) (extension-name (xelb-node-attr result 'extension-name)) (major-version (xelb-node-attr result 'major-version)) (minor-version (xelb-node-attr result 'minor-version))) (if extension-xname (progn (pp (list 'defconst (intern ...) extension-xname)))) (if extension-name (progn (pp (list 'defconst (intern ...) extension-name)))) (if major-version (progn (pp (list 'defconst (intern ...) (string-to-number major-version))))) (if minor-version (progn (pp (list 'defconst (intern ...) (string-to-number minor-version))))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result ...)) (if result (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if xelb-error-alist (progn (pp (cons 'defconst (cons (intern ...) (cons ... ...)))) (princ "\n"))) (if xelb-event-alist (progn (pp (cons 'defconst (cons (intern ...) (cons ... ...)))) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons 'defconst (cons (intern ...) (cons ... ...)))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
>   (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '(eq ... ...))) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s  -*- lexical-binding: t -..." header (let ((extension-name ...)) (if extension-name (concat extension-name " extension") "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result 'extension-xname)) (extension-name (xelb-node-attr result 'extension-name)) (major-version (xelb-node-attr result 'major-version)) (minor-version (xelb-node-attr result 'minor-version))) (if extension-xname (progn (pp (list ... ... extension-xname)))) (if extension-name (progn (pp (list ... ... extension-name)))) (if major-version (progn (pp (list ... ... ...)))) (if minor-version (progn (pp (list ... ... ...)))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let ((i ...)) (let (...) (if result ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if xelb-error-alist (progn (pp (cons 'defconst (cons ... ...))) (princ "\n"))) (if xelb-event-alist (progn (pp (cons 'defconst (cons ... ...))) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons 'defconst (cons ... ...))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
>   (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq 'xcb (xelb-node-name result)) (cl--assertion-failed '...)) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s  -*- lexical-binding: t -..." header (let (...) (if extension-name ... "core protocol")) (file-name-nondirectory file))) (let ((extension-xname (xelb-node-attr result ...)) (extension-name (xelb-node-attr result ...)) (major-version (xelb-node-attr result ...)) (minor-version (xelb-node-attr result ...))) (if extension-xname (progn (pp ...))) (if extension-name (progn (pp ...))) (if major-version (progn (pp ...))) (if minor-version (progn (pp ...))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (xelb-node-subnodes result))) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if xelb-error-alist (progn (pp (cons ... ...)) (princ "\n"))) (if xelb-event-alist (progn (pp (cons ... ...)) (princ "\n"))) (if xelb-xge-alist (progn (pp (cons ... ...)) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
>   (let ((pp-escape-newlines nil) result header) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max))) (if (eq 'xcb (xelb-node-name result)) nil (setq result (xelb-node-subnode result))) (progn (or (eq ... ...) (cl--assertion-failed ...)) nil) (setq header (xelb-node-attr result 'header)) (if (string= header "xproto") nil (setq xelb-prefix (concat xelb-prefix header ":"))) (princ (format ";;; xcb-%s.el --- X11 %s  -*- lexical-binding: t -..." header (let ... ...) (file-name-nondirectory file))) (let ((extension-xname ...) (extension-name ...) (major-version ...) (minor-version ...)) (if extension-xname (progn ...)) (if extension-name (progn ...)) (if major-version (progn ...)) (if minor-version (progn ...)) (if (or extension-xname extension-name major-version minor-version) (progn ...))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (if xelb-error-alist (progn (pp ...) (princ "\n"))) (if xelb-event-alist (progn (pp ...) (princ "\n"))) (if xelb-xge-alist (progn (pp ...) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n\n;;; xcb-%s.el ends here\n" header header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
>   xelb-parse("/usr/share/xcb/xinput.xml")
>   (if (not argv) (error "Usage: el_client.el <protocol.xml> [additional_loa...") (add-to-list 'load-path default-directory) (let ((--dolist-tail-- (cdr argv))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (add-to-list 'load-path i) (setq --dolist-tail-- (cdr --dolist-tail--))))) (require 'xcb-types) (xelb-parse (car argv)))
>   eval-buffer(#<buffer  *load*> nil "/<<PKGBUILDDIR>>/el_client.el" nil t)  ; Reading at buffer position 29855
>   load-with-code-conversion("/<<PKGBUILDDIR>>/el_client.el" "/<<PKGBUILDDIR>>/el_client.el" nil t)
>   load("/<<PKGBUILDDIR>>/el_client.el" nil t t)
>   command-line-1(("-scriptload" "./el_client.el" "/usr/share/xcb/xinput.xml"))
>   command-line()
>   normal-top-level()
> 
> make[1]: *** [Makefile:15: xcb-xinput.el] Error 255


The full build log is available from:
http://qa-logs.debian.net/2022/08/13/xelb_0.18-2_unstable.log

All bugs filed during this archive rebuild are listed at:
https://bugs.debian.org/cgi-bin/pkgreport.cgi?tag=ftbfs-20220813;users=lucas@debian.org
or:
https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220813&fusertaguser=lucas@debian.org&allbugs=1&cseverity=1&ctags=1&caffected=1#results

A list of current common problems and possible solutions is available at
http://wiki.debian.org/qa.debian.org/FTBFS . You're welcome to contribute!

If you reassign this bug to another package, please marking it as 'affects'-ing
this package. See https://www.debian.org/Bugs/server-control#affects

If you fail to reproduce this, please provide a build log and diff it with mine
so that we can identify if something relevant changed in the meantime.