/[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.24 by gerd, Sat Mar 22 16:15:14 2003 UTC revision 1.25 by gerd, Sun Mar 30 18:43:59 2003 UTC
# Line 41  Line 41 
41        (setq lisp::*setf-fdefinition-hook*        (setq lisp::*setf-fdefinition-hook*
42              (delete (symbol-function sym) lisp::*setf-fdefinition-hook*))))              (delete (symbol-function sym) lisp::*setf-fdefinition-hook*))))
43    
44      (when (boundp 'kernel::*defstruct-hooks*)
45        (let ((sym (find-symbol "REINITIALIZE-STRUCTURE-CLASS" "PCL")))
46          (when sym
47            (setq kernel::*defstruct-hooks*
48                  (delete (symbol-function sym) kernel::*defstruct-hooks*)))))
49    
50    ;; Undefine all PCL classes, and clear CLASS-PCL-CLASS slots.    ;; Undefine all PCL classes, and clear CLASS-PCL-CLASS slots.
51    (let ((wot (kernel::find-symbol "*FIND-CLASS*" "PCL")))    (let ((wot (kernel::find-symbol "*FIND-CLASS*" "PCL")))
52      (when (and wot (boundp wot))      (when (and wot (boundp wot))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5