marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*load-truename* does not work, it may point to the cached fasl file.

Browse source
This commit is contained in:
Masataro Asai 2019-10-27 15:36:20 -04:00
parent 35c09f45bd
commit 5fd748be8b
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/coleslaw-conf.lisp
View file

@ -1,10 +1,10 @@
(defpackage #:coleslaw-conf (defpackage #:coleslaw-conf
(:use #:cl) (:use #:cl)
(:import-from #:uiop/pathname
#:pathname-parent-directory-pathname)
(:export #:*basedir*)) (:export #:*basedir*))
(in-package #:coleslaw-conf) (in-package #:coleslaw-conf)
(defparameter *basedir* (pathname-parent-directory-pathname (make-pathname :name nil :type nil :defaults *load-truename*)) (defparameter *basedir*
(uiop/pathname:pathname-parent-directory-pathname
#.(or *compile-file-truename* *load-truename*))
"A pathname pointing to Coleslaw's top level directory.") "A pathname pointing to Coleslaw's top level directory.")