Debugger entered--Lisp error: (package-recipe-invalid consult-notes ":repo is missing")
  signal(package-recipe-invalid (consult-notes ":repo is missing"))
  (if (plist-get plist :repo) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":repo is missing"))))
  (progn (if (plist-get plist :repo) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":repo is missing")))) (if (not (plist-get plist :url)) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":url is redundant")))))
  (if (memq fetcher package-recipe--forge-fetchers) (progn (if (plist-get plist :repo) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":repo is missing")))) (if (not (plist-get plist :url)) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":url is redundant"))))) (if (plist-get plist :url) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":url is missing")))))
  (let ((fetcher (plist-get plist :fetcher))) (if fetcher nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":fetcher is missing")))) (if (memq fetcher package-recipe--forge-fetchers) (progn (if (plist-get plist :repo) nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message ":repo is missing")))) (if (not (plist-get plist :url)) nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message ":url is redundant"))))) (if (plist-get plist :url) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":url is missing"))))))
  (let* ((symbol-keys '(:fetcher)) (string-keys '(:url :repo :branch :tag :commit :version-regexp :shell-command)) (list-keys '(:files :make-targets :org-exports :old-names)) (all-keys (append symbol-keys string-keys list-keys))) (let ((--dolist-tail-- plist)) (while --dolist-tail-- (let ((thing (car --dolist-tail--))) (if (keywordp thing) (progn (if (memq thing all-keys) nil (signal ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((fetcher (plist-get plist :fetcher))) (if fetcher nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message ":fetcher is missing")))) (if (memq fetcher package-recipe--forge-fetchers) (progn (if (plist-get plist :repo) nil (signal 'package-recipe-invalid (list (let ... ...) (format-message ":repo is missing")))) (if (not (plist-get plist :url)) nil (signal 'package-recipe-invalid (list (let ... ...) (format-message ":url is redundant"))))) (if (plist-get plist :url) nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message ":url is missing")))))) (let ((--dolist-tail-- symbol-keys)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (let* ((val (and t ...))) (if val (if (symbolp val) nil (signal ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- list-keys)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (let* ((val (and t ...))) (if val (if (listp val) nil (signal ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- string-keys)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (let* ((val (and t ...))) (if val (if (stringp val) nil (signal ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let* ((spec (and t (plist-get plist :files)))) (if spec (progn (if (eq (car spec) :defaults) (progn (setq spec (cdr spec)))) (let ((--dolist-tail-- spec)) (while --dolist-tail-- (let (...) (if ... nil ...) (setq --dolist-tail-- ...))))))))
  (progn (if (and ident (symbolp ident) (not (keywordp ident))) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message "must begin with symbol, naming the package; not %S" ident)))) (if (string= (symbol-name ident) name) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message "mismatched package name %s vs. %s" name ident)))) (if plist nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message "Recipe cannot be empty")))) (let* ((symbol-keys '(:fetcher)) (string-keys '(:url :repo :branch :tag :commit :version-regexp :shell-command)) (list-keys '(:files :make-targets :org-exports :old-names)) (all-keys (append symbol-keys string-keys list-keys))) (let ((--dolist-tail-- plist)) (while --dolist-tail-- (let ((thing (car --dolist-tail--))) (if (keywordp thing) (progn (if ... nil ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((fetcher (plist-get plist :fetcher))) (if fetcher nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message ":fetcher is missing")))) (if (memq fetcher package-recipe--forge-fetchers) (progn (if (plist-get plist :repo) nil (signal 'package-recipe-invalid (list ... ...))) (if (not (plist-get plist :url)) nil (signal 'package-recipe-invalid (list ... ...)))) (if (plist-get plist :url) nil (signal 'package-recipe-invalid (list (let ... ...) (format-message ":url is missing")))))) (let ((--dolist-tail-- symbol-keys)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (let* ((val ...)) (if val (if ... nil ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- list-keys)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (let* ((val ...)) (if val (if ... nil ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- string-keys)) (while --dolist-tail-- (let ((key (car --dolist-tail--))) (let* ((val ...)) (if val (if ... nil ...))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let* ((spec (and t (plist-get plist :files)))) (if spec (progn (if (eq (car spec) :defaults) (progn (setq spec ...))) (let ((--dolist-tail-- spec)) (while --dolist-tail-- (let ... ... ...))))))) recipe)
  (let ((ident x0) (plist x1)) (progn (if (and ident (symbolp ident) (not (keywordp ident))) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message "must begin with symbol, naming the package; not %S" ident)))) (if (string= (symbol-name ident) name) nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message "mismatched package name %s vs. %s" name ident)))) (if plist nil (signal 'package-recipe-invalid (list (let ((name name)) (if (stringp name) (intern-soft name) name)) (format-message "Recipe cannot be empty")))) (let* ((symbol-keys '(:fetcher)) (string-keys '(:url :repo :branch :tag :commit :version-regexp :shell-command)) (list-keys '(:files :make-targets :org-exports :old-names)) (all-keys (append symbol-keys string-keys list-keys))) (let ((--dolist-tail-- plist)) (while --dolist-tail-- (let ((thing ...)) (if (keywordp thing) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((fetcher (plist-get plist :fetcher))) (if fetcher nil (signal 'package-recipe-invalid (list (let ... ...) (format-message ":fetcher is missing")))) (if (memq fetcher package-recipe--forge-fetchers) (progn (if (plist-get plist :repo) nil (signal ... ...)) (if (not ...) nil (signal ... ...))) (if (plist-get plist :url) nil (signal 'package-recipe-invalid (list ... ...))))) (let ((--dolist-tail-- symbol-keys)) (while --dolist-tail-- (let ((key ...)) (let* (...) (if val ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- list-keys)) (while --dolist-tail-- (let ((key ...)) (let* (...) (if val ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let ((--dolist-tail-- string-keys)) (while --dolist-tail-- (let ((key ...)) (let* (...) (if val ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (let* ((spec (and t (plist-get plist :files)))) (if spec (progn (if (eq ... :defaults) (progn ...)) (let (...) (while --dolist-tail-- ...)))))) recipe))
  (let* ((x0 (car-safe recipe)) (x1 (cdr-safe recipe))) (let ((ident x0) (plist x1)) (progn (if (and ident (symbolp ident) (not (keywordp ident))) nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message "must begin with symbol, naming the package; not %S" ident)))) (if (string= (symbol-name ident) name) nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message "mismatched package name %s vs. %s" name ident)))) (if plist nil (signal 'package-recipe-invalid (list (let (...) (if ... ... name)) (format-message "Recipe cannot be empty")))) (let* ((symbol-keys '(:fetcher)) (string-keys '(:url :repo :branch :tag :commit :version-regexp :shell-command)) (list-keys '(:files :make-targets :org-exports :old-names)) (all-keys (append symbol-keys string-keys list-keys))) (let ((--dolist-tail-- plist)) (while --dolist-tail-- (let (...) (if ... ...) (setq --dolist-tail-- ...)))) (let ((fetcher (plist-get plist :fetcher))) (if fetcher nil (signal 'package-recipe-invalid (list ... ...))) (if (memq fetcher package-recipe--forge-fetchers) (progn (if ... nil ...) (if ... nil ...)) (if (plist-get plist :url) nil (signal ... ...)))) (let ((--dolist-tail-- symbol-keys)) (while --dolist-tail-- (let (...) (let* ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- list-keys)) (while --dolist-tail-- (let (...) (let* ... ...) (setq --dolist-tail-- ...)))) (let ((--dolist-tail-- string-keys)) (while --dolist-tail-- (let (...) (let* ... ...) (setq --dolist-tail-- ...)))) (let* ((spec (and t ...))) (if spec (progn (if ... ...) (let ... ...))))) recipe)))
  (progn (ignore (consp recipe)) (let* ((x0 (car-safe recipe)) (x1 (cdr-safe recipe))) (let ((ident x0) (plist x1)) (progn (if (and ident (symbolp ident) (not (keywordp ident))) nil (signal 'package-recipe-invalid (list (let ... ...) (format-message "must begin with symbol, naming the package; not %S" ident)))) (if (string= (symbol-name ident) name) nil (signal 'package-recipe-invalid (list (let ... ...) (format-message "mismatched package name %s vs. %s" name ident)))) (if plist nil (signal 'package-recipe-invalid (list (let ... ...) (format-message "Recipe cannot be empty")))) (let* ((symbol-keys '...) (string-keys '...) (list-keys '...) (all-keys (append symbol-keys string-keys list-keys))) (let ((--dolist-tail-- plist)) (while --dolist-tail-- (let ... ... ...))) (let ((fetcher ...)) (if fetcher nil (signal ... ...)) (if (memq fetcher package-recipe--forge-fetchers) (progn ... ...) (if ... nil ...))) (let ((--dolist-tail-- symbol-keys)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- list-keys)) (while --dolist-tail-- (let ... ... ...))) (let ((--dolist-tail-- string-keys)) (while --dolist-tail-- (let ... ... ...))) (let* ((spec ...)) (if spec (progn ... ...)))) recipe))))
  package-recipe--validate((consult-notes :fetcher codeberg :url "https://codeberg.org/mclear-tools/consult-notes") "consult-notes")
  (let* ((recipe (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents file) (read ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (plist (cdr recipe)) (fetcher (plist-get plist :fetcher)) key val args rcp) (package-recipe--validate recipe name) (while (setq key (car-safe (prog1 plist (setq plist (cdr plist))))) (setq val (car-safe (prog1 plist (setq plist (cdr plist))))) (if (eq key :fetcher) nil (setq args (cons val args)) (setq args (cons key args)))) (if (and package-build-use-git-remote-hg (eq fetcher 'hg)) (progn (setq fetcher 'git-remote-hg) (setq args (plist-put args :url (concat "hg::" (eieio-oref rcp 'url)))))) (setq rcp (apply (intern (format "package-%s-recipe" fetcher)) :name name args)) (if (eieio-oref rcp 'url) nil (eieio-oset rcp 'url (format (eieio-oref rcp 'url-format) (eieio-oref rcp 'repo)))) rcp)
  (if (file-exists-p file) (let* ((recipe (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))) (plist (cdr recipe)) (fetcher (plist-get plist :fetcher)) key val args rcp) (package-recipe--validate recipe name) (while (setq key (car-safe (prog1 plist (setq plist (cdr plist))))) (setq val (car-safe (prog1 plist (setq plist (cdr plist))))) (if (eq key :fetcher) nil (setq args (cons val args)) (setq args (cons key args)))) (if (and package-build-use-git-remote-hg (eq fetcher 'hg)) (progn (setq fetcher 'git-remote-hg) (setq args (plist-put args :url (concat "hg::" (eieio-oref rcp ...)))))) (setq rcp (apply (intern (format "package-%s-recipe" fetcher)) :name name args)) (if (eieio-oref rcp 'url) nil (eieio-oset rcp 'url (format (eieio-oref rcp 'url-format) (eieio-oref rcp 'repo)))) rcp) (error "No such recipe: %s" name))
  (let ((file (expand-file-name name package-build-recipes-dir))) (if (file-exists-p file) (let* ((recipe (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (unwind-protect ... ...)))) (plist (cdr recipe)) (fetcher (plist-get plist :fetcher)) key val args rcp) (package-recipe--validate recipe name) (while (setq key (car-safe (prog1 plist (setq plist ...)))) (setq val (car-safe (prog1 plist (setq plist ...)))) (if (eq key :fetcher) nil (setq args (cons val args)) (setq args (cons key args)))) (if (and package-build-use-git-remote-hg (eq fetcher 'hg)) (progn (setq fetcher 'git-remote-hg) (setq args (plist-put args :url (concat "hg::" ...))))) (setq rcp (apply (intern (format "package-%s-recipe" fetcher)) :name name args)) (if (eieio-oref rcp 'url) nil (eieio-oset rcp 'url (format (eieio-oref rcp 'url-format) (eieio-oref rcp 'repo)))) rcp) (error "No such recipe: %s" name)))
  package-recipe-lookup("consult-notes")
  (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("consult-notes")
  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 \"consult-notes\")"))
  command-line()
  normal-top-level()