diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-25 21:56:17 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-25 21:56:17 +0200 |
| commit | 7633391ce093b0269e3cc77af8a8f437e5d14042 (patch) | |
| tree | b05c8f62429f2fb83e0df468b8a1a3a9aa915ecb /lisp/emacs-lisp | |
| parent | fee2aeeb75849e84a8905f29c90f231986fbf7ab (diff) | |
| download | emacs-7633391ce093b0269e3cc77af8a8f437e5d14042.tar.gz emacs-7633391ce093b0269e3cc77af8a8f437e5d14042.tar.bz2 emacs-7633391ce093b0269e3cc77af8a8f437e5d14042.zip | |
Make cl-destructuring-bind errors a bit more understandable
* lisp/emacs-lisp/cl-macs.el (cl-destructuring-bind): Make errors
when giving the wrong number of arguments to the bindings form
more informational (bug#29345).
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 4347b4b71bf..8b9224bd1b7 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -695,8 +695,11 @@ its argument list allows full Common Lisp conventions." "Bind the variables in ARGS to the result of EXPR and execute BODY." (declare (indent 2) (debug (&define cl-macro-list1 def-form cl-declarations def-body))) - (let* ((cl--bind-lets nil) (cl--bind-forms nil) - (cl--bind-defs nil) (cl--bind-block 'cl-none) (cl--bind-enquote nil)) + (let* ((cl--bind-lets nil) + (cl--bind-forms nil) + (cl--bind-defs nil) + (cl--bind-block args) + (cl--bind-enquote nil)) (cl--do-arglist (or args '(&aux)) expr) (macroexp-let* (nreverse cl--bind-lets) (macroexp-progn (append (nreverse cl--bind-forms) body))))) |