1 ;;; PHOROS -- Photogrammetric Road Survey
2 ;;; Copyright (C) 2010, 2011 Bert Burgemeister
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.
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.
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.
19 ;;;; Make an executable.
20 ;; TODO: don't expect quicklisp to be preloaded
22 (push (make-pathname :directory
'(:relative
"phoml"))
23 asdf
:*central-registry
*)
25 (push (make-pathname :directory
'(:relative
"sb-daemon"))
26 asdf
:*central-registry
*)
28 (push (make-pathname :directory
'(:relative
:up
"phoros"))
29 asdf
:*central-registry
*)
31 (ql:quickload
"phoros")
33 #+build-phoros
(in-package :phoros
)
34 #+build-phoros
(sb-ext:save-lisp-and-die
36 :save-runtime-options t
37 :toplevel
(function cli
:main
)
40 #+build-fasttrack
(in-package :phoros-fasttrack
)
41 #+build-fasttrack
(sb-ext:save-lisp-and-die
43 :save-runtime-options t
44 :toplevel
(function main
)