From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Mon, 2 Sep 2013 13:41:32 +0000 (+0200)
Subject: Add FUNCALL and APPLY as functions.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=de736397d7fc38ec137dd43c35490d680cba27c0

Add FUNCALL and APPLY as functions.
---

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)