(in-package :common-lisp-user)

(load "~/logon/lingo/lkb/src/general/loadup.lisp")

(let ((target (dir-append 
               (make-pathname :directory "~/logon/flat/cgp")
               (list :relative mk::%system-binaries%))))
  
  (when (probe-file target) (delete-directory-and-files target))
  #+(and :allegro-version>= (version>= 5 0) :excl)
  (ignore-errors (excl:make-directory target))

  (excl:generate-application ;;excl:build-lisp-image
   ;; (merge-pathnames "cgp.dxl" target)
   "cgp-server"
   (merge-pathnames "cgp-server/" target)
   ;;:lisp-files
   (list #p"~/logon/flat/cgp/load.lisp")
   :newspace (* 1024 1024 128)
   :oldspace (* 1024 1024 64)
   :lisp-heap-size (* 1024 1024 #-:mswindows 768 #+:mswindows 512)
   ;;
   ;; change heap placement to allow immense newspace growth (21-may-00  -  oe)
   ;;
   #+:linux86 :lisp-heap-start 
   #+(and :linux86 (not (version>= 6 2))) "1040M" 
   #+(and :linux86 (version>= 6 2)) "1088M"
   #+(and :sparc :solaris2) :c-heap-start #+(and :sparc :solaris2) #xe0000000

   :include-clim nil
   :include-compiler t

   :opt-speed 2 :opt-space 1 :opt-safety 2 :opt-debug 2
   :read-init-files nil ;; '(".clinit.cl" "clinit.cl")

   :include-tpl t
   :include-debugger t
   :include-devel-env t
   :include-ide nil
   #-(or :mswindows (version>= 6 2)) :include-common-graphics
   #-(or :mswindows (version>= 6 2)) nil
   :include-composer nil
   :include-xcw nil

   :load-xref-info t :record-xref-info t :discard-xref-info nil

   :print-startup-message nil

   :presto nil)
  #+ignore
  (excl:build-lisp-image
   (merge-pathnames "cgp++.dxl" target)
   :lisp-files (list #p"~/logon/flat/cgp/redwoods.lisp")
   :newspace (* 1024 1024 128)
   :oldspace (* 1024 1024 64)
   :lisp-heap-size (* 1024 1024 #-:mswindows 768 #+:mswindows 512)
   ;;
   ;; change heap placement to allow immense newspace growth (21-may-00  -  oe)
   ;;
   #+:linux86 :lisp-heap-start 
   #+(and :linux86 (not (version>= 6 2))) "1040M" 
   #+(and :linux86 (version>= 6 2)) "1088M"
   #+(and :sparc :solaris2) :c-heap-start #+(and :sparc :solaris2) #xe0000000

   :include-clim t
   :include-compiler t

   :opt-speed 2 :opt-space 1 :opt-safety 2 :opt-debug 2
   :read-init-files '(".clinit.cl" "clinit.cl")

   :include-tpl t
   :include-debugger t
   :include-devel-env t
   :include-ide nil
   #-(or :mswindows (version>= 6 2)) :include-common-graphics
   #-(or :mswindows (version>= 6 2)) nil
   :include-composer nil
   :include-xcw nil

   :load-xref-info t :record-xref-info t :discard-xref-info nil

   :print-startup-message nil

   :presto nil))

(excl:exit)