From 81babfd3afd339ce9e2f23251b63eb03d06e4042 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Fri, 4 Nov 2005 13:09:26 +0000 Subject: [PATCH] The condition SIMPLE-PROGRAM-ERROR no longer exists. --- src/lsp/packlib.lsp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/lsp/packlib.lsp b/src/lsp/packlib.lsp index d54565bc9..85106d265 100644 --- a/src/lsp/packlib.lsp +++ b/src/lsp/packlib.lsp @@ -78,12 +78,12 @@ is used." (if conditions (let ((aux (set-difference conditions '(:external :internal :inherited)))) (when aux - (error 'simple-program-error - :format-control "Clauses ~{~S~} are not allowed." - :format-arguments aux))) - (error 'simple-program-error - :format-control "Must supply at least one of :inherited, :external~ - or :internal")) + (signal-simple-error 'program-error nil "Clauses ~{~S~} are not allowed." + (list aux)))) + (signal-simple-error 'program-error + nil + "Must supply at least one of :inherited, :external~or :internal" + nil)) `(let ((,iterator (packages-iterator ,package-list ',conditions t))) (macrolet ((,iterator () (list 'funcall ',iterator))) ,@body)))