RosettaCodeData/Task/Polymorphism/PicoLisp/polymorphism-2.l

7 lines
86 B
Common Lisp

(setq
P (new '(+Point) 3 4)
C (new '(+Circle) 10 10 5) )
(print> P)
(print> C)