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

Removed another use of SIMPLE-PACKAGE-ERRO

Browse source
This commit is contained in:
jjgarcia 2005-11-07 10:32:33 +00:00
parent ce5471c0e0
commit d06364ce7f
1 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/lsp/defpackage.lsp
View file

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