source: cl-darcs/trunk/dump-clisp.lisp

;;; Copyright (C) 2007, 2008 Magnus Henoch
;;;
;;; This program is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU General Public License as
;;; published by the Free Software Foundation; either version 2 of the
;;; License, or (at your option) any later version.
;;;
;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;;; General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with this program; if not, write to the Free Software
;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

;; Use this file to create a "darcs" executable using CLISP.

(let* ((src-dir (make-pathname :name nil :type nil :defaults *load-truename*))
       (asdf:*central-registry* (cons src-dir asdf:*central-registry*)))
  (asdf:oos 'asdf:load-op :cl-darcs))

(in-package :darcs)

(defun run-with-clisp ()
  (ext:quit (handle-command-line ext:*args*)))

(ext:saveinitmem "darcs" 
                 :executable t
                 :norc t
                 :quiet t
                 :init-function #'run-with-clisp
                 :start-package :darcs)

(ext:quit)