/[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.78 by rtoy, Tue May 31 18:10:05 2005 UTC revision 1.79 by rtoy, Mon Jun 20 13:03:21 2005 UTC
# Line 1341  Line 1341 
1341          (with-pcl-lock          (with-pcl-lock
1342            (update-lisp-class-layout class nwrapper)            (update-lisp-class-layout class nwrapper)
1343            (setf (slot-value class 'wrapper) nwrapper)            (setf (slot-value class 'wrapper) nwrapper)
1344            (invalidate-wrapper owrapper :flush nwrapper))))))            (flet ((obsolete-super-p ()
1345                       (some (lambda (layout)
1346                               (eq (car-safe (kernel:layout-invalid layout))
1347                                   :obsolete))
1348                             (kernel:layout-inherits owrapper))))
1349                (invalidate-wrapper owrapper
1350                                    (if (obsolete-super-p) :obsolete :flush)
1351                                    nwrapper)))))))
1352    
1353  (defun flush-cache-trap (owrapper nwrapper instance)  (defun flush-cache-trap (owrapper nwrapper instance)
1354    (declare (ignore owrapper))    (declare (ignore owrapper))

Legend:
Removed from v.1.78  
changed lines
  Added in v.1.79

  ViewVC Help
Powered by ViewVC 1.1.5