Add FUNCALL and APPLY as functions.

diff --git a/src/boot.lisp b/src/boot.lisp
index 821c482..736c07d 100644 (file)
--- 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)