From 1866dce24159fb48818bc2393dfc2aa2862dadcb Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 17 Jul 1998 00:36:10 +0000
Subject: [PATCH] Simple-program-error is now exported from the KERNEL package.

---
 pcl/boot.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 3bb989bf8..8a0440e9c 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -26,7 +26,7 @@
 ;;;
 #+cmu
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.15 1998/07/16 13:30:53 pw Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.16 1998/07/17 00:36:10 dtc Exp $")
 
 (in-package :pcl)
 
@@ -223,7 +223,7 @@ work during bootstrapping.
 	    (:method
 	     (push (cdr option) methods))
 	    (t ;unsuported things must get a 'program-error
-	     (error 'lisp::simple-program-error
+	     (error 'kernel:simple-program-error
 		    :format-control "Unsupported option ~S."
 		    :format-arguments (list option)))))
 
-- 
GitLab