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)