(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 512) :oldspace (mbyte 384) :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)