From 6a064b81ead92e6765d553e35ffdd6ee2fed8505 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 21 Aug 1993 14:03:40 +0000
Subject: [PATCH] Make OLD-PCL and OLD-SLOT-ACCESSOR-NAME be nicknames during
 loading.

---
 pcl/pclload.lisp | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/pcl/pclload.lisp b/pcl/pclload.lisp
index 0632e483a..39fb098d6 100644
--- a/pcl/pclload.lisp
+++ b/pcl/pclload.lisp
@@ -1,10 +1,12 @@
 (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)))
-- 
GitLab