demos/dump.lisp

   1 ;;; dump.lisp --- ECL demos dumping code
   2
   3 ;; Copyright (C) 2010, 2011 Didier Verna
   4
   5 ;; Author:        Didier Verna <didier@lrde.epita.fr>
   6 ;; Maintainer:    Didier Verna <didier@lrde.epita.fr>
   7
   8 ;; This file is part of Clon.
   9
  10 ;; Permission to use, copy, modify, and distribute this software for any
  11 ;; purpose with or without fee is hereby granted, provided that the above
  12 ;; copyright notice and this permission notice appear in all copies.
  13
  14 ;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
  15 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  16 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
  17 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  18 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  19 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
  20 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  21
  22
  23 ;;; Commentary:
  24
  25 ;; Contents management by FCM version 0.1.
  26
  27
  28 ;;; Code:
  29
  30 (require :asdf)
  31
  32 (defconstant +executable+
  33   (second (member "--" (si:command-args) :test #'string=)))
  34 (defconstant +source+ (concatenate 'string +executable+ ".lisp"))
  35 (defconstant +object+ (concatenate 'string +executable+ ".o"))
  36
  37 #-asdf2 (setf asdf:*central-registry*
  38               (list* (merge-pathnames "share/common-lisp/systems/"
  39                                       (user-homedir-pathname))
  40                      #p"/usr/local/share/common-lisp/systems/"
  41                      #p"/usr/share/common-lisp/systems/"
  42                      asdf:*central-registry*))
  43
  44 #-asdf2 (ignore-errors (asdf:operate 'asdf:load-op :asdf-binary-locations))
  45
  46 (asdf:operate 'asdf:load-op :com.dvlsoft.clon)
  47
  48 (compile-file +source+ :output-file +object+ :system-p t)
  49 (c:build-program +executable+ :lisp-files (list +object+))
  50
  51 (si:exit 0)
  52
  53 ;;; dumpecl.lisp ends here