(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl::*batch-mode*
                                         common-lisp:t))
                   (common-lisp:values)) 
(common-lisp:setq excl::*batch-mode* common-lisp:t) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl::*break-hook*
                                         'excl::exit-on-error-hook))
                   (common-lisp:values)) 
(common-lisp:setq excl::*break-hook* 'excl::exit-on-error-hook) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:pushnew
                                         :allegro-cl-runtime
                                         common-lisp:*features*))
                   (common-lisp:values)) 
(common-lisp:pushnew :allegro-cl-runtime common-lisp:*features*) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl:set-case-mode
                                         :case-sensitive-lower))
                   (common-lisp:values)) 
(excl:set-case-mode :case-sensitive-lower) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:force-output))
                   (common-lisp:values)) 
(common-lisp:force-output) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:progn
                                         (common-lisp:setq
                                          excl::*load-documentation*
                                          common-lisp:nil)
                                         (common-lisp:setq
                                          excl:*record-source-file-info*
                                          common-lisp:nil)
                                         (common-lisp:setq
                                          excl:*load-local-names-info*
                                          common-lisp:nil)
                                         (common-lisp:setq
                                          excl:*load-source-file-info*
                                          common-lisp:nil)
                                         (common-lisp:setq
                                          excl:*record-xref-info*
                                          common-lisp:nil)
                                         (common-lisp:setq
                                          excl:*load-xref-info*
                                          common-lisp:nil)))
                   (common-lisp:values)) 
(common-lisp:progn (common-lisp:setq excl::*load-documentation*
                                     common-lisp:nil)
                   (common-lisp:setq excl:*record-source-file-info*
                                     common-lisp:nil)
                   (common-lisp:setq excl:*load-local-names-info*
                                     common-lisp:nil)
                   (common-lisp:setq excl:*load-source-file-info*
                                     common-lisp:nil)
                   (common-lisp:setq excl:*record-xref-info* common-lisp:nil)
                   (common-lisp:setq excl:*load-xref-info* common-lisp:nil)) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl:*daylight-saving-time-observed*
                                         common-lisp:t))
                   (common-lisp:values)) 
(common-lisp:setq excl:*daylight-saving-time-observed* common-lisp:t) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         system::*install-server-name*
                                         common-lisp:nil))
                   (common-lisp:values)) 
(common-lisp:setq system::*install-server-name* common-lisp:nil) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         system::*install-generate-fonts*
                                         common-lisp:nil))
                   (common-lisp:values)) 
(common-lisp:setq system::*install-generate-fonts* common-lisp:nil) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         system::*devel*
                                         common-lisp:nil))
                   (common-lisp:values)) 
(common-lisp:setq system::*devel* common-lisp:nil) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setf
                                         (excl:argument-saving)
                                         common-lisp:nil))
                   (common-lisp:values)) 
(common-lisp:setf (excl:argument-saving) common-lisp:nil) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(system:load-patches


                                         :product
                                         #\a
                                         :version
                                         #\6))
                   (common-lisp:values)) 
(system:load-patches :product #\a :version #\6) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:require :runtime-std))
                   (common-lisp:values)) 
(common-lisp:require :runtime-std) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:when
                                         (common-lisp:fboundp
                                          'excl::refresh-all-ef-templates)
                                         (excl::refresh-all-ef-templates)))
                   (common-lisp:values)) 
(common-lisp:when (common-lisp:fboundp 'excl::refresh-all-ef-templates)
  (excl::refresh-all-ef-templates)) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl:*print-startup-message*
                                         '((:compiler-switches
                                            . common-lisp:t)
                                           (:compiler-explain . common-lisp:t)
                                           (:compiler-optimizations
                                            . common-lisp:t)
                                           (:source-file-recording
                                            . common-lisp:t)
                                           (:xref . common-lisp:t)
                                           (:case-mode . common-lisp:t)
                                           (:external-format
                                            . common-lisp:t))))
                   (common-lisp:values)) 
(common-lisp:setq excl:*print-startup-message*
                  '((:compiler-switches . common-lisp:t)
                    (:compiler-explain . common-lisp:t)
                    (:compiler-optimizations . common-lisp:t)
                    (:source-file-recording . common-lisp:t)
                    (:xref . common-lisp:t) (:case-mode . common-lisp:t)
                    (:external-format . common-lisp:t))) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl:*read-init-files*
                                         'common-lisp:t))
                   (common-lisp:values)) 
(common-lisp:setq excl:*read-init-files* 'common-lisp:t) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl:*init-file-names*
                                         '(".clinit.cl" "clinit.cl")))
                   (common-lisp:values)) 
(common-lisp:setq excl:*init-file-names* '(".clinit.cl" "clinit.cl")) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:progn
                                         (common-lisp:setq
                                          excl::*load-documentation*
                                          common-lisp:t)
                                         (common-lisp:setq
                                          excl:*record-source-file-info*
                                          common-lisp:t)
                                         (common-lisp:setq
                                          excl:*load-local-names-info*
                                          common-lisp:nil)
                                         (common-lisp:setq
                                          excl:*load-source-file-info*
                                          common-lisp:t)
                                         (common-lisp:setq
                                          excl:*record-xref-info*
                                          common-lisp:t)
                                         (common-lisp:setq
                                          excl:*load-xref-info*
                                          common-lisp:t)))
                   (common-lisp:values)) 
(common-lisp:progn (common-lisp:setq excl::*load-documentation* common-lisp:t)
                   (common-lisp:setq excl:*record-source-file-info*
                                     common-lisp:t)
                   (common-lisp:setq excl:*load-local-names-info*
                                     common-lisp:nil)
                   (common-lisp:setq excl:*load-source-file-info*
                                     common-lisp:t)
                   (common-lisp:setq excl:*record-xref-info* common-lisp:t)
                   (common-lisp:setq excl:*load-xref-info* common-lisp:t)) 

(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:when
                                         (common-lisp:probe-file
                                          "sys:custom.cl")
                                         (common-lisp:load "sys:custom.cl")))
                   (common-lisp:values)) 
(common-lisp:when (common-lisp:probe-file "sys:custom.cl")
  (common-lisp:load "sys:custom.cl")) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:let
                                         ((excl:*libfasl* common-lisp:nil)
                                          (excl:*global-gc-behavior*
                                           common-lisp:nil))
                                         (excl:tenuring
                                          (common-lisp:require :list2)
                                          (common-lisp:require :foreign)
                                          (common-lisp:require :ffcompat)
                                          (common-lisp:load "server.fasl")
                                          (common-lisp:require :toplevel))))
                   (common-lisp:values)) 
(common-lisp:let ((excl:*libfasl* common-lisp:nil)
                  (excl:*global-gc-behavior* common-lisp:nil))
  (excl:tenuring (common-lisp:require :list2) (common-lisp:require :foreign)
                 (common-lisp:require :ffcompat)
                 (common-lisp:load "server.fasl")
                 (common-lisp:require :toplevel))) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:when
                                         (common-lisp:fboundp
                                          'excl::translate-shlib-filenames)
                                         (excl::translate-shlib-filenames
                                          'common-lisp:t)))
                   (common-lisp:values)) 
(common-lisp:when (common-lisp:fboundp 'excl::translate-shlib-filenames)
  (excl::translate-shlib-filenames 'common-lisp:t)) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl:discard-local-name-info))
                   (common-lisp:values)) 
(excl:discard-local-name-info) 

(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl:*restart-app-function*
                                         'common-lisp-user::server-main))
                   (common-lisp:values)) 
(common-lisp:setq excl:*restart-app-function* 'common-lisp-user::server-main) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl::*patches-preloadable*
                                         common-lisp:nil))
                   (common-lisp:values)) 
(common-lisp:setq excl::*patches-preloadable* common-lisp:nil) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl::*source-file-autoload-srecord*
                                         common-lisp:t))
                   (common-lisp:values)) 
(common-lisp:setq excl::*source-file-autoload-srecord* common-lisp:t) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:setq
                                         excl:*libfasl*
                                         common-lisp:nil))
                   (common-lisp:values)) 
(common-lisp:setq excl:*libfasl* common-lisp:nil) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:progn
                                         (excl:gc :tenure)
                                         (excl:gc :tenure)
                                         (excl:gc :tenure)
                                         (excl:gc common-lisp:t)))
                   (common-lisp:values)) 
(common-lisp:progn (excl:gc :tenure) (excl:gc :tenure) (excl:gc :tenure)
                   (excl:gc common-lisp:t)) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(system:resize-areas


                                         :old
                                         256000
                                         :new
                                         (common-lisp:-
                                          (common-lisp:/ 6144 2)
                                          (common-lisp:* 1025 50))
                                         :global-gc
                                         common-lisp:t
                                         :tenure
                                         common-lisp:t))
                   (common-lisp:values)) 
(system:resize-areas
  :old 256000
  :new (common-lisp:- (common-lisp:/ 6144 2) (common-lisp:* 1025 50))
  :global-gc common-lisp:t
  :tenure common-lisp:t) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl::allegro-runtime-check))
                   (common-lisp:values)) 
(excl::allegro-runtime-check) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:progn
                                         (common-lisp:princ
                                          "; dumping image...")
                                         (common-lisp:force-output)))
                   (common-lisp:values)) 
(common-lisp:progn (common-lisp:princ "; dumping image...")
                   (common-lisp:force-output)) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl:dumplisp

                                         :name
                                         #p"delivery\\testeval.dxl"

                                         :bundle-file
                                         "files.bu"
                                         :batch-mode
                                         common-lisp:t
                                         :destination-directory
                                         #p"delivery\\"
                                         :autoload-warning
                                         common-lisp:t
                                         :presto-lib
                                         "delivery\\testeval.lib"
                                         :pll-file
                                         common-lisp:nil
                                         :pll-from-sys
                                         common-lisp:t
                                         :runtime
                                         :standard
                                         :show-window
                                         :showna
                                         :system-dlls-path
                                         "system-dlls/"
                                         :temporary-directory
                                         #p"C:\\DOCUME~1\\fateman\\LOCALS~1\\Temp\\"
                                         :verbose
                                         common-lisp:nil
                                         :wait
                                         common-lisp:nil
                                         :include-compiler
                                         common-lisp:nil
                                         :include-devel-env
                                         common-lisp:nil
                                         :include-debugger
                                         common-lisp:nil
                                         :include-tpl
                                         common-lisp:nil
                                         :include-ide
                                         common-lisp:nil
                                         :internal-debug
                                         "deliver.txt"
                                         :dribble-file
                                         "deliver.out"))
                   (common-lisp:values)) 
(excl:dumplisp :name #p"delivery\\testeval.dxl"
  :bundle-file "files.bu"
  :batch-mode common-lisp:t
  :destination-directory #p"delivery\\"
  :autoload-warning common-lisp:t
  :presto-lib "delivery\\testeval.lib"
  :pll-file common-lisp:nil
  :pll-from-sys common-lisp:t
  :runtime :standard
  :show-window :showna
  :system-dlls-path "system-dlls/"
  :temporary-directory #p"C:\\DOCUME~1\\fateman\\LOCALS~1\\Temp\\"
  :verbose common-lisp:nil
  :wait common-lisp:nil
  :include-compiler common-lisp:nil
  :include-devel-env common-lisp:nil
  :include-debugger common-lisp:nil
  :include-tpl common-lisp:nil
  :include-ide common-lisp:nil
  :internal-debug "deliver.txt"
  :dribble-file "deliver.out") 

(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:require :genutils))
                   (common-lisp:values)) 
(common-lisp:require :genutils) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl::copy-shared-libraries

                                         #p"delivery\\"
                                         'common-lisp:t
                                         :system-dlls-path

                                         "system-dlls/"))
                   (common-lisp:values)) 
(excl::copy-shared-libraries #p"delivery\\" 'common-lisp:t :system-dlls-path
  "system-dlls/") 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:require :genutils))
                   (common-lisp:values)) 
(common-lisp:require :genutils) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl::autoload-report
                                         #p"h:\\lisp\\ole\\autoloads.out"))
                   (common-lisp:values)) 
(excl::autoload-report #p"h:\\lisp\\ole\\autoloads.out") 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:when
                                         (common-lisp:not excl::*batch-mode*)
                                         (excl::internal-message-box

                                          "Check h:\\lisp\\ole\\autoloads.out for a report of functions, macros and generic functions which might be autoloaded from various files if called in the image you just created.")))
                   (common-lisp:values)) 
(common-lisp:when (common-lisp:not excl::*batch-mode*)
  (excl::internal-message-box
     "Check h:\\lisp\\ole\\autoloads.out for a report of functions, macros and generic functions which might be autoloaded from various files if called in the image you just created.")) 
(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(common-lisp:warn
                                         "Check h:\\lisp\\ole\\autoloads.out for a report of functions, macros and generic functions which might be autoloaded from various files if called in the image you just created."))
                   (common-lisp:values)) 
(common-lisp:warn "Check h:\\lisp\\ole\\autoloads.out for a report of functions, macros and generic functions which might be autoloaded from various files if called in the image you just created.") 

(common-lisp:progn (common-lisp:format common-lisp:t "~% #|~% ~s~% |#~%"
                                       '(excl:exit 0))
                   (common-lisp:values)) 
(excl:exit 0)