X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.lisp;h=be51b2d68de9bddbf2c9feac0d85930e15e7e8fe;hb=b373038d138b8cf9e418636e338383130c225cdd;hp=c3f886845fe1e21e6305f5165900d5de26c1336a;hpb=89dc08b0aefcb9256728f855e3699b19de221564;p=jscl.git

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index c3f8868..be51b2d 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -283,6 +283,11 @@
         (cons (funcall func (car list))
               (mapcar func (cdr list)))))
 
+  (defun identity (x) x)
+
+  (defun copy-list (x)
+    (mapcar #'identity x))
+
   (defun code-char (x) x)
   (defun char-code (x) x)
   (defun char= (x y) (= x y))