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