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

Remove another use of simple-package-error

Browse source
This commit is contained in:
jjgarcia 2005-11-04 13:45:50 +00:00
parent 7ca819c59a
commit 675cb421e1
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/lsp/defpackage.lsp
View file

@ -222,10 +222,11 @@
(multiple-value-bind (symbol found)
(find-symbol name package)
(unless found
(signal-simple-error 'package-error "INTERN it."
"Cannot find symbol ~S in package ~S"
(list name package)
:package package)
(cerror "INTERN it."
'simple-package-error
:format-control "Cannot find symbol ~S in package ~S"
:format-arguments (list name package)
:package package)
(setq symbol (intern name package)))
symbol))