;;; to run, do something like:
;;;  <path_to_lispworks>/lispworks-7-1-0-amd64-darwin -build ~/git_repos/dotfiles/lispworks/saveimg.lisp
(in-package "CL-USER")
(load-all-patches)
(let ((out-name (format nil "~~/bin/lw-console-~a" 
                        (lisp-implementation-version))))
  (save-image out-name 
              :console t
              :multiprocessing t
              :environment nil))