From de736397d7fc38ec137dd43c35490d680cba27c0 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Mon, 2 Sep 2013 15:41:32 +0200 Subject: [PATCH] Add FUNCALL and APPLY as functions. --- src/boot.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/boot.lisp b/src/boot.lisp index 821c482..736c07d 100644 --- a/src/boot.lisp +++ b/src/boot.lisp @@ -102,6 +102,12 @@ (defun not (x) (if x nil t)) +(defun funcall (function &rest args) + (apply function args)) + +(defun apply (function arg &rest args) + (apply function (apply #'list* arg args))) + ;; Basic macros (defmacro dolist ((var list &optional result) &body body) -- 1.7.10.4