eval.lisp: Rename `print-form' to make way for other kinds of printing.

Hint, hint.

diff --git a/eval.lisp b/eval.lisp
index 24cd107..de5da0e 100644 (file)
--- a/eval.lisp
+++ b/eval.lisp
@@ -37,7 +37,7 @@
               (loop (let ((form (read in nil token)))
                       (when (eq form token) (return))
                       (funcall func form)))))
-          (print-form (form)
+          (prin1-form (form)
             (format t "~@[~{~S~^ ~}~%~]"
                     (multiple-value-list (eval form)))))
       (loop (let ((arg (pop args)))
@@ -50,7 +50,7 @@
                               (foreach-form #'eval rest))
                             list))
                  (#\? (push (lambda ()
-                              (foreach-form #'print-form rest))
+                              (foreach-form #'prin1-form rest))
                             list))
                  (#\< (push (lambda ()
                               (load rest))