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

[Frode Vatvedt Fjeld]

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

Modified Files:
	load.lisp 
Log Message:
Added some cruft to make LW personal-edition sort-of build movitz.
I was able to run (create-image), and almost (dump-image) too.
A non-restricted LW would stand a good chance of working, I think, but
I can't test that.

Date: Fri Feb 13 17:17:42 2004
Author: ffjeld

Index: movitz/load.lisp
diff -u movitz/load.lisp:1.8 movitz/load.lisp:1.9
--- movitz/load.lisp:1.8	Tue Feb 10 13:06:22 2004
+++ movitz/load.lisp	Fri Feb 13 17:17:41 2004
@@ -6,16 +6,26 @@
 ;;;;    For distribution policy, see the accompanying file COPYING.
 ;;;; 
 ;;;; Filename:      load.lisp
-;;;; Description:   
+;;;; Description:   Load the Movitz development system.
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Jan 15 18:40:58 2004
 ;;;;                
-;;;; $Id: load.lisp,v 1.8 2004/02/10 18:06:22 ffjeld Exp $
+;;;; $Id: load.lisp,v 1.9 2004/02/13 22:17:41 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
 (in-package :cl-user)
 
+#+lispworks-personal-edition (progn
+			       (dbg::clear-all-source-level-debugging)
+			       (hcl:toggle-source-debugging nil)
+			       (compiler::clear-xref-info t)
+			       (setf compiler:*source-level-debugging* nil
+				     compiler:*load-xref-info* nil
+				     compiler:*produce-xref-info* nil)
+			       (proclaim '(optimize (space 3) (speed 0) 
+					   (debug 0) (compilation-speed 3))))
+
 (load (compile-file #p"../binary-types/binary-types"))
 
 (let ((*default-pathname-defaults* (merge-pathnames #p"../ia-x86/")))
@@ -61,6 +71,7 @@
 		  #+cmu (setf bt::*ignore-hidden-slots-for-pcl* t)
 		  (mapcar (lambda (path)
 			    (do () (nil)
+			      #+lispworks-personal-edition (hcl:mark-and-sweep 3)
 			      (with-simple-restart (retry "Retry loading ~S" path)
 				(return
 				  (handler-bind 
@@ -86,5 +97,14 @@
 			    "special-operators"
 			    "special-operators-cl"))))))
 
-#+cmu18 (setf movitz:*compiler-compile-eval-whens* nil
-	      movitz:*compiler-compile-macro-expanders* nil)
\ No newline at end of file
+#+(and cmu18 (not cmu19))
+(setf movitz:*compiler-compile-eval-whens* nil
+      movitz:*compiler-compile-macro-expanders* nil)
+
+#+lispworks (load "muerte-packages")	; work around an apparent bug in defpackage.
+#+lispworks-personal-edition
+(progn
+  ;; (setf movitz:*compiler-compile-eval-whens* nil)
+  (setf movitz::*compiler-do-optimize-p* nil
+	movitz::*compiler-do-type-inference* nil)
+  (mark-and-sweep 3))