(in-package :common-lisp-user) (proclaim '(optimize (speed 2) (safety 1) (space 1) (debug 3))) (defmacro mbyte (n) `(round (* 1024 1024 ,n))) (excl:build-lisp-image "xle.dxl" :include-clim nil :include-composer t :newspace (mbyte 128) :oldspace (mbyte 64) #| :lisp-heap-start (mbyte (+ 1024 64)) :lisp-heap-size (mbyte 1800) #+:sparc :c-heap-start #+:sparc #xe0000000 #+:linux86 :c-heap-start #+:linux86 "2900M" |# :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)