From 4bb696ba74f1f47333ff45995b82eb51acbee29d Mon Sep 17 00:00:00 2001
From: William Harold Newman <william.newman@airmail.net>
Date: Thu, 16 Aug 2001 19:40:49 +0000
Subject: [PATCH] 0.pre7.13: 	preparing to delete IR1 interpreter.. 
 ..defined #!-SB-INTERPRETER implementation of INTERNAL-EVAL
 	..(Now the system builds and runs and builds itself
 even 		when :SB-INTERPRETER is suppressed in 	
 customize-target-features.lisp.)

---
 src/code/target-eval.lisp |   22 +++++++++++++++++++++-
 src/compiler/eval.lisp    |    1 +
 version.lisp-expr         |    2 +-
 3 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/src/code/target-eval.lisp b/src/code/target-eval.lisp
index 51f445e..00a0200 100644
--- a/src/code/target-eval.lisp
+++ b/src/code/target-eval.lisp
@@ -82,7 +82,7 @@
 ;;; EVAL-WHEN.
 (defun eval (original-exp)
   #!+sb-doc
-  "Evaluates its single argument in a null lexical environment, returns the
+  "Evaluate the argument in a null lexical environment, returning the
   result or results."
   (declare (optimize (safety 1)))
   (let ((exp (macroexpand original-exp)))
@@ -158,6 +158,26 @@
       (t
        exp))))
 
+;;; general case of EVAL (except in that it can't handle toplevel
+;;; EVAL-WHEN magic properly): Delegate to the byte compiler.
+#!-sb-interpreter
+(defun internal-eval (expr)
+  (let ((name (gensym "EVAL-TMPFUN-")))
+    (multiple-value-bind (fun warnings-p failure-p)
+        (compile name
+                 `(lambda ()
+                    (declare (optimize (speed 0) (debug 1))) ; to byte-compile
+                    (declare (optimize (space 1) (safety 1)))
+		    (declare (optimize (compilation-speed 3)))
+                    ,expr))
+      (declare (ignore warnings-p))
+      (if failure-p
+          (error 'simple-program-error
+                 :format-control
+                 "~@<failure when precompiling ~2I~_~S ~I~_ for ~S"
+                 :format-arguments (list expr 'eval))
+          (funcall fun)))))
+
 ;;; Given a function, return three values:
 ;;; 1] A lambda expression that could be used to define the function,
 ;;;    or NIL if the definition isn't available.
diff --git a/src/compiler/eval.lisp b/src/compiler/eval.lisp
index e8cfdef..d3ab8b9 100644
--- a/src/compiler/eval.lisp
+++ b/src/compiler/eval.lisp
@@ -578,6 +578,7 @@
 ;;; APPLY on it. If *ALREADY-EVALED-THIS* is true, then we bind it to
 ;;; NIL around the apply to limit the inhibition to the lexical scope
 ;;; of the EVAL-WHEN.
+#!+sb-interpreter
 (defun internal-eval (form)
   (let ((res (sb!c:compile-for-eval form)))
     (if *already-evaled-this*
diff --git a/version.lisp-expr b/version.lisp-expr
index 7a49182..62be2c1 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -16,4 +16,4 @@
 ;;; four numeric fields, is used for versions which aren't released
 ;;; but correspond only to CVS tags or snapshots.
 
-"0.pre7.12"
+"0.pre7.13"
-- 
1.7.10.4