[movitz-cvs] CVS update: movitz/losp/lib/repl.lisp

[Frode Vatvedt Fjeld]

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 at 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*