/[cmucl]/src/pcl/std-class.lisp
ViewVC logotype

Diff of /src/pcl/std-class.lisp

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

revision 1.80 by rtoy, Thu Jul 7 16:44:27 2005 UTC revision 1.81 by rtoy, Mon Oct 30 01:54:28 2006 UTC
# Line 816  Line 816 
816    (when (and (not (or finalizep (class-finalized-p class)))    (when (and (not (or finalizep (class-finalized-p class)))
817               (not (class-has-a-forward-referenced-superclass-p class)))               (not (class-has-a-forward-referenced-superclass-p class)))
818      (finalize-inheritance class)      (finalize-inheritance class)
819        (dolist (sub (class-direct-subclasses class))
820          (update-class sub nil))
821      (return-from update-class))      (return-from update-class))
822    ;;    ;;
823    (when (or finalizep    (when (or finalizep

Legend:
Removed from v.1.80  
changed lines
  Added in v.1.81

  ViewVC Help
Powered by ViewVC 1.1.5