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

The condition SIMPLE-PROGRAM-ERROR no longer exists.

Browse source
This commit is contained in:
jjgarcia 2005-11-04 13:09:26 +00:00
parent aa9abe50a8
commit 81babfd3af
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/lsp/packlib.lsp
View file

@ -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)))