load.lisp

   1 ;;;;------------------------------------------------------------------
   2 ;;;;
   3 ;;;;    Copyright (C) 2003-2004,
   4 ;;;;    Department of Computer Science, University of Tromso, Norway.
   5 ;;;;
   6 ;;;;    For distribution policy, see the accompanying file COPYING.
   7 ;;;;
   8 ;;;; Filename:      load.lisp
   9 ;;;; Description:   Load the Movitz development system.
  10 ;;;; Author:        Frode Vatvedt Fjeld <frodef@acm.org>
  11 ;;;; Created at:    Thu Jan 15 18:40:58 2004
  12 ;;;;
  13 ;;;; $Id: load.lisp,v 1.11 2004/12/09 14:05:52 ffjeld Exp $
  14 ;;;;
  15 ;;;;------------------------------------------------------------------
  16
  17 (in-package :cl-user)
  18
  19 #+lispworks-personal-edition (progn
  20                                (dbg::clear-all-source-level-debugging)
  21                                (hcl:toggle-source-debugging nil)
  22                                (compiler::clear-xref-info t)
  23                                (setf compiler:*source-level-debugging* nil
  24                                      compiler:*load-xref-info* nil
  25                                      compiler:*produce-xref-info* nil)
  26                                (proclaim '(optimize (space 3) (speed 0)
  27                                            (debug 0) (compilation-speed 3))))
  28
  29 (load (compile-file #p"../binary-types/binary-types"))
  30
  31 (let ((*default-pathname-defaults* (merge-pathnames #p"../ia-x86/")))
  32   #+(or cmu) (let ((pwd (ext:default-directory)))
  33                (progn
  34                  (unwind-protect
  35                      (progn
  36                        (setf (ext:default-directory) #p"../ia-x86/")
  37                        (load "load"))
  38                    (setf (ext:default-directory) pwd))))
  39   #-(or cmu) (load "load"))
  40
  41 #+allegro (progn
  42             (load (compile-file #p"../infunix/procfs"))
  43             (load "packages.lisp")
  44             (load "movitz.lisp")
  45             (excl:compile-system :movitz)
  46             (excl:load-system :movitz)
  47             (setf excl:*tenured-bytes-limit* #x2000000)
  48             (setf (system::gsgc-parameter :generation-spread) 12)
  49             (sys:resize-areas :new (* 64 1024 1024)))
  50
  51 #+clisp-older-than-2.33-or-so
  52 (progn (load "packages")
  53        (defconstant movitz::&all 'movitz::&all) ; CLisp has this wonderful bug..
  54        (defconstant movitz::&code 'movitz::&code)
  55        (defconstant movitz::&form 'movitz::&form)
  56        (defconstant movitz::&returns 'movitz::&returns)
  57        (defconstant movitz::&functional-p 'movitz::&functional-p)
  58        (defconstant movitz::&modifies 'movitz::&modifies)
  59        (defconstant movitz::&type 'movitz::&type)
  60        (defconstant movitz::&final-form 'movitz::&final-form)
  61        (defconstant movitz::&funobj 'movitz::&funobj)
  62        (defconstant movitz::&top-level-p 'movitz::&top-level-p)
  63        (defconstant movitz::&result-mode 'movitz::&result-mode)
  64        (defconstant movitz::&env 'movitz::&env)
  65        (defconstant movitz::&producer 'movitz::&producer))
  66
  67
  68 #-allegro (do () (nil)
  69             (with-simple-restart (retry "Retry loading Movitz")
  70               (return
  71                 (with-compilation-unit ()
  72                   #+cmu (setf bt::*ignore-hidden-slots-for-pcl* t)
  73                   (mapcar (lambda (path)
  74                             (do () (nil)
  75                               #+lispworks-personal-edition (hcl:mark-and-sweep 3)
  76                               (with-simple-restart (retry "Retry loading ~S" path)
  77                                 (return
  78                                   (handler-bind
  79                                       (#+sbcl (sb-ext:defconstant-uneql #'continue))
  80                                     (load (or (compile-file path :print nil)
  81                                               (error "Compile-file of ~S failed?" path))))))))
  82                           '("packages"
  83                             "movitz"
  84                             "parse"
  85                             "eval"
  86                             "environment"
  87                             "compiler-types"
  88                             "compiler-protocol"
  89                             "storage-types"
  90                             "multiboot"
  91                             "bootblock"
  92                             "image"
  93                             "stream-image"
  94                             ;; "procfs-image"
  95                             "assembly-syntax"
  96                             "compiler-protocol"
  97                             "compiler"
  98                             "special-operators"
  99                             "special-operators-cl"))))))
 100
 101 #+(and cmu18 (not cmu19))
 102 (setf movitz:*compiler-compile-eval-whens* nil
 103       movitz:*compiler-compile-macro-expanders* nil)
 104
 105 #+lispworks (load "muerte-packages")    ; work around an apparent bug in defpackage.
 106 #+lispworks-personal-edition
 107 (progn
 108   ;; (setf movitz:*compiler-compile-eval-whens* nil)
 109   (setf movitz::*compiler-do-optimize-p* nil
 110         movitz::*compiler-do-type-inference* nil)
 111   (mark-and-sweep 3))