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

Contents of /src/pcl/pclload.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7.2.1 - (show annotations)
Tue Jun 23 11:25:37 1998 UTC (15 years, 10 months ago) by pw
Branch: RELENG_18
CVS Tags: RELEASE_18d, RELEASE_18b, RELEASE_18c
Changes since 1.7: +1 -1 lines
This (huge) revision brings the RELENG_18 branch up to the current HEAD.
Note code/unix-glib2.lisp not yet included -- not sure it is ready to go.
1 (in-package "PCL")
2 (unless (find-package "SLOT-ACCESSOR-NAME")
3 (make-package "SLOT-ACCESSOR-NAME" :use nil))
4 (rename-package "PCL" "PCL" '("OLD-PCL"))
5 (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"
6 '("OLD-SLOT-ACCESSOR-NAME"))
7 (import 'kernel:funcallable-instance-p)
8 (load "target:pcl/defsys")
9 (load-pcl)
10 (rename-package "PCL" "PCL" '())
11 (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME" '())
12

  ViewVC Help
Powered by ViewVC 1.1.5