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