/[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.81 by rtoy, Mon Oct 30 01:54:28 2006 UTC revision 1.82 by rtoy, Thu Nov 30 15:49:30 2006 UTC
# Line 824  Line 824 
824              (class-finalized-p class)              (class-finalized-p class)
825              (not (class-has-a-forward-referenced-superclass-p class)))              (not (class-has-a-forward-referenced-superclass-p class)))
826      (setf (find-class (class-name class)) class)      (setf (find-class (class-name class)) class)
827      (update-cpl class (compute-class-precedence-list class))      (let ((*allow-forward-referenced-classes-in-cpl-p*
828               (class-has-a-forward-referenced-superclass-p class)))
829          (update-cpl class (compute-class-precedence-list class)))
830      (update-slots class (compute-slots class))      (update-slots class (compute-slots class))
831      (update-gfs-of-class class)      (update-gfs-of-class class)
832      (update-inits class (compute-default-initargs class))      (update-inits class (compute-default-initargs class))

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

  ViewVC Help
Powered by ViewVC 1.1.5