Commit 8b3f67f7 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix stylo in eval.lisp

parent 400aa5cf
......@@ -104,7 +104,7 @@ It should match the extensions of *shared-readtable* -- see the latter variable'
(defun eval-input (input)
"Portably read and evaluate forms from INPUT, return the last values."
(with-input (input)
(loop :with results :with eof ='#:eof
(loop :with results :with eof = '#:eof
:for form = (read input nil eof)
:until (eq form eof)
:do (setf results (multiple-value-list (eval form)))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment