/[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.70 by gerd, Sun Jun 15 14:06:26 2003 UTC revision 1.71 by gerd, Wed Oct 29 12:14:35 2003 UTC
# Line 372  Line 372 
372    (multiple-value-bind (meta initargs)    (multiple-value-bind (meta initargs)
373        (ensure-class-values class args)        (ensure-class-values class args)
374      (inform-type-system-about-class (class-prototype meta) name)      (inform-type-system-about-class (class-prototype meta) name)
375      (setf class (apply #'make-instance meta :name name initargs)      (let ((class (apply #'make-instance meta :name name initargs)))
376            (find-class name) class)        (setf (find-class name) class)
377      (inform-type-system-about-class class name)        (inform-type-system-about-class class name)
378      class))        class)))
379    
380  (defmethod ensure-class-using-class ((class pcl-class) name &rest args &key)  (defmethod ensure-class-using-class ((class pcl-class) name &rest args &key)
381    (multiple-value-bind (meta initargs)    (multiple-value-bind (meta initargs)

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5