1 files changed, 9 insertions, 0 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))