+
+(defun eval-in-lexenv (exp lexenv)
+ #!+sb-eval
+ (if (eq *evaluator-mode* :compile)
+ (simple-eval-in-lexenv exp lexenv)
+ (sb!eval:eval-in-native-environment exp lexenv))
+ #!-sb-eval
+ (simple-eval-in-lexenv exp lexenv))
+
+(defun eval (original-exp)
+ #!+sb-doc
+ "Evaluate the argument in a null lexical environment, returning the
+ result or results."
+ (eval-in-lexenv original-exp (make-null-lexenv)))
+