[Date Prev][Date Next] [Thread Prev][Thread Next] [Date Index] [Thread Index]

Bug#1064756: xelb: FTBFS: make[1]: *** [Makefile:16: xcb-screensaver.el] Error 255

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.
Reply to: