[movitz-cvs] CVS update: movitz/load.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	load.lisp 
Log Message:
Provided a rather crude loading mechanism for non-allegro. Works for
me under cmucl.

Date: Thu Jan 15 12:38:21 2004
Author: ffjeld

Index: movitz/load.lisp
diff -u movitz/load.lisp:1.1.1.1 movitz/load.lisp:1.2
--- movitz/load.lisp:1.1.1.1	Tue Jan 13 06:04:59 2004
+++ movitz/load.lisp	Thu Jan 15 12:38:21 2004
@@ -1,33 +1,62 @@
-
-(in-package :user)
-
-;; (load "../binary-types/binary-types")
-
-(compile-file #p"../binary-types/binary-types" :load-after-compile t)
-
-(let ((*default-pathname-defaults* #+mswindows #p"c:\\src\\read-elf32\\"
-				   #+unix #p"~/src/ia-x86/"))
-  (load "system.lisp")
-  (compile-system :ia-x86)
-  (load-system :ia-x86)
-  (load-system :ia-x86-instr :interpreted t))
-
-(ia-x86:init-instruction-tables)
-
-(let ((*default-pathname-defaults* #+mswindows #p"c:\\src\\read-elf32\\"
-				   #+unix #p"~/src/read-elf32/"))
-  (load "Defsystem-allegro.lisp")
-  (load-system :elf32))
-
-(compile-file #p"../infunix/procfs" :load-after-compile t)
-
-(load "packages.lisp")
-(load "movitz.lisp")
-(compile-system :movitz)
-(load-system :movitz)
-
-#+allegro
-(progn
-  (setf excl:*tenured-bytes-limit* #x2000000)
-  (setf (system::gsgc-parameter :generation-spread) 12)
-  (sys:resize-areas :new (* 16 1024 1024)))
\ No newline at end of file
+;;;;------------------------------------------------------------------
+;;;; 
+;;;;    Copyright (C) 2003-2004, 
+;;;;    Department of Computer Science, University of Tromsoe, Norway.
+;;;; 
+;;;;    For distribution policy, see the accompanying file COPYING.
+;;;; 
+;;;; Filename:      load.lisp
+;;;; Description:   
+;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
+;;;; Created at:    Thu Jan 15 18:40:58 2004
+;;;;                
+;;;; $Id: load.lisp,v 1.2 2004/01/15 17:38:21 ffjeld Exp $
+;;;;                
+;;;;------------------------------------------------------------------
+
+(in-package :cl-user)
+
+(load (compile-file #p"../binary-types/binary-types"))
+
+(let ((*default-pathname-defaults* #p"../ia-x86/"))
+  #+cmu (let ((pwd (ext:default-directory)))
+	  (progn
+	    (unwind-protect
+		(progn
+		  (setf (ext:default-directory) #p"../ia-x86/")
+		  (load "load"))
+	      (setf (ext:default-directory) pwd))))
+  #-cmu (load "load"))
+
+(load (compile-file #p"../infunix/procfs"))
+
+
+#+allegro (progn
+	    (load "packages.lisp")
+	    (load "movitz.lisp")
+	    (excl:compile-system :movitz)
+	    (excl:load-system :movitz)
+	    (setf excl:*tenured-bytes-limit* #x2000000)
+	    (setf (system::gsgc-parameter :generation-spread) 12)
+	    (sys:resize-areas :new (* 16 1024 1024)))
+
+#-allegro (with-compilation-unit ()
+	    #+cmu (setf bt::*ignore-hidden-slots-for-pcl* t)
+	    (mapcar (lambda (path)
+		      (load (compile-file (make-pathname :name path :type "lisp") :print nil)))
+		    '("packages"
+		      "movitz"
+		      "parse"
+		      "eval"
+		      "multiboot"
+		      "bootblock"
+		      "environment"
+		      "compiler-types"
+		      "compiler-protocol"
+		      "storage-types"
+		      "image"
+		      "stream-image"
+		      "procfs-image"
+		      "assembly-syntax"
+		      "compiler-protocol"
+		      "compiler" "special-operators" "special-operators-cl")))