RosettaCodeData/Task/Deepcopy/PicoLisp/deepcopy-5.l

13 lines
220 B
Common Lisp

: (setq A '(a b .) B (deepCopy A))
-> (a b .)
: A
-> (a b .)
: B
-> (a b .)
: (= A B)
-> T # A and its copy B are structure-equal
: (== A B)
-> NIL # but they are not identical (pointer-equal)