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

2 lines
39 B
Common Lisp

(putl (setq B (new (val A))) (getl A))