[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv425

Modified Files:
	load.lisp 
Log Message:
Remove dead cruft.


--- /project/movitz/cvsroot/movitz/load.lisp	2008/02/24 11:57:35	1.13
+++ /project/movitz/cvsroot/movitz/load.lisp	2008/03/15 20:46:17	1.14
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Thu Jan 15 18:40:58 2004
 ;;;;                
-;;;; $Id: load.lisp,v 1.13 2008/02/24 11:57:35 ffjeld Exp $
+;;;; $Id: load.lisp,v 1.14 2008/03/15 20:46:17 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -42,65 +42,38 @@
 			    (setf (ext:default-directory) pwd))))
 	   #-(or cmu) (load "load"))
 
-#+allegro (progn
-	    (load (compile-file #p"../infunix/procfs"))
-	    (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 (* 64 1024 1024)))
-
-#+clisp-older-than-2.33-or-so
-(progn (load "packages")
-       (defconstant movitz::&all 'movitz::&all)	; CLisp has this wonderful bug..
-       (defconstant movitz::&code 'movitz::&code)
-       (defconstant movitz::&form 'movitz::&form)
-       (defconstant movitz::&returns 'movitz::&returns)
-       (defconstant movitz::&functional-p 'movitz::&functional-p)
-       (defconstant movitz::&modifies 'movitz::&modifies)
-       (defconstant movitz::&type 'movitz::&type)
-       (defconstant movitz::&final-form 'movitz::&final-form)
-       (defconstant movitz::&funobj 'movitz::&funobj)
-       (defconstant movitz::&top-level-p 'movitz::&top-level-p)
-       (defconstant movitz::&result-mode 'movitz::&result-mode)
-       (defconstant movitz::&env 'movitz::&env)
-       (defconstant movitz::&producer 'movitz::&producer))
-
-
-#-allegro (do () (nil)
-	    (with-simple-restart (retry "Retry loading Movitz")
-	      (return
-		(with-compilation-unit ()
-		  #+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 
-				      (#+sbcl (sb-ext:defconstant-uneql #'continue))
-				    (load (or (compile-file path :print nil)
-					      (error "Compile-file of ~S failed?" path))))))))
-			  '("packages"
-			    "movitz"
-			    "parse"
-			    "eval"
-			    "environment"
-			    "compiler-types"
-			    "compiler-protocol"
-			    "storage-types"
-			    "multiboot"
-			    "bootblock"
-			    "image"
-			    "stream-image"
-			    ;; "procfs-image"
-			    "assembly-syntax"
-			    "compiler-protocol"
-			    "compiler"
-			    "special-operators"
-			    "special-operators-cl"))))))
+(do () (nil)
+  (with-simple-restart (retry "Retry loading Movitz")
+    (return
+      (with-compilation-unit ()
+	#+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 
+			    (#+sbcl (sb-ext:defconstant-uneql #'continue))
+			  (load (or (compile-file path :print nil)
+				    (error "Compile-file of ~S failed?" path))))))))
+		'("packages"
+		  "movitz"
+		  "parse"
+		  "eval"
+		  "environment"
+		  "compiler-types"
+		  "compiler-protocol"
+		  "storage-types"
+		  "multiboot"
+		  "bootblock"
+		  "image"
+		  "stream-image"
+		  ;; "procfs-image"
+		  "assembly-syntax"
+		  "compiler-protocol"
+		  "compiler"
+		  "special-operators"
+		  "special-operators-cl"))))))
 
 #+(and cmu18 (not cmu19))
 (setf movitz:*compiler-compile-eval-whens* nil