Debugger entered--Lisp error: (invalid-read-syntax "expected )" 1213 22) #285
Description
Using the latest commit from master, evaluating this function:
(defconst package-lint-symbol-info
(let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes"))
(info (make-hash-table)))
(pcase-dolist (`(,version . ,data) stdlib-changes)
(pcase-dolist (`(,syms . ,action)
(let-alist data
(list (cons .variables.added 'variable-added)
(cons .variables.removed 'variable-removed)
(cons .features.added 'library-added)
(cons .features.removed 'library-removed)
(cons .functions.added 'function-added)
(cons .functions.removed 'function-removed))))
(dolist (sym syms)
(puthash sym (cons (cons action version) (gethash sym info)) info))))
info)
"A hash table from SYMBOL to a list of events in its history.
Each event is of the form (ACTION . EMACS-VER), where ACTION is a
symbol such as `variable-added'.")Debugger entered--Lisp error: (invalid-read-syntax "expected )" 1213 22)
read(#<buffer *temp*>)
(progn (insert-file-contents (expand-file-name file (if load-file-name (file-name-directory load-file-name) default-directory))) (read (current-buffer)))
(unwind-protect (progn (insert-file-contents (expand-file-name file (if load-file-name (file-name-directory load-file-name) default-directory))) (read (current-buffer))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert-file-contents (expand-file-name file (if load-file-name (file-name-directory load-file-name) default-directory))) (read (current-buffer))) (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 (expand-file-name file (if load-file-name (file-name-directory load-file-name) default-directory))) (read (current-buffer))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))
package-lint--load-data("data/stdlib-changes")
(let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (let ((tail stdlib-changes)) (while tail (let ((x204 (car tail))) (progn (ignore (consp x204)) (let* ((x205 ...) (x206 ...)) (let (... ...) (let ... ...)))) (setq tail (cdr tail))))) info)
(defconst package-lint-symbol-info (let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (let ((tail stdlib-changes)) (while tail (let ((x204 (car tail))) (progn (ignore (consp x204)) (let* (... ...) (let ... ...))) (setq tail (cdr tail))))) info) "A hash table from SYMBOL to a list of events in it...")
eval((defconst package-lint-symbol-info (let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (let ((tail stdlib-changes)) (while tail (let ((x204 ...)) (progn (ignore ...) (let* ... ...)) (setq tail (cdr tail))))) info) "A hash table from SYMBOL to a list of events in it...") t)
#f(compiled-function (exp &optional insert-value no-truncate char-print-limit) "Evaluate EXP and print value in the echo area.\nWhen called interactively, read an Emacs Lisp expression and\nevaluate it. Value is also consed on to front of the variable\n`values'. Optional argument INSERT-VALUE non-nil (interactively,\nwith a non `-' prefix argument) means insert the result into the\ncurrent buffer instead of printing it in the echo area.\n\nNormally, this function truncates long output according to the\nvalue of the variables `eval-expression-print-length' and\n`eval-expression-print-level'. When NO-TRUNCATE is\nnon-nil (interactively, with a prefix argument of zero), however,\nthere is no such truncation.\n\nIf the resulting value is an integer, and CHAR-PRINT-LIMIT is\nnon-nil (interactively, unless given a non-zero prefix argument)\nit will be printed in several additional formats (octal,\nhexadecimal, and character). The character format is used only\nif the value is below CHAR-PRINT-LIMIT (interactively, if the\nprefix argument is -1 or the value doesn't exceed\n`eval-expression-print-maximum-character').\n\nRuns the hook `eval-expression-minibuffer-setup-hook' on entering the\nminibuffer.\n\nIf `eval-expression-debug-on-error' is non-nil, which is the default,\nthis command arranges for all errors to enter the debugger." (interactive #f(compiled-function () #<bytecode -0x9fccc608f7bbf25>)) #<bytecode 0x16a92ec9995baf83>)((defconst package-lint-symbol-info (let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (pcase-dolist (`(,version \, data) stdlib-changes) (pcase-dolist (`(... \, action) (let-alist data (list ... ... ... ... ... ...))) (dolist (sym syms) (puthash sym (cons ... ...) info)))) info) "A hash table from SYMBOL to a list of events in it...") nil nil 127)
apply(#f(compiled-function (exp &optional insert-value no-truncate char-print-limit) "Evaluate EXP and print value in the echo area.\nWhen called interactively, read an Emacs Lisp expression and\nevaluate it. Value is also consed on to front of the variable\n`values'. Optional argument INSERT-VALUE non-nil (interactively,\nwith a non `-' prefix argument) means insert the result into the\ncurrent buffer instead of printing it in the echo area.\n\nNormally, this function truncates long output according to the\nvalue of the variables `eval-expression-print-length' and\n`eval-expression-print-level'. When NO-TRUNCATE is\nnon-nil (interactively, with a prefix argument of zero), however,\nthere is no such truncation.\n\nIf the resulting value is an integer, and CHAR-PRINT-LIMIT is\nnon-nil (interactively, unless given a non-zero prefix argument)\nit will be printed in several additional formats (octal,\nhexadecimal, and character). The character format is used only\nif the value is below CHAR-PRINT-LIMIT (interactively, if the\nprefix argument is -1 or the value doesn't exceed\n`eval-expression-print-maximum-character').\n\nRuns the hook `eval-expression-minibuffer-setup-hook' on entering the\nminibuffer.\n\nIf `eval-expression-debug-on-error' is non-nil, which is the default,\nthis command arranges for all errors to enter the debugger." (interactive #f(compiled-function () #<bytecode -0x9fccc608f7bbf25>)) #<bytecode 0x16a92ec9995baf83>) ((defconst package-lint-symbol-info (let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (pcase-dolist (`(... \, data) stdlib-changes) (pcase-dolist (`... (let-alist data ...)) (dolist (sym syms) (puthash sym ... info)))) info) "A hash table from SYMBOL to a list of events in it...") nil nil 127))
eval-expression((defconst package-lint-symbol-info (let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (pcase-dolist (`(,version \, data) stdlib-changes) (pcase-dolist (`(... \, action) (let-alist data (list ... ... ... ... ... ...))) (dolist (sym syms) (puthash sym (cons ... ...) info)))) info) "A hash table from SYMBOL to a list of events in it...") nil nil 127)
funcall-interactively(eval-expression (defconst package-lint-symbol-info (let* ((stdlib-changes (package-lint--load-data "data/stdlib-changes")) (info (make-hash-table))) (pcase-dolist (`(,version \, data) stdlib-changes) (pcase-dolist (`(... \, action) (let-alist data (list ... ... ... ... ... ...))) (dolist (sym syms) (puthash sym (cons ... ...) info)))) info) "A hash table from SYMBOL to a list of events in it...") nil nil 127)
call-interactively(eval-expression nil nil)
command-execute(eval-expression)