;;; 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 SBCL:
;; sbcl --disable-debugger --load dump-sbcl.lisp

(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-sbcl ()
  (sb-ext:quit :unix-status (handle-command-line (cdr sb-ext:*posix-argv*))))

(proclaim '(optimize debug))
(sb-ext:save-lisp-and-die "darcs" 
			  :executable t
			  :toplevel #'run-with-sbcl)

(sb-ext:quit)