mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 12:03:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

destructuring-bind: signal program-error instead of an ordinary error

Browse source 
Make the ansi-test suite happy.
This commit is contained in:
Marius Gerbershagen 2021-03-03 21:02:05 +01:00
parent e74f2935f4
commit 6f3f52d4f0
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/lsp/defmacro.lsp
View file

@ -80,15 +80,15 @@
(setq err head)))))
(defun dm-too-many-arguments (*current-form*)
(error "Too many arguments supplied to a macro or a destructuring-bind form:~%~s"
*current-form*))
(simple-program-error "Too many arguments supplied to a macro or a destructuring-bind form:~%~s"
*current-form*))
(defun dm-too-few-arguments (form-or-nil)
(if form-or-nil
(let ((*current-form* form-or-nil))
(error "Too few arguments supplied to a macro or a destructuring-bind form:~%~S"
*current-form*))
(error "Too few arguments supplied to a inlined lambda form.")))
(simple-program-error "Too few arguments supplied to a macro or a destructuring-bind form:~%~S"
*current-form*))
(simple-program-error "Too few arguments supplied to a inlined lambda form.")))
(defun sys::destructure (vl context &aux
(basis-form (gensym))