/[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.48 by gerd, Sun Mar 30 21:17:03 2003 UTC revision 1.49 by gerd, Thu Apr 3 11:40:37 2003 UTC
# Line 368  Line 368 
368    (multiple-value-bind (meta initargs)    (multiple-value-bind (meta initargs)
369        (ensure-class-values class args)        (ensure-class-values class args)
370      (unless (eq (class-of class) meta)      (unless (eq (class-of class) meta)
371        (change-class class meta))        (apply #'change-class class meta initargs))
372      (apply #'reinitialize-instance class initargs)      (apply #'reinitialize-instance class initargs)
373      (setf (find-class name) class)      (setf (find-class name) class)
374      (inform-type-system-about-class class name)      (inform-type-system-about-class class name)

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

  ViewVC Help
Powered by ViewVC 1.1.5