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

Contents of /src/pcl/pclload.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (hide annotations)
Fri Mar 27 12:03:08 1998 UTC (16 years ago) by pw
Branch: MAIN
CVS Tags: release-18e-base, LINKAGE_TABLE, PRE_LINKAGE_TABLE, release-18e-pre2, cold-pcl-base, UNICODE-BASE, release-18e, release-18e-pre1
Branch point for: UNICODE-BRANCH, release-18e-branch, cold-pcl
Changes since 1.7: +1 -1 lines
Remove :common-lisp from the use list of the SLOT-ACCESSOR-NAMES package.
This is in alignment with other package changes and gets rid of a
load-time warning.
1 ram 1.1 (in-package "PCL")
2 ram 1.7 (unless (find-package "SLOT-ACCESSOR-NAME")
3 pw 1.8 (make-package "SLOT-ACCESSOR-NAME" :use nil))
4 ram 1.7 (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