/[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.52 by gerd, Sun Apr 13 11:57:16 2003 UTC revision 1.53 by gerd, Fri Apr 18 10:06:23 2003 UTC
# Line 549  Line 549 
549                     (map 'simple-vector #'class-wrapper                     (map 'simple-vector #'class-wrapper
550                          (reverse (rest cpl))))))                          (reverse (rest cpl))))))
551            (kernel:register-layout layout :invalidate t)            (kernel:register-layout layout :invalidate t)
552            (setf (kernel:%class-layout kernel-class) layout))))))            (setf (kernel:%class-layout kernel-class) layout)
553              (mapc #'make-preliminary-layout (class-direct-subclasses class)))))))
554    
555  (defmethod shared-initialize :before ((class class) slot-names &key name)  (defmethod shared-initialize :before ((class class) slot-names &key name)
556    (declare (ignore slot-names name))    (declare (ignore slot-names name))

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

  ViewVC Help
Powered by ViewVC 1.1.5