cl:copy-tree   scheme


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_lisp.xtm

Implementation

;   
;;(cl:copy-tree '(5 (5 6 7(6 7))))
(define (cl:copy-tree x)
  (if (pair? x)
      (cons (cl:copy-tree (car x))
            (cl:copy-tree (cdr x)))
      x))


Back to Index