REPL: print result as is, not æsthetically

~a "foo" prints foo
~p "foo" prints "foo"

same with :symbols etc
This commit is contained in:
vindarel 2020-11-02 12:24:38 +01:00
parent 3907bc5972
commit 6f42cd4835

View file

@ -223,7 +223,8 @@
(cl-ansi-text:red "Evaluation error: ")
condition))))
(add-res text *last-result*)
(if *last-result* (format t "~a~a~%" *ret* *last-result*)))
(if *last-result*
(format t "~a~s~%" *ret* *last-result*)))
(defun handle-lisp (before text)
(let* ((new-txt (format nil "~a ~a" before text))