14 lines
281 B
Common Lisp
14 lines
281 B
Common Lisp
;; todo : utiliser copy-seq à la place.
|
|
(defun copytree (l)
|
|
(if (atom l)
|
|
l
|
|
(cons (copytree (car l))
|
|
(copytree (cdr l)))))
|
|
(load "environnement")
|
|
(load "instructions")
|
|
(load "lisp2li")
|
|
(load "meval")
|
|
;; ...
|
|
;(run-tests t)
|
|
;(print-env-stack exemple-env-stack)
|