From 6f3f52d4f00620e6186d119cecc56f2e21c29f13 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Wed, 3 Mar 2021 21:02:05 +0100 Subject: [PATCH] destructuring-bind: signal program-error instead of an ordinary error Make the ansi-test suite happy. --- src/lsp/defmacro.lsp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/lsp/defmacro.lsp b/src/lsp/defmacro.lsp index eef3fb73a..cfa8f7063 100644 --- a/src/lsp/defmacro.lsp +++ b/src/lsp/defmacro.lsp @@ -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))