Skip to content
Snippets Groups Projects
worldbuild.lisp 3.67 KiB
Newer Older
ram's avatar
ram committed
;;; -*- Mode: Lisp; Package: Lisp -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie Mellon University, and has been placed in the public domain.
;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.11 1992/02/15 13:04:07 wlott Exp $")
ram's avatar
ram committed
;;; **********************************************************************
;;;
;;; When loaded, this file builds a core image from all the .fasl files that
;;; are part of the kernel CMU Common Lisp system.

(in-package "LISP")

(unless (fboundp 'genesis) (load "target:compiler/generic/genesis"))

ram's avatar
ram committed
(defparameter lisp-files
  `(,@(when (string= (c:backend-name c:*backend*) "PMAX")
	'("target:assembly/mips/assem-rtns.assem"
	  "target:assembly/mips/array.assem"
	  "target:assembly/mips/bit-bash.assem"
	  "target:assembly/mips/arith.assem"
	  "target:assembly/mips/alloc.assem"))
    ,@(when (string= (c:backend-name c:*backend*) "SPARC")
	'("target:assembly/sparc/assem-rtns.assem"
	  "target:assembly/sparc/array.assem"
	  "target:assembly/sparc/bit-bash.assem"
	  "target:assembly/sparc/arith.assem"
	  "target:assembly/sparc/alloc.assem"))
wlott's avatar
wlott committed
    ,@(when (string= (c:backend-name c:*backend*) "RT")
	'("target:assembly/rt/assem-rtns.assem"
	  "target:assembly/rt/array.assem"
	  "target:assembly/rt/arith.assem"
	  "target:assembly/rt/alloc.assem"))
ram's avatar
ram committed

    "target:code/fdefinition"
    "target:code/eval"

    "target:code/type-boot"
    "target:code/struct"
    "target:code/error"
    "target:compiler/type"
    "target:compiler/generic/vm-type"
    "target:compiler/type-init"

    "target:code/defstruct"
    "target:compiler/proclaim"
    "target:compiler/globaldb"
    "target:code/pred"

    "target:code/pathname"
    "target:code/filesys"

ram's avatar
ram committed
    "target:code/kernel"
    "target:code/bit-bash"
    "target:code/array"
    "target:code/char"
    "target:code/lispinit"
    "target:code/seq"
    "target:code/numbers"
    "target:code/float"
    "target:code/float-trap"
    "target:code/irrat"
    "target:code/bignum"
    "target:code/defmacro"
    "target:code/list"
    "target:code/hash"
    "target:code/macros"
    "target:code/sysmacs"
    "target:code/symbol"
    "target:code/string"
    "target:code/mipsstrops"
    "target:code/misc"
    "target:code/gc"
wlott's avatar
wlott committed
    "target:code/save"
ram's avatar
ram committed
    "target:code/extensions"
    "target:code/alieneval"
    "target:code/c-call"
    "target:code/sap"
    "target:code/unix"
    #+mach "target:code/mach"
wlott's avatar
wlott committed
    #+mach "target:code/mach-os"
    #+sunos "target:code/sunos-os"
ram's avatar
ram committed
    "target:code/serve-event"
    "target:code/stream"
    "target:code/fd-stream"
    "target:code/print"
ram's avatar
ram committed
    "target:code/format"
    "target:code/package"
    "target:code/reader"
    "target:code/backq"
    "target:code/sharpm"
    "target:code/load"
    ,@(when (string= (c:backend-name c:*backend*) "PMAX")
	'("target:code/pmax-vm"))
ram's avatar
ram committed
    ,@(when (string= (c:backend-name c:*backend*) "SPARC")
	'("target:code/sparc-vm"))
wlott's avatar
wlott committed
    ,@(when (string= (c:backend-name c:*backend*) "RT")
	'("target:code/rt-vm"))
ram's avatar
ram committed

    "target:code/signal"
    "target:code/interr"
    "target:code/debug-info"
    "target:code/debug-int"
    "target:code/debug"
    ))

wlott's avatar
wlott committed
      #-(and sparc mach) "target:ldb/kernel.core"
      #+(and sparc mach) "/usr/tmp/kernel.core")
ram's avatar
ram committed
(setf *genesis-c-header-name* "target:ldb/lisp.h")
(setf *genesis-map-name* "target:ldb/lisp.map")
(setf *genesis-symbol-table* "target:ldb/ldb.map")

wlott's avatar
wlott committed
#+sunos (setf *target-page-size* 8192)

ram's avatar
ram committed
(genesis lisp-files)