29 lines
1.0 KiB
Common Lisp
29 lines
1.0 KiB
Common Lisp
;;;; OpenScenarioNext --- OpenScenario Language Design
|
|
;;;; This is copyrighted software. See documentation for terms.
|
|
;;;;
|
|
;;;; setup-common.lisp --- Common setup for building
|
|
|
|
(cl:in-package #:cl-user)
|
|
|
|
;;;; %File Description:
|
|
;;;;
|
|
;;;; Setup everything so that ASDF building of the system will work,
|
|
;;;; regardless of the current working directory or other stuff.
|
|
;;;;
|
|
|
|
;;; Require asdf just in case it is not present.
|
|
|
|
(require "ASDF")
|
|
|
|
;;; Add current path and tool paths to central-registry
|
|
|
|
(let ((base-dir (make-pathname :name nil :type nil :defaults *load-pathname*)))
|
|
;; The OSN directory itself
|
|
(push base-dir asdf:*central-registry*)
|
|
;; All needed and bundled tools
|
|
(dolist (path '(#p"tools/cl-ppcre/" #p"tools/cl-yacc/" #p"tools/puri/"
|
|
#p"tools/trivial-gray-streams/" #p"tools/trivial-features/"
|
|
#p"tools/alexandria/" #p"tools/babel/"
|
|
#p"tools/closure-common/" #p"tools/cxml/"))
|
|
(push (merge-pathnames path base-dir) asdf:*central-registry*)))
|