Lots more has happened.

[sod] / class-defs.lisp

diff --git a/class-defs.lisp b/class-defs.lisp
index 8640cf5..512505b 100644 (file)
--- a/class-defs.lisp
+++ b/class-defs.lisp
@@ -53,6 +53,8 @@
 
    (class-precedence-list :type list :accessor sod-class-precedence-list)
 
+   (type :type c-class-type :accessor sod-class-type)
+
    (chain-head :type sod-class :accessor sod-class-chain-head)
    (chain :type list :accessor sod-class-chain)
    (chains :type list :accessor sod-class-chains)
@@ -504,10 +506,6 @@
            (t
             (setf (c-type-class type) class))))))
 
-(defun sod-class-type (class)
-  "Returns the C type corresponding to CLASS."
-  (find-class-type (sod-class-name class)))
-
 (define-c-type-syntax class (name &rest quals)
   "Returns a type object for the named class."
   (if quals