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