Changeset 839


Ignore:
Timestamp:
Jun 27, 2004, 8:55:12 AM (17 years ago)
Author:
gb
Message:

class canonicalization, for resuming images

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/bridge.lisp

    r574 r839  
    404404  (values (gethash msg *type-signature-table*)))
    405405
     406;;; Ensure that all classes in a msg-desc are canonical (EQ to the
     407;;; objc-clos class pointer.)
     408(defun canonicalize-msg-desc-classes (msg-desc)
     409  (do* ((classes (msg-desc-classes msg-desc) (cdr classes)))
     410       ((null classes))
     411    (rplaca classes (canonicalize-registered-class-or-metaclass (car classes)))))
     412
     413;;; Canonicalize the classes in all msg-desc in the type signature table.
     414(defun canonicalize-type-signature-classes ()
     415  (maphash #'(lambda (key msg-descs)
     416               (declare (ignore key))
     417               (dolist (msg-desc msg-descs)
     418                 (canonicalize-msg-desc-classes msg-desc)))
     419           *type-signature-table*))
    406420
    407421;;; Compute the foreign type signature for method M
Note: See TracChangeset for help on using the changeset viewer.