diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp index f40851bceb5d7c0471055130daac5c27753c88e3..062efb676ae55fb77c28e73d98a657e0b208d1bb 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"))