Make fails with `(wrong-number-of-arguments libxml-parse-xml-region 4)`

[dholm]

When running make on 9a0612c using GNU Emacs 24.4.1 and xcb-proto 6b832a008ada81a98d4a7d3c2d6834e5a1fb50a9 the build fails with the following error:

make: Circular xcb-xproto.el <- xcb-xproto.el dependency dropped.

Generating xcb-xproto.el...Debugger entered--Lisp error: (wrong-number-of-arguments libxml-parse-xml-region 4)
  (libxml-parse-xml-region (point-min) (point-max) nil t)
  (setq result (libxml-parse-xml-region (point-min) (point-max) nil t))
  (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max) nil t)) (progn (or (eq (quote xcb) (node-name result)) (signal (quote cl-assertion-failed) (list (quote (eq (quote xcb) (node-name result)))))) nil) (setq header (node-attr result (quote header))) (if (string= header "xproto") nil (setq ec-prefix (concat ec-prefix header ":"))) (princ (format ";;; -*- lexical-binding: t -*-\n;; This file was generated from `%s' by `el_client.el'.\n\n(require 'xcb-types)\n\n" (file-name-nondirectory file))) (let ((extension-xname (node-attr result (quote extension-xname))) (extension-name (node-attr result (quote extension-name))) (major-version (node-attr result (quote major-version))) (minor-version (node-attr result (quote minor-version)))) (if extension-xname (progn (pp (list (quote defconst) (intern (concat ec-prefix "-extension-xname")) extension-xname)))) (if extension-name (progn (pp (list (quote defconst) (intern (concat ec-prefix "-extension-name")) extension-name)))) (if major-version (progn (pp (list (quote defconst) (intern (concat ec-prefix "-major-version")) (string-to-number major-version))))) (if minor-version (progn (pp (list (quote defconst) (intern (concat ec-prefix "-minor-version")) (string-to-number minor-version))))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result (parse-top-level-element i))) (if result (progn (let ... ...) (princ "\n")))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if error-alist (progn (pp (cons (quote defconst) (cons (intern (concat ec-prefix "error-number-class-alist")) (cons (list ... error-alist) (quote ...))))) (princ "\n"))) (if event-alist (progn (pp (cons (quote defconst) (cons (intern (concat ec-prefix "event-number-class-alist")) (cons (list ... event-alist) (quote ...))))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n" header)))
  (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max) nil t)) (progn (or (eq (quote xcb) (node-name result)) (signal (quote cl-assertion-failed) (list (quote (eq ... ...))))) nil) (setq header (node-attr result (quote header))) (if (string= header "xproto") nil (setq ec-prefix (concat ec-prefix header ":"))) (princ (format ";;; -*- lexical-binding: t -*-\n;; This file was generated from `%s' by `el_client.el'.\n\n(require 'xcb-types)\n\n" (file-name-nondirectory file))) (let ((extension-xname (node-attr result (quote extension-xname))) (extension-name (node-attr result (quote extension-name))) (major-version (node-attr result (quote major-version))) (minor-version (node-attr result (quote minor-version)))) (if extension-xname (progn (pp (list (quote defconst) (intern ...) extension-xname)))) (if extension-name (progn (pp (list (quote defconst) (intern ...) extension-name)))) (if major-version (progn (pp (list (quote defconst) (intern ...) (string-to-number major-version))))) (if minor-version (progn (pp (list (quote defconst) (intern ...) (string-to-number minor-version))))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (node-subnodes result))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (let ((result ...)) (if result (progn ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if error-alist (progn (pp (cons (quote defconst) (cons (intern ...) (cons ... ...)))) (princ "\n"))) (if event-alist (progn (pp (cons (quote defconst) (cons (intern ...) (cons ... ...)))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n" 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) nil t)) (progn (or (eq (quote xcb) (node-name result)) (signal (quote cl-assertion-failed) (list (quote ...)))) nil) (setq header (node-attr result (quote header))) (if (string= header "xproto") nil (setq ec-prefix (concat ec-prefix header ":"))) (princ (format ";;; -*- lexical-binding: t -*-\n;; This file was generated from `%s' by `el_client.el'.\n\n(require 'xcb-types)\n\n" (file-name-nondirectory file))) (let ((extension-xname (node-attr result (quote extension-xname))) (extension-name (node-attr result (quote extension-name))) (major-version (node-attr result (quote major-version))) (minor-version (node-attr result (quote minor-version)))) (if extension-xname (progn (pp (list ... ... extension-xname)))) (if extension-name (progn (pp (list ... ... extension-name)))) (if major-version (progn (pp (list ... ... ...)))) (if minor-version (progn (pp (list ... ... ...)))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (node-subnodes result))) (while --dolist-tail-- (let ((i ...)) (let (...) (if result ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (if error-alist (progn (pp (cons (quote defconst) (cons ... ...))) (princ "\n"))) (if event-alist (progn (pp (cons (quote defconst) (cons ... ...))) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n" header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max) nil t)) (progn (or (eq (quote xcb) (node-name result)) (signal (quote cl-assertion-failed) (list ...))) nil) (setq header (node-attr result (quote header))) (if (string= header "xproto") nil (setq ec-prefix (concat ec-prefix header ":"))) (princ (format ";;; -*- lexical-binding: t -*-\n;; This file was generated from `%s' by `el_client.el'.\n\n(require 'xcb-types)\n\n" (file-name-nondirectory file))) (let ((extension-xname (node-attr result ...)) (extension-name (node-attr result ...)) (major-version (node-attr result ...)) (minor-version (node-attr result ...))) (if extension-xname (progn (pp ...))) (if extension-name (progn (pp ...))) (if major-version (progn (pp ...))) (if minor-version (progn (pp ...))) (if (or extension-xname extension-name major-version minor-version) (progn (princ "\n")))) (let ((--dolist-tail-- (node-subnodes result))) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (if error-alist (progn (pp (cons ... ...)) (princ "\n"))) (if event-alist (progn (pp (cons ... ...)) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n" header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (let ((pp-escape-newlines nil) result header) (progn (or (not pp-escape-newlines) (signal (quote cl-assertion-failed) (list (quote (not pp-escape-newlines))))) nil) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (setq result (libxml-parse-xml-region (point-min) (point-max) nil t)) (progn (or (eq ... ...) (signal ... ...)) nil) (setq header (node-attr result (quote header))) (if (string= header "xproto") nil (setq ec-prefix (concat ec-prefix header ":"))) (princ (format ";;; -*- lexical-binding: t -*-\n;; This file was generated from `%s' by `el_client.el'.\n\n(require 'xcb-types)\n\n" (file-name-nondirectory file))) (let ((extension-xname ...) (extension-name ...) (major-version ...) (minor-version ...)) (if extension-xname (progn ...)) (if extension-name (progn ...)) (if major-version (progn ...)) (if minor-version (progn ...)) (if (or extension-xname extension-name major-version minor-version) (progn ...))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (if error-alist (progn (pp ...) (princ "\n"))) (if event-alist (progn (pp ...) (princ "\n"))) (princ (format "\f\n\n(provide 'xcb-%s)\n" header))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))))
  parse("proto/src/xproto.xml")
  (if (not argv) (error "Usage: el_client.el <protocol.xml> [additional_load_paths]") (add-to-list (quote load-path) default-directory) (let ((--dolist-tail-- (cdr argv))) (while --dolist-tail-- (let ((i (car --dolist-tail--))) (add-to-list (quote load-path) i) (setq --dolist-tail-- (cdr --dolist-tail--))))) (require (quote xcb-types)) (parse (car argv)))
  eval-buffer(#<buffer  *load*> nil "/home/dholm/.emacs.d/el-get/xelb/el_client.el" nil t)  ; Reading at buffer position 21097
  load-with-code-conversion("/home/dholm/.emacs.d/el-get/xelb/el_client.el" "/home/dholm/.emacs.d/el-get/xelb/el_client.el" nil t)
  load("/home/dholm/.emacs.d/el-get/xelb/el_client.el" nil t t)
  command-line-1(("-scriptload" "./el_client.el" "proto/src/xproto.xml"))
  command-line()
  normal-top-level()

[ch11ng]

There's no need to run make. It's intended for generating libraries which I have already done for you. The Makefile is written for Emacs 25 where the calling convention of this function is a little different.

[dholm]

I see, thanks!