Update of /project/movitz/cvsroot/movitz/losp In directory common-lisp.net:/tmp/cvs-serv11393

Modified Files: los0.lisp Log Message: Add local *package* binding around top-level.

Date: Wed Mar 24 08:25:13 2004 Author: ffjeld

Index: movitz/losp/los0.lisp diff -u movitz/losp/los0.lisp:1.4 movitz/losp/los0.lisp:1.5 --- movitz/losp/los0.lisp:1.4 Mon Mar 22 04:49:11 2004 +++ movitz/losp/los0.lisp Wed Mar 24 08:25:13 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.4 2004/03/22 09:49:11 ffjeld Exp $ +;;;; $Id: los0.lisp,v 1.5 2004/03/24 13:25:13 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -840,7 +840,8 @@ (let ((*repl-readline-context* (make-readline-context :history-size 16)) (*backtrace-stack-frame-barrier* (stack-frame-uplink (current-stack-frame))) #+ignore (*error-no-condition-for-debugger* t) - (*debugger-function* #'los0-debugger)) + (*debugger-function* #'los0-debugger) + (*package* nil))

(with-simple-restart (continue "Abort LOS0 boot-up initialization.") (setf *cpu-features*