(in-package :common-lisp-user)

(defmacro mbyte (n) 
  `(round (* 1024 1024 ,n)))

(excl:build-lisp-image "base.dxl" 
  :include-clim t :include-composer t
  :newspace (mbyte 256)
  :oldspace (mbyte 96)
  :lisp-heap-start (mbyte (+ 1024 64))
  :lisp-heap-size (mbyte 1600)
  #+:sparc :c-heap-start #+:sparc #xe0000000
  #+:linux86 :c-heap-start #+:linux86 "2700M"
  :pll-file (file-namestring (pll-file))
  :bundle-file (file-namestring (namestring (bundle-pathname)))
  :opt-speed 3 :opt-space 1 :opt-safety 1 :opt-debug 2
  :read-init-files '(".clinit.cl" "clinit.cl"))

(excl:exit)