[Cl-darcs-cvs] r195 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Apr  2 16:32:07 2008
New Revision: 195

Added:
   cl-darcs/trunk/dump-clisp.lisp
   cl-darcs/trunk/dump-sbcl.lisp
Log:
Commit dump scripts


Added: cl-darcs/trunk/dump-clisp.lisp
==============================================================================
--- (empty file)
+++ cl-darcs/trunk/dump-clisp.lisp	Wed Apr  2 16:32:07 2008
@@ -0,0 +1,35 @@
+;;; 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)

Added: cl-darcs/trunk/dump-sbcl.lisp
==============================================================================
--- (empty file)
+++ cl-darcs/trunk/dump-sbcl.lisp	Wed Apr  2 16:32:07 2008
@@ -0,0 +1,34 @@
+;;; 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)