/[cmucl]/src/pcl/cpl.lisp
ViewVC logotype

Diff of /src/pcl/cpl.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by ram, Wed Oct 23 15:34:41 1991 UTC revision 1.4 by ram, Mon Jun 1 18:37:43 1992 UTC
# Line 80  Line 80 
80  ;;;    rule is used to choose among them.  ;;;    rule is used to choose among them.
81  ;;;  ;;;
82    
83  (defmethod compute-class-precedence-list ((root std-class) direct-superclasses)  (defmethod compute-class-precedence-list ((root slot-class))
84    (compute-std-cpl root direct-superclasses))    (compute-std-cpl root (class-direct-superclasses root)))
85    
86  (defstruct (class-precedence-description  (defstruct (class-precedence-description
87               (:conc-name nil)               (:conc-name nil)
# Line 117  Line 117 
117          (all-cpds ())          (all-cpds ())
118          (table (make-hash-table :size *compute-std-cpl-class->entry-table-size*          (table (make-hash-table :size *compute-std-cpl-class->entry-table-size*
119                                  :test #'eq)))                                  :test #'eq)))
120        (declare (fixnum nclasses))
121      (labels ((get-cpd (c)      (labels ((get-cpd (c)
122                 (or (gethash c table)                 (or (gethash c table)
123                     (setf (gethash c table) (make-cpd))))                     (setf (gethash c table) (make-cpd))))
# Line 309  Line 310 
310            (chase (list cpd))))            (chase (list cpd))))
311    
312        cycle-reasons)))        cycle-reasons)))
313    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5