make.lisp

   1 ;;; PHOROS -- Photogrammetric Road Survey
   2 ;;; Copyright (C) 2010, 2011, 2016 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 #+build-phoros (swank-loader:init)
  34 #+build-phoros (in-package :phoros)
  35 #+build-phoros (sb-ext:save-lisp-and-die
  36                 "phoros"
  37                 :save-runtime-options t
  38                 :toplevel (function cli:main)
  39                 :executable t)
  40
  41 #+build-fasttrack (in-package :phoros-fasttrack)
  42 #+build-fasttrack (sb-ext:save-lisp-and-die
  43                    "fasttrack"
  44                    :save-runtime-options t
  45                    :toplevel (function main)
  46                    :executable t)