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

Modified Files:
	los0.lisp 
Log Message:
Include los-gc, and install it when booting up.

Date: Mon Mar 29 09:36:15 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.7 movitz/losp/los0.lisp:1.8
--- movitz/losp/los0.lisp:1.7	Thu Mar 25 20:53:53 2004
+++ movitz/losp/los0.lisp	Mon Mar 29 09:36:15 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.7 2004/03/26 01:53:53 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.8 2004/03/29 14:36:15 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -39,7 +39,9 @@
 	muerte.mop
 	muerte.debug
 	#+ignore muerte.x86-pc.serial))
-	
+
+(require :los0-gc)
+
 (in-package muerte.init)
 
 (declaim (special muerte::*multiboot-data*))
@@ -838,12 +840,16 @@
     (incf extended-memsize (io-port #x71 :unsigned-byte8))
     (format t "Extended memory: ~D KB" extended-memsize))
 
+;;;  (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))
 	(*backtrace-stack-frame-barrier* (stack-frame-uplink (current-stack-frame)))
 	#+ignore (*error-no-condition-for-debugger* t)
 	(*debugger-function* #'los0-debugger)
 	(*package* nil))
-
     (with-simple-restart (continue "Abort LOS0 boot-up initialization.")
       (setf *cpu-features*
 	(find-cpu-features))
@@ -944,5 +950,5 @@
 	   (#\esc (break "Under the bridge."))
 	   (#\e (error "this is an error!"))))))))
 
-    
+
 (genesis)