Source: xelb
Version: 0.18-4
Severity: serious
Justification: FTBFS
Tags: trixie sid ftbfs
User: lucas@debian.org
Usertags: ftbfs-20240224 ftbfs-trixie

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...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

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...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Using vacuous schema

Using vacuous schema

Generating xcb-sync.el...
Generating xcb-record.el...
Using vacuous schema

Generating xcb-res.el...
Using vacuous schema

Using vacuous schema

Generating xcb-screensaver.el...
Generating xcb-shm.el...
Using vacuous schema

Generating xcb-xc_misc.el...
Using vacuous schema
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Generating xcb-xevie.el...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Using vacuous schema

Generating xcb-xf86dri.el...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Using vacuous schema

Generating xcb-xf86vidmode.el...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Using vacuous schema

Generating xcb-xinerama.el...
Using vacuous schema

Generating xcb-xkb.el...
Using vacuous schema
xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Generating xcb-xprint.el...
Using vacuous schema

Using vacuous schema

Generating xcb-xselinux.el...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Generating xcb-xtest.el...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Using vacuous schema

Generating xcb-xv.el...xcb-types.el: Warning: Non-symbol arguments to cl-defgeneric: (obj xcb:connection)

Debugger entered--Lisp error: (void-variable xcb:screensaver:xproto:CW:BackPixmap)
symbol-value(xcb:screensaver:xproto:CW:BackPixmap)
(let ((name (concat (xelb-node-attr node 'ref) ":" (xelb-node-subnode node)))) (symbol-value (or (intern-soft (concat xelb-prefix name)) (intern-soft (concat "xcb:" name)) (intern (concat xelb-prefix name)))))
xelb-parse-enumref((enumref ((ref . "xproto:CW")) "BackPixmap"))
(list (xelb-parse-enumref j))
(nconc condition (list (xelb-parse-enumref j)))
(setq condition (nconc condition (list (xelb-parse-enumref j))))
(let nil (setq condition (nconc condition (list (xelb-parse-enumref j)))))
(if (eq val 'enumref) (let nil (setq condition (nconc condition (list (xelb-parse-enumref j))))) (let nil (setq tmp (xelb-parse-structure-content j)) (setq fields (nconc fields tmp)) (setq name-list (nconc name-list (list (car (car tmp)))))))
(let* ((val (xelb-node-name j))) (if (eq val 'enumref) (let nil (setq condition (nconc condition (list (xelb-parse-enumref j))))) (let nil (setq tmp (xelb-parse-structure-content j)) (setq fields (nconc fields tmp)) (setq name-list (nconc name-list (

list (car (car tmp))))))))

(let ((j (car tail))) (let* ((val (xelb-node-name j))) (if (eq val 'enumref) (let nil (setq condition (nconc condition (list (xelb-parse-enumref j))))) (let nil (setq tmp (xelb-parse-structure-content j)) (setq fields (nconc fields tmp)) (setq name-

list (nconc name-list (list (car ...))))))) (setq tail (cdr tail)))

(while tail (let ((j (car tail))) (let* ((val (xelb-node-name j))) (if (eq val 'enumref) (let nil (setq condition (nconc condition (list ...)))) (let nil (setq tmp (xelb-parse-structure-content j)) (setq fields (nconc fields tmp)) (setq name-list (

nconc name-list (list ...)))))) (setq tail (cdr tail))))

(let ((tail (xelb-node-subnodes i t))) (while tail (let ((j (car tail))) (let* ((val (xelb-node-name j))) (if (eq val 'enumref) (let nil (setq condition (nconc condition ...))) (let nil (setq tmp (xelb-parse-structure-content j)) (setq fields (nconc

fields tmp)) (setq name-list (nconc name-list ...))))) (setq tail (cdr tail)))))

(progn (let ((tail (xelb-node-subnodes i t))) (while tail (let ((j (car tail))) (let* ((val (xelb-node-name j))) (if (eq val 'enumref) (let nil (setq condition ...)) (let nil (setq tmp ...) (setq fields ...) (setq name-list ...)))) (setq tail (cdr

tail))))) (if (eq case-name 'bitcase) (progn (setq condition (if (= 1 (length condition)) (car condition) (if (cl-every #'integerp condition) (apply #'logior condition) (cons 'logior condition)))))))

(if (or (eq case-name 'bitcase) (eq case-name 'case)) (progn (let ((tail (xelb-node-subnodes i t))) (while tail (let ((j (car tail))) (let* ((val ...)) (if (eq val ...) (let nil ...) (let nil ... ... ...))) (setq tail (cdr tail))))) (if (eq case-name

'bitcase) (progn (setq condition (if (= 1 (length condition)) (car condition) (if (cl-every ... condition) (apply ... condition) (cons ... condition))))))))

(let ((case-name (xelb-node-name i)) condition name-list tmp) (if (or (eq case-name 'bitcase) (eq case-name 'case)) (progn (let ((tail (xelb-node-subnodes i t))) (while tail (let ((j ...)) (let* (...) (if ... ... ...)) (setq tail (cdr tail))))) (if (

eq case-name 'bitcase) (progn (setq condition (if (= 1 ...) (car condition) (if ... ... ...))))))) (cons condition name-list))

(closure ((fields)) (i) (let ((case-name (xelb-node-name i)) condition name-list tmp) (if (or (eq case-name 'bitcase) (eq case-name 'case)) (progn (let ((tail ...)) (while tail (let ... ... ...))) (if (eq case-name 'bitcase) (progn (setq condition ...

))))) (cons condition name-list)))((bitcase nil (enumref ((ref . "xproto:CW")) "BackPixmap") (field ((type . "PIXMAP") (name . "background_pixmap") (altenum . "BackPixmap")))))

mapcar((closure ((fields)) (i) (let ((case-name (xelb-node-name i)) condition name-list tmp) (if (or (eq case-name 'bitcase) (eq case-name 'case)) (progn (let ((tail ...)) (while tail (let ... ... ...))) (if (eq case-name 'bitcase) (progn (setq

condition ...))))) (cons condition name-list))) ((bitcase nil (enumref ((ref . "xproto:CW")) "BackPixmap") (field ((type . "PIXMAP") (name . "background_pixmap") (altenum . "BackPixmap")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackPixel") (field (
(type . "CARD32") (name . "background_pixel")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BorderPixmap") (field ((type . "PIXMAP") (name . "border_pixmap") (altenum . "Pixmap")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BorderPixel") (field ((
type . "CARD32") (name . "border_pixel")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BitGravity") (field ((type . "CARD32") (name . "bit_gravity") (enum . "Gravity")))) (bitcase nil (enumref ((ref . "xproto:CW")) "WinGravity") (field ((type . "CARD32"
) (name . "win_gravity") (enum . "Gravity")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackingStore") (field ((type . "CARD32") (name . "backing_store") (enum . "BackingStore")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackingPlanes") (field ((
type . "CARD32") (name . "backing_planes")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackingPixel") (field ((type . "CARD32") (name . "backing_pixel")))) (bitcase nil (enumref ((ref . "xproto:CW")) "OverrideRedirect") (field ((type . "BOOL32") (
name . "override_redirect")))) (bitcase nil (enumref ((ref . "xproto:CW")) "SaveUnder") (field ((type . "BOOL32") (name . "save_under")))) (bitcase nil (enumref ((ref . "xproto:CW")) "EventMask") (field ((type . "CARD32") (name . "event_mask") (mask . "
EventMask")))) (bitcase nil (enumref ((ref . "xproto:CW")) "DontPropagate") (field ((type . "CARD32") (name . "do_not_propogate_mask") (mask . "EventMask")))) (bitcase nil (enumref ((ref . "xproto:CW")) "Colormap") (field ((type . "COLORMAP") (name . "
colormap") (altenum . "Colormap")))) (bitcase nil (enumref ((ref . "xproto:CW")) "Cursor") (field ((type . "CURSOR") (name . "cursor") (altenum . "Cursor"))))))

(setq cases (mapcar #'(lambda (i) (let ((case-name (xelb-node-name i)) condition name-list tmp) (if (or (eq case-name ...) (eq case-name ...)) (progn (let ... ...) (if ... ...))) (cons condition name-list))) cases))
(let ((name (intern (xelb-node-attr-escape node 'name))) (expression (xelb-parse-expression (car (xelb-node-subnodes node)))) (cases (cl-remove-if-not #'(lambda (i) (memq (xelb-node-name i) '...)) (xelb-node-subnodes node))) fields) (let (names name)

(let ((tail cases)) (while tail (let ((case (car tail))) (let* ((val ...)) (if (memq val ...) (let nil ...))) (setq tail (cdr tail)))))) (setq cases (mapcar #'(lambda (i) (let ((case-name ...) condition name-list tmp) (if (or ... ...) (progn ... ...)) (
cons condition name-list))) cases)) (cons (cons name (cons ':initform (cons (list 'quote (list 'expression expression 'cases cases)) '(:type xcb:-switch)))) fields))

...
(cond ((eq val 'import) (let nil (xelb-parse-import node))) ((eq val 'struct) (let nil (xelb-parse-struct node))) ((eq val 'union) (let nil (xelb-parse-union node))) ((memq val '(xidunion xidtype)) (let nil (xelb-parse-xidtype node))) ((eq val 'enum)

(let nil (xelb-parse-enum node))) ((eq val 'typedef) (let nil (xelb-parse-typedef node))) ((eq val 'request) (let nil (xelb-parse-request node))) ((eq val 'event) (let nil (xelb-parse-event node))) ((eq val 'error) (let nil (xelb-parse-error node))) ((eq
val 'eventcopy) (let nil (xelb-parse-eventcopy node))) ((eq val 'errorcopy) (let nil (xelb-parse-errorcopy node))) ((eq val 'eventstruct) (let nil (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) (let nil (xelb-parse-import node))) ((eq val 'struct) (let nil (xelb-parse-struct node))) ((eq val 'union) (let nil (xelb-parse-union node))) ((memq val '(xidunion xidtype)) (let nil (xelb-

parse-xidtype node))) ((eq val 'enum) (let nil (xelb-parse-enum node))) ((eq val 'typedef) (let nil (xelb-parse-typedef node))) ((eq val 'request) (let nil (xelb-parse-request node))) ((eq val 'event) (let nil (xelb-parse-event node))) ((eq val 'error) (
let nil (xelb-parse-error node))) ((eq val 'eventcopy) (let nil (xelb-parse-eventcopy node))) ((eq val 'errorcopy) (let nil (xelb-parse-errorcopy node))) ((eq val 'eventstruct) (let nil (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((request ((name . "SetAttributes") (opcode . "3")) (field ((type . "DRAWABLE") (name . "drawable"))) (field ((type . "INT16") (name . "x"))) (field ((type . "INT16") (name . "y"))) (field ((type . "CARD16") (name . "width"

))) (field ((type . "CARD16") (name . "height"))) (field ((type . "CARD16") (name . "border_width"))) (field ((type . "BYTE") (name . "class") (enum . "WindowClass"))) (field ((type . "CARD8") (name . "depth"))) (field ((type . "VISUALID") (name . "
visual"))) (field ((type . "CARD32") (name . "value_mask") (mask . "CW"))) (switch ((name . "value_list")) (fieldref nil "value_mask") (bitcase nil (enumref ((ref . "xproto:CW")) "BackPixmap") (field ((type . "PIXMAP") (name . "background_pixmap") (
altenum . "BackPixmap")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackPixel") (field ((type . "CARD32") (name . "background_pixel")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BorderPixmap") (field ((type . "PIXMAP") (name . "border_pixmap") (
altenum . "Pixmap")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BorderPixel") (field ((type . "CARD32") (name . "border_pixel")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BitGravity") (field ((type . "CARD32") (name . "bit_gravity") (enum . "
Gravity")))) (bitcase nil (enumref ((ref . "xproto:CW")) "WinGravity") (field ((type . "CARD32") (name . "win_gravity") (enum . "Gravity")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackingStore") (field ((type . "CARD32") (name . "backing_store") (
enum . "BackingStore")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackingPlanes") (field ((type . "CARD32") (name . "backing_planes")))) (bitcase nil (enumref ((ref . "xproto:CW")) "BackingPixel") (field ((type . "CARD32") (name . "backing_pixel"))))
(bitcase nil (enumref ((ref . "xproto:CW")) "OverrideRedirect") (field ((type . "BOOL32") (name . "override_redirect")))) (bitcase nil (enumref ((ref . "xproto:CW")) "SaveUnder") (field ((type . "BOOL32") (name . "save_under")))) (bitcase nil (enumref ((
ref . "xproto:CW")) "EventMask") (field ((type . "CARD32") (name . "event_mask") (mask . "EventMask")))) (bitcase nil (enumref ((ref . "xproto:CW")) "DontPropagate") (field ((type . "CARD32") (name . "do_not_propogate_mask") (mask . "EventMask")))) (
bitcase nil (enumref ((ref . "xproto:CW")) "Colormap") (field ((type . "COLORMAP") (name . "colormap") (altenum . "Colormap")))) (bitcase nil (enumref ((ref . "xproto:CW")) "Cursor") (field ((type . "CURSOR") (name . "cursor") (altenum . "Cursor")))))))

(let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((tail result)) (while tail (let ((j ...)) (eval j) (pp j) (setq tail (cdr tail))))) (princ "\n"))))
(let ((i (car tail))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((tail result)) (while tail (let (...) (eval j) (pp j) (setq tail ...)))) (princ "\n")))) (setq tail (cdr tail)))
(while tail (let ((i (car tail))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ((tail result)) (while tail (let ... ... ... ...))) (princ "\n")))) (setq tail (cdr tail))))
(let ((tail (xelb-node-subnodes result))) (while tail (let ((i (car tail))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let (...) (while tail ...)) (princ "\n")))) (setq tail (cdr 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 ((tail (xelb-
node-subnodes result))) (while tail (let ((i (car tail))) (let ((result (xelb-parse-top-level-element i))) (if result (progn (let ... ...) (princ "\n")))) (setq tail (cdr 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 ((tail (xelb-node-subnodes result))) (while tail (let ((i (car tail))) (let ((result ...)) (if result (progn ... ...))) (setq tail (cdr 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 ((tail (xelb-node-
subnodes result))) (while tail (let ((i ...)) (let (...) (if result ...)) (setq tail (cdr 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*" t))) (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 ((tail (xelb-node-subnodes result))) (while tail (let (...) (let ... ...) (setq 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*" t))) (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 ((tail ...)) (while 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/screensaver.xml")
(if (not argv) (error "Usage: el_client.el <protocol.xml> [additional_loa...") (add-to-list 'load-path default-directory) (let ((tail (cdr argv))) (while tail (let ((i (car tail))) (add-to-list 'load-path i) (setq tail (cdr tail))))) (require 'xcb-

types) (xelb-parse (car argv)))

#<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_99>(#<buffer *load*> "/<<PKGBUILDDIR>>/el_client.el")
load-with-code-conversion("/<<PKGBUILDDIR>>/el_client.el" "/<<PKGBUILDDIR>>/el_client.el" nil t #<subr F616e6f6e796d6f75732d6c616d626461_anonymous_lambda_99>)
command-line--load-script("/<<PKGBUILDDIR>>/el_client.el")
command-line-1(("-scriptload" "./el_client.el" "/usr/share/xcb/screensaver.xml"))
command-line()
normal-top-level()

make[1]: *** [Makefile:16: xcb-screensaver.el] Error 255

The full build log is available from: http://qa-logs.debian.net/2024/02/24/xelb_0.18-4_unstable.log

All bugs filed during this archive rebuild are listed at: https://bugs.debian.org/cgi-bin/pkgreport.cgi?tag=ftbfs-20240224;users=lucas@debian.org
or: https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20240224&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 mark 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.

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)