Skip to content
Snippets Groups Projects
Commit 6a064b81 authored by ram's avatar ram
Browse files

Make OLD-PCL and OLD-SLOT-ACCESSOR-NAME be nicknames during loading.

parent 2116b444
No related branches found
No related tags found
No related merge requests found
(in-package "PCL")
(unless (find-package "SLOT-ACCESSOR-NAME")
(make-package "SLOT-ACCESSOR-NAME"))
(rename-package "PCL" "PCL" '("OLD-PCL"))
(rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"
'("OLD-SLOT-ACCESSOR-NAME"))
(import 'kernel:funcallable-instance-p)
(load "target:pcl/defsys")
(load-pcl)
(rename-package "PCL" "PCL" '())
(rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME" '())
;; hack, hack...
#+nil
(ignore-errors
(with-output-to-string (*standard-output*)
(describe #'print-object)))
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