From 675cb421e168f9fa7e79fe9d9a3e29351a8aa467 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 4 Nov 2005 13:45:50 +0000
Subject: [PATCH] Remove another use of simple-package-error

---
 src/lsp/defpackage.lsp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

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