Hello, I'm wondering why this is not running as expected?
(for @Cls '(+A +B) (run (fill '((class @Cls) (println 'define '@Cls) # prints: "define +A", then "define +B" (dm c> () (println (type This) 'default)))))) (c> (new '(+A))) # prints: "(+A) default" - correct (extend +B) (dm c> () (println (type This) 'extended)) # prints: "c> +B redefined" (c> (new '(+B))) # prints: "(+B) extended" - correct (c> (new '(+A))) # prints: "(+A) extended" - incorrect It appears, extending +B extends +A also. --Kevin