Commit 5178804f authored by Dave Cooper's avatar Dave Cooper
Browse files

added primi-plane-4.lisp

parent 7ac91265
......@@ -19,12 +19,35 @@
(in-package :gdl-user)
(defparameter *data-folder* (merge-pathnames "../../data/"
(make-pathname :name nil
:type nil
:defaults excl:*source-pathname*
;; in future: (glisp:source-pathname)
)))
;;
;; For convenience, look for data folder two levels up, one level up,
;; and in same directory as source file.
;;
(defparameter *data-folder*
(or (probe-file
(merge-pathnames "../../data/"
(make-pathname :name nil
:type nil
:defaults excl:*source-pathname*
;; in future: (glisp:source-pathname)
)))
(probe-file
(merge-pathnames "../data/"
(make-pathname :name nil
:type nil
:defaults excl:*source-pathname*
;; in future: (glisp:source-pathname)
)))
(probe-file
(merge-pathnames "data/"
(make-pathname :name nil
:type nil
:defaults excl:*source-pathname*
;; in future: (glisp:source-pathname)
)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment