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@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")))