diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 2 |
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))) |