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)