Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv14476 Modified Files: los0.lisp Log Message: Safeifyed the los0-debugger a bit. Date: Tue Apr 6 09:36:42 2004 Author: ffjeld Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.9 movitz/losp/los0.lisp:1.10 --- movitz/losp/los0.lisp:1.9 Wed Mar 31 11:37:13 2004 +++ movitz/losp/los0.lisp Tue Apr 6 09:36:42 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Fri Dec 1 18:08:32 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: los0.lisp,v 1.9 2004/03/31 16:37:13 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.10 2004/04/06 13:36:42 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -821,7 +821,8 @@ (*repl-prompt-context* #\d) (*repl-readline-context* (or *repl-readline-context* (make-readline-context :history-size 16)))) - (invoke-toplevel-command :error) + (let ((*print-safely* t)) + (invoke-toplevel-command :error)) (loop (with-simple-restart (abort "Abort to command level ~D." (1+ *repl-level*)) (read-eval-print))))) @@ -838,7 +839,7 @@ ;;; (loop for i from #x40600 below #x80000 ;;; do (setf (memref i 0 0 :unsigned-byte32) #xababe13)) - + (install-los0-consing) (let ((*repl-readline-context* (make-readline-context :history-size 16))