/[cmucl]/src/tools/pclcom.lisp
ViewVC logotype

Diff of /src/tools/pclcom.lisp

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

revision 1.23.2.3 by gerd, Sat Mar 22 14:04:16 2003 UTC revision 1.34 by rtoy, Wed Jun 17 21:08:21 2009 UTC
# Line 7  Line 7 
7  ;;;  ;;;
8  ;;; **********************************************************************  ;;; **********************************************************************
9  ;;;  ;;;
10  (in-package "USER")  (in-package "CL-USER")
11    (setf lisp::*enable-package-locked-errors* nil)
12    
13  (when (find-package "PCL")  (when (find-package "PCL")
14    ;; Load the lisp:documentation functions.    ;; Load the lisp:documentation functions.
# Line 23  Line 24 
24    (setf (compiler-macro-function 'slot-value) nil)    (setf (compiler-macro-function 'slot-value) nil)
25    (setf (compiler-macro-function 'slot-boundp) nil)    (setf (compiler-macro-function 'slot-boundp) nil)
26    ;;    ;;
27    ;; Undefine all generic functions exported from Lisp so that bootstrapping    ;; Undefine all generic functions exported from Lisp so that
28    ;; doesn't get confused.    ;; bootstrapping doesn't get confused, but convert condition
29      ;; accessor gfs to normal functions beforehand, for the obvious
30      ;; reason.
31      (when (fboundp 'conditions::make-early-condition-accessors-generic)
32        (conditions::make-early-condition-accessors-generic nil))
33    (let ((class (kernel::find-class 'generic-function nil)))    (let ((class (kernel::find-class 'generic-function nil)))
34      (when class      (when class
35        (do-external-symbols (sym "LISP")        (do-external-symbols (sym "LISP")
# Line 41  Line 46 
46        (setq lisp::*setf-fdefinition-hook*        (setq lisp::*setf-fdefinition-hook*
47              (delete (symbol-function sym) lisp::*setf-fdefinition-hook*))))              (delete (symbol-function sym) lisp::*setf-fdefinition-hook*))))
48    
49      (when (boundp 'kernel::*defstruct-hooks*)
50        (let ((sym (find-symbol "REINITIALIZE-STRUCTURE-CLASS" "PCL")))
51          (when sym
52            (setq kernel::*defstruct-hooks*
53                  (delete sym kernel::*defstruct-hooks*)))))
54    
55    ;; Undefine all PCL classes, and clear CLASS-PCL-CLASS slots.    ;; Undefine all PCL classes, and clear CLASS-PCL-CLASS slots.
56    (let ((wot (kernel::find-symbol "*FIND-CLASS*" "PCL")))    (let ((wot (kernel::find-symbol "*FIND-CLASS*" "PCL")))
57      (when (and wot (boundp wot))      (when (and wot (boundp wot))
# Line 65  Line 76 
76      (import slot-unbound "PCL")      (import slot-unbound "PCL")
77      (kernel:%set-symbol-package slot-unbound (find-package "PCL"))))      (kernel:%set-symbol-package slot-unbound (find-package "PCL"))))
78    
 (when (find-package  "SLOT-ACCESSOR-NAME")  
   (rename-package "SLOT-ACCESSOR-NAME" "OLD-SLOT-ACCESSOR-NAME"))  
   
79  (when (find-package "CLOS-MOP")  (when (find-package "CLOS-MOP")
80    (rename-package "CLOS-MOP" "OLD-CLOS-MOP"))    (rename-package "CLOS-MOP" "OLD-CLOS-MOP"))
81    
# Line 107  Line 115 
115   "pcl:gray-streams-library"   "pcl:gray-streams-library"
116   "pcl:gray-streams-class"   "pcl:gray-streams-class"
117   "pcl:gray-streams")   "pcl:gray-streams")
118    
119    (cat-if-anything-changed
120     "pcl:simple-streams-library"
121     "pcl:simple-streams/herald"
122     "pcl:simple-streams/classes"
123     "pcl:simple-streams/internal"
124     "pcl:simple-streams/strategy"
125     "pcl:simple-streams/impl"
126     "pcl:simple-streams/null"
127     "pcl:simple-streams/direct"
128     "pcl:simple-streams/file"
129     "pcl:simple-streams/string"
130     "pcl:simple-streams/terminal"
131     "pcl:simple-streams/socket";)
132     "pcl:simple-streams/iodefs"
133     "pcl:simple-streams/gray-compat")
134    
135    (cat-if-anything-changed
136     "pcl:iodefs-library"
137     "pcl:simple-streams/iodefs")
138    
139    (cat-if-anything-changed
140     "pcl:gray-compat-library"
141     "pcl:simple-streams/gray-compat")

Legend:
Removed from v.1.23.2.3  
changed lines
  Added in v.1.34

  ViewVC Help
Powered by ViewVC 1.1.5