Changeset 7522 for branches/working-0710


Ignore:
Timestamp:
Oct 25, 2007, 7:02:06 PM (12 years ago)
Author:
gb
Message:

Ensure that class is finalized before trying to access its slots
when building alist for snap-reader-methods.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-1/l1-clos.lisp

    r7512 r7522  
    17981798    (labels ((add-class (c)
    17991799               (unless (assq c alist)
    1800                  (push (cons c (slot-definition-location (find-slotd slot-name (class-slots c)))) alist)
     1800                 (push (cons c (slot-definition-location (find-slotd slot-name (progn (finalize-inheritance c) (class-slots c))))) alist)
    18011801                 (dolist (sub (class-direct-subclasses c))
    18021802                   (add-class sub)))))
Note: See TracChangeset for help on using the changeset viewer.