From 2b881c533473e8a972a68f88cb0f54d5cfbc2d04 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 15 May 2021 13:40:58 +0100 Subject: [PATCH] eval.lisp: Rename `print-form' to make way for other kinds of printing. Hint, hint. --- eval.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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)) -- 2.11.0