RosettaCodeData/Task/Polymorphic-copy/PicoLisp/polymorphic-copy-2.l

2 lines
39 B
Text
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
(putl (setq B (new (val A))) (getl A))