Commit 6f3f52d4 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

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

Make the ansi-test suite happy.
parent e74f2935
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment