RosettaCodeData/Task/Polymorphism/PicoLisp/polymorphism-2.l
2023-07-01 13:44:08 -04:00

6 lines
86 B
Common Lisp

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