Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv1346
Modified Files: repl.lisp Log Message: Use *print-safely* mode in read-eval-print.
Date: Tue Apr 6 10:37:04 2004 Author: ffjeld
Index: movitz/losp/lib/repl.lisp diff -u movitz/losp/lib/repl.lisp:1.9 movitz/losp/lib/repl.lisp:1.10 --- movitz/losp/lib/repl.lisp:1.9 Wed Mar 31 11:38:20 2004 +++ movitz/losp/lib/repl.lisp Tue Apr 6 10:37:04 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Mar 19 14:58:12 2003 ;;;; -;;;; $Id: repl.lisp,v 1.9 2004/03/31 16:38:20 ffjeld Exp $ +;;;; $Id: repl.lisp,v 1.10 2004/04/06 14:37:04 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -35,9 +35,10 @@
(defun read-eval-print (&optional (*repl-readline-context* *repl-readline-context*) (*repl-level* (1+ *repl-level*))) - (if (stringp *repl-prompter*) - (format t *repl-prompter* *repl-level* *package*) - (funcall *repl-prompter*)) + (let ((muerte:*print-safely* t)) + (if (stringp *repl-prompter*) + (format t *repl-prompter* *repl-level* *package*) + (funcall *repl-prompter*))) (handler-case (let ((previous-package *package*) (buffer-string (muerte.readline:contextual-readline *repl-readline-context*))) @@ -62,7 +63,8 @@ (warn "* was unbound!") (setf * nil)) (when printp - (apply #'format t *repl-print-format* results)) + (let ((muerte:*print-safely* t)) + (apply #'format t *repl-print-format* results))) (psetq +++ ++ ++ + + form) (psetq *** ** ** * * (car results)) (psetq /// // // / / (if *repl-consless*