• Building package hamlet-mode
From https://github.com/lightquake/hamlet-mode
Updating /mnt/store/melpa/working/hamlet-mode/
Checking out 7362b955e556a3d007fa06945a27e5b99349527d
Debugger entered--Lisp error: (scan-error "Unbalanced parentheses" 6 39)
  scan-sexps(6 1)
  forward-sexp(1)
  mail-header-parse-address("Kata <lightquake@amateurtopologist.com")
  #f(compiled-function (elem) #<bytecode 0x16896c10e555ba8>)("Kata <lightquake@amateurtopologist.com")
  mapcar(#f(compiled-function (elem) #<bytecode 0x16896c10e555ba8>) ("Kata <lightquake@amateurtopologist.com"))
  mail-header-parse-addresses-lax("Kata <lightquake@amateurtopologist.com")
  lm-crack-address("Kata <lightquake@amateurtopologist.com")
  mapcan(lm-crack-address ("Kata <lightquake@amateurtopologist.com"))
  funcall(mapcan lm-crack-address ("Kata <lightquake@amateurtopologist.com"))
  (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall (if (< emacs-major-version 28) #'mapcar #'mapcan) #'lm-crack-address (lm-header-multiline "authors?")))
  (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall (if (< emacs-major-version 28) #'mapcar #'mapcan) #'lm-crack-address (lm-header-multiline "authors?"))) (save-current-buffer (set-buffer buffer) (set-syntax-table table)))
  (let ((table (syntax-table)) (buffer (current-buffer))) (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall (if (< emacs-major-version 28) #'mapcar #'mapcan) #'lm-crack-address (lm-header-multiline "authors?"))) (save-current-buffer (set-buffer buffer) (set-syntax-table table))))
  (save-restriction (widen) (goto-char (point-min)) (let ((table (syntax-table)) (buffer (current-buffer))) (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall (if (< emacs-major-version 28) #'mapcar #'mapcan) #'lm-crack-address (lm-header-multiline "authors?"))) (save-current-buffer (set-buffer buffer) (set-syntax-table table)))))
  (save-excursion (save-restriction (widen) (goto-char (point-min)) (let ((table (syntax-table)) (buffer (current-buffer))) (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall (if (< emacs-major-version 28) #'mapcar #'mapcan) #'lm-crack-address (lm-header-multiline "authors?"))) (save-current-buffer (set-buffer buffer) (set-syntax-table table))))))
  (if file (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (emacs-lisp-mode) (funcall (if (< emacs-major-version 28) #'mapcar #'mapcan) #'lm-crack-address (lm-header-multiline "authors?"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let ((table (syntax-table)) (buffer (current-buffer))) (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall (if ... ... ...) #'lm-crack-address (lm-header-multiline "authors?"))) (save-current-buffer (set-buffer buffer) (set-syntax-table table)))))))
  (let ((file file)) (if file (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (emacs-lisp-mode) (funcall (if ... ... ...) #'lm-crack-address (lm-header-multiline "authors?"))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (save-excursion (save-restriction (widen) (goto-char (point-min)) (let ((table (syntax-table)) (buffer (current-buffer))) (unwind-protect (progn (set-syntax-table emacs-lisp-mode-syntax-table) (funcall ... ... ...)) (save-current-buffer (set-buffer buffer) (set-syntax-table table))))))))
  package-build--authors()
  (eieio-oset rcp 'authors (package-build--authors))
  (progn (insert-file-contents file) (eieio-oset rcp 'summary (package-build--normalize-summary (save-excursion (goto-char (point-min)) (and (re-search-forward "^;;; [^ ]*\\.el ---[ \11]*\\(.*?\\)[ \11]*\\(-\\*-.*-\\*-[ \11..." nil t) (match-string-no-properties 1))))) (eieio-oset rcp 'dependencies (cond ((fboundp 'lm-package-requires) (lm-package-requires)) ((fboundp 'package--prepare-dependencies) (let* ((require-lines (and t ...))) (if require-lines (progn (package--prepare-dependencies ...))))))) (eieio-oset rcp 'webpage (or (let* ((site (and t (cond ... ...)))) (if site (progn (if (string-match package-build--http-regexp site) (replace-match "https" t t site 1) site)))) (let* ((format (and t (eieio-oref rcp ...)))) (if format (progn (format format (eieio-oref rcp ...))))))) (eieio-oset rcp 'keywords (lm-keywords-list)) (eieio-oset rcp 'authors (package-build--authors)) (eieio-oset rcp 'maintainers (package-build--maintainers)))
...
  funcall(package-build--build-multi-file-package #<package-github-recipe package-github-recipe-1575e6e38a90> (("hamlet-mode.el" . "hamlet-mode.el")))
  (if files (funcall (or package-build-build-function 'package-build--legacy-build) rcp files) (package-build--error rcp "Unable to find files matching recipe patterns"))
  (let* ((files (and t (package-build-expand-files-spec rcp t)))) (if files (funcall (or package-build-build-function 'package-build--legacy-build) rcp files) (package-build--error rcp "Unable to find files matching recipe patterns")))
  (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* ((_ (and t package-build-run-recipe-shell-command)) (command (and _ (eieio-oref rcp 'shell-command)))) (if command (progn (package-build--message "Running %s" command) (package-build--call-sandboxed rcp shell-file-name shell-command-switch command)))) (let* ((_ (and t package-build-run-recipe-make-targets)) (targets (and _ (eieio-oref rcp 'make-targets)))) (if targets (progn (package-build--message "Running make %s" (string-join targets " ")) (apply #'package-build--call-sandboxed rcp "make" targets)))) (let* ((files (and t (package-build-expand-files-spec rcp t)))) (if files (funcall (or package-build-build-function 'package-build--legacy-build) rcp files) (package-build--error rcp "Unable to find files matching recipe patterns"))) (if package-build-badge-data (progn (package-build--write-badge-image name version package-build-archive-dir))))
  (let ((name x139) (version x140) (commit x141) (revdesc x142)) (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* ((_ (and t package-build-run-recipe-shell-command)) (command (and _ (eieio-oref rcp 'shell-command)))) (if command (progn (package-build--message "Running %s" command) (package-build--call-sandboxed rcp shell-file-name shell-command-switch command)))) (let* ((_ (and t package-build-run-recipe-make-targets)) (targets (and _ (eieio-oref rcp 'make-targets)))) (if targets (progn (package-build--message "Running make %s" (string-join targets " ")) (apply #'package-build--call-sandboxed rcp "make" targets)))) (let* ((files (and t (package-build-expand-files-spec rcp t)))) (if files (funcall (or package-build-build-function 'package-build--legacy-build) rcp files) (package-build--error rcp "Unable to find files matching recipe patterns"))) (if package-build-badge-data (progn (package-build--write-badge-image name version package-build-archive-dir)))))
  (let* ((x139 (eieio-oref x0 'name)) (x140 (eieio-oref x0 'version)) (x141 (eieio-oref x0 'commit)) (x142 (eieio-oref x0 'revdesc))) (let ((name x139) (version x140) (commit x141) (revdesc x142)) (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* ((_ (and t package-build-run-recipe-shell-command)) (command (and _ (eieio-oref rcp ...)))) (if command (progn (package-build--message "Running %s" command) (package-build--call-sandboxed rcp shell-file-name shell-command-switch command)))) (let* ((_ (and t package-build-run-recipe-make-targets)) (targets (and _ (eieio-oref rcp ...)))) (if targets (progn (package-build--message "Running make %s" (string-join targets " ")) (apply #'package-build--call-sandboxed rcp "make" targets)))) (let* ((files (and t (package-build-expand-files-spec rcp t)))) (if files (funcall (or package-build-build-function 'package-build--legacy-build) rcp files) (package-build--error rcp "Unable to find files matching recipe patterns"))) (if package-build-badge-data (progn (package-build--write-badge-image name version package-build-archive-dir))))))
  (progn (ignore (eieio-object-p x0)) (let* ((x139 (eieio-oref x0 'name)) (x140 (eieio-oref x0 'version)) (x141 (eieio-oref x0 'commit)) (x142 (eieio-oref x0 'revdesc))) (let ((name x139) (version x140) (commit x141) (revdesc x142)) (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* ((_ (and t package-build-run-recipe-shell-command)) (command (and _ ...))) (if command (progn (package-build--message "Running %s" command) (package-build--call-sandboxed rcp shell-file-name shell-command-switch command)))) (let* ((_ (and t package-build-run-recipe-make-targets)) (targets (and _ ...))) (if targets (progn (package-build--message "Running make %s" ...) (apply ... rcp "make" targets)))) (let* ((files (and t ...))) (if files (funcall (or package-build-build-function ...) rcp files) (package-build--error rcp "Unable to find files matching recipe patterns"))) (if package-build-badge-data (progn (package-build--write-badge-image name version package-build-archive-dir)))))))
  (let ((x0 rcp) (process-environment (copy-sequence process-environment))) (progn (ignore (eieio-object-p x0)) (let* ((x139 (eieio-oref x0 'name)) (x140 (eieio-oref x0 'version)) (x141 (eieio-oref x0 'commit)) (x142 (eieio-oref x0 'revdesc))) (let ((name x139) (version x140) (commit x141) (revdesc x142)) (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* ((_ ...) (command ...)) (if command (progn ... ...))) (let* ((_ ...) (targets ...)) (if targets (progn ... ...))) (let* ((files ...)) (if files (funcall ... rcp files) (package-build--error rcp "Unable to find files matching recipe patterns"))) (if package-build-badge-data (progn (package-build--write-badge-image name version package-build-archive-dir))))))))
  (unwind-protect (let ((x0 rcp) (process-environment (copy-sequence process-environment))) (progn (ignore (eieio-object-p x0)) (let* ((x139 (eieio-oref x0 'name)) (x140 (eieio-oref x0 'version)) (x141 (eieio-oref x0 'commit)) (x142 (eieio-oref x0 'revdesc))) (let ((name x139) (version x140) (commit x141) (revdesc x142)) (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* (... ...) (if command ...)) (let* (... ...) (if targets ...)) (let* (...) (if files ... ...)) (if package-build-badge-data (progn ...))))))) (package-build--cleanup rcp))
  (let ((default-directory (package-recipe--working-tree rcp))) (unwind-protect (let ((x0 rcp) (process-environment (copy-sequence process-environment))) (progn (ignore (eieio-object-p x0)) (let* ((x139 (eieio-oref x0 ...)) (x140 (eieio-oref x0 ...)) (x141 (eieio-oref x0 ...)) (x142 (eieio-oref x0 ...))) (let ((name x139) (version x140) (commit x141) (revdesc x142)) (progn (package-build--checkout rcp) (setenv "PACKAGE_VERSION" version) (setenv "PACKAGE_REVISION" commit) (setenv "PACKAGE_REVDESC" revdesc) (let* ... ...) (let* ... ...) (let* ... ...) (if package-build-badge-data ...)))))) (package-build--cleanup rcp)))
  package-build--package(#<package-github-recipe package-github-recipe-1575e6e38a90>)
  (progn (package-build--package rcp) (if dump-archive-contents (progn (package-build-dump-archive-contents))))
  (if version (progn (package-build--package rcp) (if dump-archive-contents (progn (package-build-dump-archive-contents)))))
  (if package-build--inhibit-update nil (package-build--select-version rcp) (setq version (eieio-oref rcp 'version)) (if version (progn (package-build--package rcp) (if dump-archive-contents (progn (package-build-dump-archive-contents))))) (cond (silent) ((not version) (message " ✗ Cannot determine version!")) ((and package-build-verbose (not noninteractive)) (message " ✓ Success:") (let ((--dolist-tail-- (directory-files-and-attributes package-build-archive-dir nil (format "\\`%s-[0-9]+" name)))) (while --dolist-tail-- (let ((x136 ...)) (progn (ignore ...) (let* ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))))))
  (let* ((start-time (current-time)) (rcp (package-recipe-lookup name)) (url (eieio-oref rcp 'url)) (fetcher (package-recipe--fetcher rcp)) (version nil)) (if silent nil (message "%s%s package %s" (if noninteractive "\n • " "") (if package-build--inhibit-update "Fetching" "Building") name) (cond ((and package-build-verbose (not noninteractive)) (message "Package: %s" name) (message "Fetcher: %s" fetcher) (message "Source:  %s\n" url)) ((message "From %s" url)))) (package-build--fetch rcp) (if package-build--inhibit-update nil (package-build--select-version rcp) (setq version (eieio-oref rcp 'version)) (if version (progn (package-build--package rcp) (if dump-archive-contents (progn (package-build-dump-archive-contents))))) (cond (silent) ((not version) (message " ✗ Cannot determine version!")) ((and package-build-verbose (not noninteractive)) (message " ✓ Success:") (let ((--dolist-tail-- (directory-files-and-attributes package-build-archive-dir nil ...))) (while --dolist-tail-- (let (...) (progn ... ...) (setq --dolist-tail-- ...))))))) (if silent nil (message "%s %s in %.3fs, finished at %s" (if version "Built" "Fetched") name (float-time (time-since start-time)) (format-time-string "%FT%T%z" nil t))))
  (progn (let* ((start-time (current-time)) (rcp (package-recipe-lookup name)) (url (eieio-oref rcp 'url)) (fetcher (package-recipe--fetcher rcp)) (version nil)) (if silent nil (message "%s%s package %s" (if noninteractive "\n • " "") (if package-build--inhibit-update "Fetching" "Building") name) (cond ((and package-build-verbose (not noninteractive)) (message "Package: %s" name) (message "Fetcher: %s" fetcher) (message "Source:  %s\n" url)) ((message "From %s" url)))) (package-build--fetch rcp) (if package-build--inhibit-update nil (package-build--select-version rcp) (setq version (eieio-oref rcp 'version)) (if version (progn (package-build--package rcp) (if dump-archive-contents (progn (package-build-dump-archive-contents))))) (cond (silent) ((not version) (message " ✗ Cannot determine version!")) ((and package-build-verbose (not noninteractive)) (message " ✓ Success:") (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...)))))) (if silent nil (message "%s %s in %.3fs, finished at %s" (if version "Built" "Fetched") name (float-time (time-since start-time)) (format-time-string "%FT%T%z" nil t)))))
  package-build-archive("hamlet-mode")
  command-line-1(("-L" "/mnt/store/melpa/package-build" "--eval" "(progn (setq package-build-stable nil) (setq packa..." "--eval" "(progn (setq package-build-directory \"/mnt/store/m..." "--eval" "(setq package-build-timeout-secs 600)" "--eval" "()" "--eval" "(setq package-build--inhibit-fetch nil)" "--eval" "(setq package-build--inhibit-build nil)" "--load" "package-build.el" "--eval" "(package-build-archive \"hamlet-mode\")"))
  command-line()
  normal-top-level()