Changing class of an instance 2

cg-user(9): (setq ins (make-instance 'c1))

#<c1 @ #x20b6762a>

cg-user(10): (list (slot-value ins 'x)  (slot-value ins 'y)  (slot-value ins 'z))

(10 55 99)

cg-user(11): (change-class ins 'c2 :a 777)

#<c2 @ #x20b6762a>

cg-user(12): (list (slot-value ins 'a)  (slot-value ins 'y)  (slot-value ins 'c))

(777 55 "slotc")

cg-user(13):

Previous slide

Next slide

Back to first slide

View graphic version