/[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.40 by pmai, Fri Jan 3 20:17:49 2003 UTC revision 1.41 by pmai, Fri Jan 3 20:33:01 2003 UTC
# Line 658  Line 658 
658  (defmethod finalize-inheritance ((class std-class))  (defmethod finalize-inheritance ((class std-class))
659    (update-class class t))    (update-class class t))
660    
661    (defmethod finalize-inheritance ((class forward-referenced-class))
662      (simple-program-error
663       "Forward-referenced classes cannot be finalized: ~A"
664       class))
665    
666    
667  (defun class-has-a-forward-referenced-superclass-p (class)  (defun class-has-a-forward-referenced-superclass-p (class)
668    (or (forward-referenced-class-p class)    (or (forward-referenced-class-p class)

Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41

  ViewVC Help
Powered by ViewVC 1.1.5