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' ...@@ -104,7 +104,7 @@ It should match the extensions of *shared-readtable* -- see the latter variable'
(defun eval-input (input) (defun eval-input (input)
"Portably read and evaluate forms from INPUT, return the last values." "Portably read and evaluate forms from INPUT, return the last values."
(with-input (input) (with-input (input)
(loop :with results :with eof ='#:eof (loop :with results :with eof = '#:eof
:for form = (read input nil eof) :for form = (read input nil eof)
:until (eq form eof) :until (eq form eof)
:do (setf results (multiple-value-list (eval form))) :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