Skip to content
Snippets Groups Projects
Commit a05a3eb6 authored by dtc's avatar dtc
Browse files

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.
parent b3d4ff9f
No related branches found
No related tags found
No related merge requests found
...@@ -38,8 +38,12 @@ ...@@ -38,8 +38,12 @@
(t (t
(setf (kernel:class-pcl-class class) nil))))))) (setf (kernel:class-pcl-class class) nil)))))))
(rename-package "PCL" "OLD-PCL") ;; Shadowing-import 'pcl::class so that this symbol is the same as
(make-package "PCL")) ;; 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") (when (find-package "SLOT-ACCESSOR-NAME")
(rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME")) (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment