(defvar *with-snepsul-eval-function* #'with-snepsul-standard-eval
``The value of this variable has to be a function of two
arguments, an eval-function and a form to which the
function should be applied. Binding this variable to different
functions can implement various different evaluation behaviors, such
as normal evaluation, tracing, top-level-like echoing, evaluating and
printing the result, etc., when the form gets evaluated inside
with-snepsul-eval.'')
The following evaluation functions are available:
(with-snepsul-standard-eval
function form)
Standard function used by with-snepsul-eval to evaluate
form with evaluation function.
(with-snepsul-trace-eval
function form)
Does not actually evaluate form, only prints it for debugging purposes.
(with-snepsul-toplevel-style-eval
function form)
Evaluates the SNePSUL form using function and returns the
result. Additionally, prints the prompt, form, result and
timing information just like the top-level SNePS loop does--good for
monitoring the execution of the actual SNePSUL commands.