debian/copyright: Fix and extend based on CFD research.

[runlisp] / eval.lisp

diff --git a/eval.lisp b/eval.lisp
index 24cd1071c791ff8ff6ff250853e46df22c5f19e8..79e50640f787c1b96b314a7793b8e3d3ea8c4d00 100644 (file)
--- a/eval.lisp
+++ b/eval.lisp
@@ -37,7 +37,10 @@ (let ((*package* (find-package "COMMON-LISP-USER")))
               (loop (let ((form (read in nil token)))
                       (when (eq form token) (return))
                       (funcall func form)))))
               (loop (let ((form (read in nil token)))
                       (when (eq form token) (return))
                       (funcall func form)))))

-          (print-form (form)
+          (princ-form (form)
+            (format t "~@[~{~A~^ ~}~%~]"
+                    (multiple-value-list (eval form))))
+          (prin1-form (form)

             (format t "~@[~{~S~^ ~}~%~]"
                     (multiple-value-list (eval form)))))
       (loop (let ((arg (pop args)))
             (format t "~@[~{~S~^ ~}~%~]"
                     (multiple-value-list (eval form)))))
       (loop (let ((arg (pop args)))


@@ -49,8 +52,11 @@ (let ((*package* (find-package "COMMON-LISP-USER")))
                  (#\! (push (lambda ()
                               (foreach-form #'eval rest))
                             list))
                  (#\! (push (lambda ()
                               (foreach-form #'eval rest))
                             list))

+                 (#\= (push (lambda ()
+                              (foreach-form #'princ-form rest))
+                            list))

                  (#\? (push (lambda ()
                  (#\? (push (lambda ()

-                              (foreach-form #'print-form rest))
+                              (foreach-form #'prin1-form rest))

                             list))
                  (#\< (push (lambda ()
                               (load rest))
                             list))
                  (#\< (push (lambda ()
                               (load rest))