runlisp.c, eval.lisp, etc.: Add new `-p' option to `princ' expressions.

[runlisp] / eval.lisp

diff --git a/eval.lisp b/eval.lisp
index de5da0e..79e5064 100644 (file)
--- a/eval.lisp
+++ b/eval.lisp
@@ -37,6 +37,9 @@
               (loop (let ((form (read in nil token)))
                       (when (eq form token) (return))
                       (funcall func form)))))
+          (princ-form (form)
+            (format t "~@[~{~A~^ ~}~%~]"
+                    (multiple-value-list (eval form))))
           (prin1-form (form)
             (format t "~@[~{~S~^ ~}~%~]"
                     (multiple-value-list (eval form)))))
@@ -49,6 +52,9 @@
                  (#\! (push (lambda ()
                               (foreach-form #'eval rest))
                             list))
+                 (#\= (push (lambda ()
+                              (foreach-form #'princ-form rest))
+                            list))
                  (#\? (push (lambda ()
                               (foreach-form #'prin1-form rest))
                             list))