New functions: copy-list, identity

[jscl.git] / ecmalisp.lisp

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index c3f8868..be51b2d 100644 (file)
--- 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))