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

Diff of /src/pcl/pclload.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ram, Sat Aug 21 14:03:40 1993 UTC revision 1.8 by pw, Fri Mar 27 12:03:08 1998 UTC
# Line 1  Line 1 
1  (in-package "PCL")  (in-package "PCL")
2  (unless (find-package "SLOT-ACCESSOR-NAME")  (unless (find-package "SLOT-ACCESSOR-NAME")
3    (make-package "SLOT-ACCESSOR-NAME"))    (make-package "SLOT-ACCESSOR-NAME" :use nil))
4  (rename-package "PCL" "PCL" '("OLD-PCL"))  (rename-package "PCL" "PCL" '("OLD-PCL"))
5  (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"  (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"
6                  '("OLD-SLOT-ACCESSOR-NAME"))                  '("OLD-SLOT-ACCESSOR-NAME"))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5