/[cmucl]/src/pcl/pclload.lisp
ViewVC logotype

Contents of /src/pcl/pclload.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide annotations)
Sat Aug 21 14:03:40 1993 UTC (20 years, 8 months ago) by ram
Branch: MAIN
CVS Tags: RELEASE_18a
Branch point for: RELENG_18
Changes since 1.6: +7 -5 lines
Make OLD-PCL and OLD-SLOT-ACCESSOR-NAME be nicknames during loading.
1 ram 1.1 (in-package "PCL")
2 ram 1.7 (unless (find-package "SLOT-ACCESSOR-NAME")
3     (make-package "SLOT-ACCESSOR-NAME"))
4     (rename-package "PCL" "PCL" '("OLD-PCL"))
5     (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"
6     '("OLD-SLOT-ACCESSOR-NAME"))
7 ram 1.1 (import 'kernel:funcallable-instance-p)
8 ram 1.6 (load "target:pcl/defsys")
9 ram 1.1 (load-pcl)
10 ram 1.7 (rename-package "PCL" "PCL" '())
11     (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME" '())
12 ram 1.1

  ViewVC Help
Powered by ViewVC 1.1.5