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

7 lines
86 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
(setq
P (new '(+Point) 3 4)
C (new '(+Circle) 10 10 5) )
(print> P)
(print> C)