From a05a3eb686c538e254bbbddf28e8003e41cff857 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 5 Jun 1998 02:57:03 +0000
Subject: [PATCH] After renaming the PCL package, shadowing-import
 'old-pcl::class so that this symbol is the same as used by the compiler in
 ir1tran.  This enables the definition of PCL classes while compiling PCL
 which now works after fixes to the class hierarchy.

---
 tools/pclcom.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index f40851bce..062efb676 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -38,8 +38,12 @@
 		(t
 		 (setf (kernel:class-pcl-class class) nil)))))))
 
-  (rename-package "PCL" "OLD-PCL")
-  (make-package "PCL"))
+  ;; Shadowing-import 'pcl::class so that this symbol is the same as
+  ;; used by the compiler in ir1tran.
+  (let ((class 'pcl::class))
+    (rename-package "PCL" "OLD-PCL")
+    (make-package "PCL")
+    (shadowing-import class "PCL")))
 
 (when (find-package  "SLOT-ACCESSOR-NAME")
   (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
-- 
GitLab