Initial CL parser/generator implementation

setup-common.lisp

@@ -0,0 +1,25 @@
+;;;; 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/"))
+    (push (merge-pathnames path base-dir) asdf:*central-registry*)))