From d30b5e487ccbd85deb385a19e12233a9ef9008e2 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Wed, 30 Jul 2008 00:21:33 +0200
Subject: Add FUNCALL, LAMBDA, and REST.

---
 defun-1.lisp        | 9 +++++++++
 list-functions.lisp | 8 ++++++--
 2 files changed, 15 insertions(+), 2 deletions(-)

diff --git a/defun-1.lisp b/defun-1.lisp
index 6038e88..49680e6 100644
--- a/defun-1.lisp
+++ b/defun-1.lisp
@@ -18,3 +18,12 @@
              (,env-sym (second ,arg-sym)))
          (d-b ,lambda-list ,env-sym ,whole-sym ,lambda-sym
            ,@body)))))
+
+(%defmacro* lambda (lambda-list . body)
+  (let ((lambda-sym (gensym)))
+    `(%lambda ,lambda-sym
+       (d-b ,lambda-list nil nil ,lambda-sym
+         ,@body))))
+
+(defun funcall (function &rest arguments)
+  (apply function arguments))
diff --git a/list-functions.lisp b/list-functions.lisp
index 2622fac..3660e5e 100644
--- a/list-functions.lisp
+++ b/list-functions.lisp
@@ -2,7 +2,8 @@
           eigthth ninth tenth atom consp listp null rplaca rplacd caaaar
           caaadr caaar caadar caaddr caadr caar cadaar cadadr cadar
           caddar cadddr caddr cadr car cdaaar cdaadr cdaar cdadar cdaddr
-          cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr))
+          cdadr cdar cddaar cddadr cddar cdddar cddddr cdddr cddr cdr
+          rest))
 
 
 (%defmacro* pushq args
@@ -106,7 +107,7 @@
 
 
 ;;;;-----------------------------------------------------------------
-;;;; FIRST ... TENTH
+;;;; FIRST ... TENTH, REST
 ;;;;-----------------------------------------------------------------
 (defun first (list)
   (car list))
@@ -138,6 +139,9 @@
 (defun tenth (list)
   (car (cdddr (cdddr (cdddr list)))))
 
+(defun rest (list)
+  (cdr list))
+
 
 ;;;;-----------------------------------------------------------------
 ;;;; CONS
-- 
cgit v1.2.3