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
