From d638f4ca0259ac32f76c8295407666caec5df689 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 11 Jul 2013 15:14:06 +0200
Subject: Add functions EVAL and LOAD.

---
 sb-eval2.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 8cbb53d..371a51b 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -422,6 +422,19 @@
    t))
 
 
+(defun eval (form)
+  (funcall (prepare-form form) (make-null-environment)))
+
+
+(defun load (filename)
+  ;;FIXME: set :LOAD-TOPLEVEL time.
+  (let ((eof (gensym)))
+    (with-open-file (in filename)
+      (loop for form = (read in nil eof nil)
+            until (eq form eof)
+            do (eval form)))))
+
+
 #+(or)
 (funcall (prepare-form '(funcall
                          (funcall
-- 
cgit v1.2.3