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

[Frode Vatvedt Fjeld]

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

Modified Files:
	load.lisp 
Log Message:
Removed loading of procfs stuff, since its not needed (at this stage of
development, anyway).

Date: Thu Jan 15 14:00:10 2004
Author: ffjeld

Index: movitz/load.lisp
diff -u movitz/load.lisp:1.2 movitz/load.lisp:1.3
--- movitz/load.lisp:1.2	Thu Jan 15 12:38:21 2004
+++ movitz/load.lisp	Thu Jan 15 14:00:09 2004
@@ -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.2 2004/01/15 17:38:21 ffjeld Exp $
+;;;; $Id: load.lisp,v 1.3 2004/01/15 19:00:09 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -19,16 +19,17 @@
 (load (compile-file #p"../binary-types/binary-types"))
 
 (let ((*default-pathname-defaults* #p"../ia-x86/"))
-  #+cmu (let ((pwd (ext:default-directory)))
+  #+(or cmu sbcl)
+  (let ((pwd (ext:default-directory)))
+    (progn
+      (unwind-protect
 	  (progn
-	    (unwind-protect
-		(progn
-		  (setf (ext:default-directory) #p"../ia-x86/")
-		  (load "load"))
-	      (setf (ext:default-directory) pwd))))
-  #-cmu (load "load"))
+	    (setf (ext:default-directory) #p"../ia-x86/")
+	    (load "load"))
+	(setf (ext:default-directory) pwd))))
+  #-(or cmu sbcl) (load "load"))
 
-(load (compile-file #p"../infunix/procfs"))
+;; (load (compile-file #p"../infunix/procfs"))
 
 
 #+allegro (progn
@@ -56,7 +57,7 @@
 		      "storage-types"
 		      "image"
 		      "stream-image"
-		      "procfs-image"
+		      ;; "procfs-image"
 		      "assembly-syntax"
 		      "compiler-protocol"
 		      "compiler" "special-operators" "special-operators-cl")))