From: Mark Wooding <mdw@distorted.org.uk>
Date: Sat, 15 May 2021 12:40:58 +0000 (+0100)
Subject: eval.lisp: Rename `print-form' to make way for other kinds of printing.
X-Git-Url: https://git.distorted.org.uk/~mdw/runlisp/commitdiff_plain/2b881c533473e8a972a68f88cb0f54d5cfbc2d04

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
--- 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))