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

[Frode Vatvedt Fjeld]

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*