/[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.8.1.2 by ram, Wed Aug 18 20:37:14 1993 UTC revision 1.8.1.3 by ram, Fri Feb 11 11:28:03 1994 UTC
# Line 695  Line 695 
695                     ;;                     ;;
696                     (make-instances-obsolete class)                     (make-instances-obsolete class)
697                     (class-wrapper class)))))                     (class-wrapper class)))))
698    
699        (with-slots (wrapper slots) class        (with-slots (wrapper slots) class
700          #+new-kcl-wrapper          #+new-kcl-wrapper
701          (setf (si::s-data-name nwrapper) (class-name class))          (setf (si::s-data-name nwrapper) (class-name class))
702            #+cmu17
703            (update-lisp-class-layout class nwrapper)
704          (setf slots eslotds          (setf slots eslotds
705                (wrapper-instance-slots-layout nwrapper) nlayout                (wrapper-instance-slots-layout nwrapper) nlayout
706                (wrapper-class-slots nwrapper) nwrapper-class-slots                (wrapper-class-slots nwrapper) nwrapper-class-slots
# Line 705  Line 708 
708                wrapper nwrapper))                wrapper nwrapper))
709    
710        (unless (eq owrapper nwrapper)        (unless (eq owrapper nwrapper)
         #+cmu17  
         (update-lisp-class-layout class nwrapper)  
711          (update-pv-table-cache-info class)))))          (update-pv-table-cache-info class)))))
712    
713  (defun compute-class-slots (eslotds)  (defun compute-class-slots (eslotds)
# Line 1031  Line 1032 
1032                (wrapper-class-slots owrapper))                (wrapper-class-slots owrapper))
1033          (without-interrupts          (without-interrupts
1034            #+cmu17            #+cmu17
1035            (kernel:register-layout nwrapper :invalidate nil)            (update-lisp-class-layout class nwrapper)
1036            (setf (slot-value class 'wrapper) nwrapper)            (setf (slot-value class 'wrapper) nwrapper)
1037            (invalidate-wrapper owrapper ':flush nwrapper))))))            (invalidate-wrapper owrapper ':flush nwrapper))))))
1038    
# Line 1056  Line 1057 
1057              (wrapper-class-slots owrapper))              (wrapper-class-slots owrapper))
1058        (without-interrupts        (without-interrupts
1059          #+cmu17          #+cmu17
1060          (kernel:register-layout nwrapper :invalidate nil)          (update-lisp-class-layout class nwrapper)
1061          (setf (slot-value class 'wrapper) nwrapper)          (setf (slot-value class 'wrapper) nwrapper)
1062          (invalidate-wrapper owrapper ':obsolete nwrapper)          (invalidate-wrapper owrapper ':obsolete nwrapper)
1063          class)))          class)))

Legend:
Removed from v.1.8.1.2  
changed lines
  Added in v.1.8.1.3

  ViewVC Help
Powered by ViewVC 1.1.5