Your message dated Mon, 26 Feb 2024 03:20:24 +0000 with message-id <E1reRXU-00BG19-5U@fasolo.debian.org> and subject line Bug#1064756: fixed in xelb 0.18+git20240212.67ae522-1 has caused the Debian Bug report #1064756, regarding xelb: FTBFS: make[1]: *** [Makefile:16: xcb-screensaver.el] Error 255 to be marked as done. This means that you claim that the problem has been dealt with. If this is not the case it is now your responsibility to reopen the Bug report if necessary, and/or fix the problem forthwith. (NB: If you are a system administrator and have no idea what this message is talking about, this may indicate a serious mail system misconfiguration somewhere. Please contact owner@bugs.debian.org immediately.) -- 1064756: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1064756 Debian Bug Tracking System Contact owner@bugs.debian.org with problems
--- Begin Message ---
- To: submit@bugs.debian.org
- Subject: xelb: FTBFS: make[1]: *** [Makefile:16: xcb-screensaver.el] Error 255
- From: Lucas Nussbaum <lucas@debian.org>
- Date: Sun, 25 Feb 2024 20:48:57 +0100
- Message-id: <[🔎] ZduZqcGn3QtoxW8Q@grub.nussbaum.fr>
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.
--- End Message ---
--- Begin Message ---
- To: 1064756-close@bugs.debian.org
- Subject: Bug#1064756: fixed in xelb 0.18+git20240212.67ae522-1
- From: Debian FTP Masters <ftpmaster@ftp-master.debian.org>
- Date: Mon, 26 Feb 2024 03:20:24 +0000
- Message-id: <E1reRXU-00BG19-5U@fasolo.debian.org>
- Reply-to: Martin <debacle@debian.org>
Source: xelb Source-Version: 0.18+git20240212.67ae522-1 Done: Martin <debacle@debian.org> We believe that the bug you reported is fixed in the latest version of xelb, which is due to be installed in the Debian FTP archive. A summary of the changes between this version and the previous one is attached. Thank you for reporting the bug, which will now be closed. If you have further comments please address them to 1064756@bugs.debian.org, and the maintainer will reopen the bug report if appropriate. Debian distribution maintenance software pp. Martin <debacle@debian.org> (supplier of updated xelb package) (This message was generated automatically at their request; if you believe that there is a problem with it please contact the archive administrators by mailing ftpmaster@ftp-master.debian.org) -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Format: 1.8 Date: Mon, 26 Feb 2024 02:43:19 +0000 Source: xelb Architecture: source Version: 0.18+git20240212.67ae522-1 Distribution: unstable Urgency: medium Maintainer: Debian Emacsen team <debian-emacsen@lists.debian.org> Changed-By: Martin <debacle@debian.org> Closes: 1064756 Changes: xelb (0.18+git20240212.67ae522-1) unstable; urgency=medium . * new upstream snapshot (Closes: #1064756) * drop all patches (applied upstream) Checksums-Sha1: 485e871b7c8d6c842a9fd76d05b5d13ea4a07c30 2010 xelb_0.18+git20240212.67ae522-1.dsc 22996b329cf76a6bf9c3b7ffb9d9d5786072991a 143277 xelb_0.18+git20240212.67ae522.orig.tar.gz 2be2591b1c59f4bd1306159988082150a1693601 1828 xelb_0.18+git20240212.67ae522-1.debian.tar.xz 16335c7b1000d3a38e7f534ca51887a068faabb3 9661 xelb_0.18+git20240212.67ae522-1_amd64.buildinfo Checksums-Sha256: 5da04f800e52e0a822f72eb5bede0715b3ea7f8ab0362d65acde8f995f52b4b7 2010 xelb_0.18+git20240212.67ae522-1.dsc d35449bc4b42ec2c1c75db5a8b5101adcbb74788d5bda554fec6b3eedfc9f1ee 143277 xelb_0.18+git20240212.67ae522.orig.tar.gz c5095bc1622832ca97cab256157d7c0c44e5eb0c3665fc15b03685fc11b3ffa8 1828 xelb_0.18+git20240212.67ae522-1.debian.tar.xz 3c073e16cf21392af2897e3df18b55a9b695e826da6bacda735c662d6bf19bc9 9661 xelb_0.18+git20240212.67ae522-1_amd64.buildinfo Files: c948b09fb29d0ab91cf9376478fe411a 2010 editors optional xelb_0.18+git20240212.67ae522-1.dsc 216ad9ee838d04df347466518c3d304a 143277 editors optional xelb_0.18+git20240212.67ae522.orig.tar.gz c78bad0128763152e5ac3b1ce98b8fc2 1828 editors optional xelb_0.18+git20240212.67ae522-1.debian.tar.xz eb87119a45009ba0df9896633528e344 9661 editors optional xelb_0.18+git20240212.67ae522-1_amd64.buildinfo -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEEftHeo0XZoKEY1KdA4+Chwoa5Y+oFAmXcAO0ACgkQ4+Chwoa5 Y+q3/g//Z/B3zJmlNmNGC17U5Kly/EFzznTF1RV51hvT1yPoO53EVYFjtoKXe6Vg ZvWzol7DLISus8jDeFu8UM83icEO6wMowJ1HjgSInAeb5yCIWjb0Y71qc6yYsgtC 7BSETAd+XmtFOVCxNmvltkS2D6gsD49/k4EsPXKLjRGFu//4g7BnXE61I102eLqv jhkiKgAvrYI7u1xaXMkrs5C6KZ+kilDR/OfzYvHMFNtO0NVMlxyfWrxy7UnmtVLF LiMTGcWXax2amKubSehutEgVUwfwmRydmPctPBdGnYgi54nt/puihQwxz23M4BXq Nhq8tVPOXJW7sz8s23GKY7DRiqUB6gbRT7vfZGrHJi6RHsPSXiZI1ilGOjiHxgU5 peJZCJrzIr6kwsGG1bIEx4YWOEG3F2RHFkUZCh9Xa6wsp3KEJG6xfV4ispkTzH8X jIbhp5EJKVGGOoG1NbRLRvvcqXBKtrFu23PKRmIbI+S3a70tGlG2s7YCPvzMS3AK /1VgFW4wG/WsOnRV8Tn8JnAVMzhEcG86/oRRoPWO6lA8iFtO8otMBbAH0X8A8G/9 Q8VhBidRIq8nAqrlJSKr/VXl9Ku/SDC/rjB32an1XF+wiGtE/pSIN7jgT76A+pyR 2mOWRvwQ+A8l/uXivhKF5SX+9zAHCTXSDt5zmfPPqvSe6wjujaQ= =zvAj -----END PGP SIGNATURE-----Attachment: pgpitDGNFrihM.pgp
Description: PGP signature
--- End Message ---