/[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.54 by gerd, Fri Apr 25 17:43:50 2003 UTC revision 1.55 by gerd, Sat Apr 26 17:35:08 2003 UTC
# Line 792  Line 792 
792    
793  (defun update-cpl (class cpl)  (defun update-cpl (class cpl)
794    (if (class-finalized-p class)    (if (class-finalized-p class)
795        (unless (equal (class-precedence-list class) cpl)        (unless (and (equal (class-precedence-list class) cpl)
796                       (loop for c in cpl never
797                               (loop for s in (class-direct-slots c) thereis
798                                       (eq (slot-definition-allocation s)
799                                           :class))))
800          ;; Need to have the cpl setup before update-lisp-class-layout          ;; Need to have the cpl setup before update-lisp-class-layout
801          ;; is called on CMUCL.          ;; is called on CMUCL.
802          (setf (slot-value class 'class-precedence-list) cpl)          (setf (slot-value class 'class-precedence-list) cpl)

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

  ViewVC Help
Powered by ViewVC 1.1.5