/[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.30 by gerd, Wed Jun 18 09:23:08 2003 UTC revision 1.31 by gerd, Wed Jun 18 10:50:14 2003 UTC
# Line 49  Line 49 
49      (let ((sym (find-symbol "REINITIALIZE-STRUCTURE-CLASS" "PCL")))      (let ((sym (find-symbol "REINITIALIZE-STRUCTURE-CLASS" "PCL")))
50        (when sym        (when sym
51          (setq kernel::*defstruct-hooks*          (setq kernel::*defstruct-hooks*
52                (delete (symbol-function sym) kernel::*defstruct-hooks*)))))                (delete sym kernel::*defstruct-hooks*)))))
53    
54    ;; Undefine all PCL classes, and clear CLASS-PCL-CLASS slots.    ;; Undefine all PCL classes, and clear CLASS-PCL-CLASS slots.
55    (let ((wot (kernel::find-symbol "*FIND-CLASS*" "PCL")))    (let ((wot (kernel::find-symbol "*FIND-CLASS*" "PCL")))

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

  ViewVC Help
Powered by ViewVC 1.1.5