Source: xelb
Version: 0.18-2
Severity: serious
Justification: FTBFS
Tags: bookworm sid ftbfs
User: lu...@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=lu...@debian.org
or:
https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220813&fusertaguser=lu...@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.
