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