RosettaCodeData/Task/Polymorphic-copy/PicoLisp/polymorphic-copy-2.l
2023-07-01 13:44:08 -04:00

1 line
39 B
Common Lisp

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