Trying to debug abstract classes, WIP

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)))