/[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.2.1 by pw, Tue Jun 23 11:25:37 1998 UTC revision 1.9 by gerd, Thu Apr 3 11:40:06 2003 UTC
# Line 1  Line 1 
1  (in-package "PCL")  (in-package "PCL")
 (unless (find-package "SLOT-ACCESSOR-NAME")  
   (make-package "SLOT-ACCESSOR-NAME" :use nil))  
2  (rename-package "PCL" "PCL" '("OLD-PCL"))  (rename-package "PCL" "PCL" '("OLD-PCL"))
 (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME"  
                 '("OLD-SLOT-ACCESSOR-NAME"))  
3  (import 'kernel:funcallable-instance-p)  (import 'kernel:funcallable-instance-p)
4  (load "target:pcl/defsys")  (load "target:pcl/defsys")
5  (load-pcl)  (load-pcl)
6  (rename-package "PCL" "PCL" '())  (rename-package "PCL" "PCL" '())
7  (rename-package "SLOT-ACCESSOR-NAME" "SLOT-ACCESSOR-NAME" '())  
8    

Legend:
Removed from v.1.7.2.1  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5