diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2021-05-17 15:19:46 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-05-17 15:19:46 +0300 |
| commit | 7828d561c1a75ed9044fe435976250ba7680c879 (patch) | |
| tree | 95e8bdaab1921593a3541fb112585a75fc0cc64c /lisp/emacs-lisp/cl-macs.el | |
| parent | 7b82584c694504996cc3ce302d37edc922c1eb83 (diff) | |
| parent | e477b5ee12136b14af0641980f39f43e66f67f36 (diff) | |
| download | emacs-7828d561c1a75ed9044fe435976250ba7680c879.tar.gz emacs-7828d561c1a75ed9044fe435976250ba7680c879.tar.bz2 emacs-7828d561c1a75ed9044fe435976250ba7680c879.zip | |
Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index d7e6c307ed3..283c5e4a74e 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -1924,7 +1924,8 @@ from OBARRAY. \(fn (VAR [OBARRAY [RESULT]]) BODY...)" (declare (indent 1) - (debug ((symbolp &optional form form) cl-declarations body))) + (debug ((symbolp &optional form form) cl-declarations + def-body))) ;; Apparently this doesn't have an implicit block. `(cl-block nil (let (,(car spec)) @@ -1964,7 +1965,7 @@ Each symbol in the first list is bound to the corresponding value in the second list (or to nil if VALUES is shorter than SYMBOLS); then the BODY forms are executed and their result is returned. This is much like a `let' form, except that the list of symbols can be computed at run-time." - (declare (indent 2) (debug (form form body))) + (declare (indent 2) (debug (form form def-body))) (let ((bodyfun (make-symbol "body")) (binds (make-symbol "binds")) (syms (make-symbol "syms")) |