/[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.72 by rtoy, Tue Apr 6 20:44:03 2004 UTC revision 1.73 by rtoy, Fri Jul 9 22:00:30 2004 UTC
# Line 174  Line 174 
174                    (allocate-instance class)                    (allocate-instance class)
175                    (allocate-standard-instance wrapper))))))                    (allocate-standard-instance wrapper))))))
176    
177    (defmethod class-prototype ((class condition-class))
178      (with-slots (prototype) class
179        (or prototype (setf prototype (allocate-instance class)))))
180    
181  (defmethod class-direct-default-initargs ((class slot-class))  (defmethod class-direct-default-initargs ((class slot-class))
182    (plist-value class 'direct-default-initargs))    (plist-value class 'direct-default-initargs))
183    
# Line 1612  Line 1616 
1616        (setq direct-supers direct-superclasses)        (setq direct-supers direct-superclasses)
1617        (setq wrapper (kernel:%class-layout kernel-class))        (setq wrapper (kernel:%class-layout kernel-class))
1618        (setq class-precedence-list (compute-class-precedence-list class))        (setq class-precedence-list (compute-class-precedence-list class))
       (setq prototype (make-condition (class-name class)))  
1619        (add-direct-subclasses class direct-superclasses)        (add-direct-subclasses class direct-superclasses)
1620        (setq predicate-name (make-class-predicate-name (class-name class)))        (setq predicate-name (make-class-predicate-name (class-name class)))
1621        (make-class-predicate class predicate-name)        (make-class-predicate class predicate-name)

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

  ViewVC Help
Powered by ViewVC 1.1.5