diff --git a/src/lsp/defpackage.lsp b/src/lsp/defpackage.lsp index 9a1bc8d04..7be9c9432 100644 --- a/src/lsp/defpackage.lsp +++ b/src/lsp/defpackage.lsp @@ -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))