[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-serv3778

Modified Files:
	los0.lisp 
Log Message:
Ensure there's a valid global binding for *package*.

Date: Sun Apr 24 18:46:03 2005
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.39 movitz/losp/los0.lisp:1.40
--- movitz/losp/los0.lisp:1.39	Mon Apr 18 09:08:42 2005
+++ movitz/losp/los0.lisp	Sun Apr 24 18:46:03 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.39 2005/04/18 07:08:42 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.40 2005/04/24 16:46:03 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1315,9 +1315,9 @@
 						 :index (+ x (* y muerte.x86-pc::*screen-stride*))
 						 :type :unsigned-byte16)))
 			       data)))
-    (muerte.ip4:tftp/ethernet-write :129.242.16.151 "movitz-screendump.txt" data
+    (muerte.ip4:tftp/ethernet-write :129.242.19.132 "movitz-screendump.txt" data
 				    :quiet t
-				    :mac (muerte.ip4::polling-arp :129.242.16.1
+				    :mac (muerte.ip4::polling-arp ip4::*ip4-router*
 								  (lambda ()
 								    (eql #\escape (muerte.x86-pc.keyboard:poll-char)))))))
 
@@ -1332,6 +1332,21 @@
 
 (defvar *segment-descriptor-table*)
 
+(defun threading ()
+  (let* ((thread (muerte::clone-run-time-context :name 'subthread))
+	 (stack (make-array 1022 :element-type '(unsigned-byte 32))))
+    (setf (segment-descriptor *segment-descriptor-table* 8)
+      (segment-descriptor *segment-descriptor-table* (truncate (segment-register :fs) 8)))
+    (warn "Thread ~S FS base: ~S"
+	  thread
+	  (setf (segment-descriptor-base-location *segment-descriptor-table* 8)
+	    (+ (object-location thread)
+	       (muerte::location-physical-offset))))
+    (format *terminal-io* "~&Switching...")
+    (setf (segment-register :fs) (* 8 8))
+    (format *terminal-io* "ok.~%")
+    (values thread stack)))
+
 (defun genesis ()
   ;; (install-shallow-binding)
   (let ((extended-memsize 0))
@@ -1354,12 +1369,13 @@
 
   (setf *debugger-function* #'los0-debugger)
   (clos-bootstrap)
-  (install-shallow-binding)
+  (setf *package* (find-package "INIT"))
+  ;; (install-shallow-binding)
   (let ((*repl-readline-context* (make-readline-context :history-size 16))
 	#+ignore (*backtrace-stack-frame-barrier* (stack-frame-uplink (current-stack-frame)))
 	#+ignore (*error-no-condition-for-debugger* t)
 	#+ignore (*debugger-function* #'los0-debugger)
-	(*package* nil))
+	(*package* *package*))
     (with-simple-restart (abort "Skip Los0 boot-up initialization.")
       (setf *cpu-features*
 	(find-cpu-features))