diff options
Diffstat (limited to 'cabs-syn.lisp')
-rw-r--r-- | cabs-syn.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/cabs-syn.lisp b/cabs-syn.lisp index 12b9fd4..2b6d30a 100644 --- a/cabs-syn.lisp +++ b/cabs-syn.lisp @@ -24,7 +24,10 @@ ;; But classes seem better for the associated data, in discriminated unions. (defclass <expression> () () (:metaclass <abstract-class>)) -(defclass <exp-int> (<expression>) ((int :accessor int))) + +(defclass <exp-int> (<expression>) ((my-int :accessor my-int))) +;; TODO: need another closer-mop:validate-superclass call here + (defclass <exp-var> (<expression>) ((var :accessor var))) (defclass <exp-str> (<expression>) ((str :accessor str))) (defclass <exp-unr> (<expression>) ((op :accessor op) (exp :accessor exp))) |