aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/cl-macs.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 91146c4d0ec..c38dc44ff60 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2298,7 +2298,7 @@ of `cl-symbol-macrolet' to additionally expand symbol macros."
2298 ;; The behavior of CL made sense in a dynamically scoped 2298 ;; The behavior of CL made sense in a dynamically scoped
2299 ;; language, but nowadays, lexical scoping semantics is more often 2299 ;; language, but nowadays, lexical scoping semantics is more often
2300 ;; expected. 2300 ;; expected.
2301 (`(,(or 'let 'let*) . ,(or `(,bindings . ,body) dontcare)) 2301 (`(,(or 'let 'let*) . ,(or `(,bindings . ,body) pcase--dontcare))
2302 (let ((nbs ()) (found nil)) 2302 (let ((nbs ()) (found nil))
2303 (dolist (binding bindings) 2303 (dolist (binding bindings)
2304 (let* ((var (if (symbolp binding) binding (car binding))) 2304 (let* ((var (if (symbolp binding) binding (car binding)))