RosettaCodeData/Task/Polymorphism/PicoLisp/polymorphism-2.l
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

6 lines
86 B
Common Lisp

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