diff options
| -rw-r--r-- | sb-eval2.lisp | 13 |
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 |