summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sb-eval2.lisp13
1 files changed, 13 insertions, 0 deletions
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