From d06364ce7fda5120bee36620dee3021b14fc0d57 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 7 Nov 2005 10:32:33 +0000
Subject: [PATCH] Removed another use of SIMPLE-PACKAGE-ERRO

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

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