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

After renaming the PCL package to OLD-PCL, move the 'class symbol back

to the PCL package so that the respective debug variable has a valid
package name.
parent 5889c7eb
No related branches found
No related tags found
No related merge requests found
......@@ -43,7 +43,10 @@
(let ((class 'pcl::class))
(rename-package "PCL" "OLD-PCL")
(make-package "PCL")
(shadowing-import class "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"))))
(when (find-package "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