From 19bee39588d25a31552208e047df30e43c232de8 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 25 Jun 1998 18:45:29 +0000 Subject: [PATCH] Restore the pcl::..slot-unbound.. symbol back to the PCL package after renaming the PCL to OLD-PCL package. --- tools/pclcom.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp index ad70754a1..72714b145 100644 --- a/tools/pclcom.lisp +++ b/tools/pclcom.lisp @@ -38,15 +38,17 @@ (t (setf (kernel:class-pcl-class class) nil))))))) - ;; Shadowing-import 'pcl::class so that this symbol is the same as - ;; used by the compiler in ir1tran. - (let ((class 'pcl::class)) + ;; Rename the PCL package to OLD-PCL, then restoring pcl::class and + ;; pcl::..slot-unbound.. back to the PCL package as they need be + ;; consistent with the symbols recognised by the compiler. + (let ((class 'pcl::class) + (slot-unbound 'pcl::..slot-unbound..)) (rename-package "PCL" "OLD-PCL") (make-package "PCL") (shadowing-import class "PCL") - ;; Move class back to the PCL package so that the respective debug - ;; variable has a valid package name. - (kernel:%set-symbol-package class (find-package "PCL")))) + (kernel:%set-symbol-package class (find-package "PCL")) + (import slot-unbound "PCL") + (kernel:%set-symbol-package slot-unbound (find-package "PCL")))) (when (find-package "SLOT-ACCESSOR-NAME") (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME")) -- GitLab