make.lisp

   1 ;;; PHOROS -- Photogrammetric Road Survey
   2 ;;; Copyright (C) 2010, 2011 Bert Burgemeister
   3 ;;;
   4 ;;; This program is free software; you can redistribute it and/or modify
   5 ;;; it under the terms of the GNU General Public License as published by
   6 ;;; the Free Software Foundation; either version 2 of the License, or
   7 ;;; (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 ;;; GNU General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License along
  15 ;;; with this program; if not, write to the Free Software Foundation, Inc.,
  16 ;;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  17
  18
  19 ;;;; Make an executable.
  20 ;; TODO: don't expect quicklisp to be preloaded
  21
  22 (push (make-pathname :directory '(:relative "phoml"))
  23       asdf:*central-registry*)
  24
  25 (push (make-pathname :directory '(:relative "sb-daemon"))
  26       asdf:*central-registry*)
  27
  28 (push (make-pathname :directory '(:relative :up "phoros"))
  29       asdf:*central-registry*)
  30
  31 (ql:quickload "phoros")
  32
  33 (in-package :phoros)
  34
  35 (sb-ext:save-lisp-and-die
  36  "phoros" :save-runtime-options t :toplevel (function cli:main) :executable t)