From 5fd748be8b1b90d7d9a4201442f942d0d0414661 Mon Sep 17 00:00:00 2001 From: Masataro Asai Date: Sun, 27 Oct 2019 15:36:20 -0400 Subject: [PATCH] *load-truename* does not work, it may point to the cached fasl file. --- src/coleslaw-conf.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/coleslaw-conf.lisp b/src/coleslaw-conf.lisp index b1436da..116d113 100644 --- a/src/coleslaw-conf.lisp +++ b/src/coleslaw-conf.lisp @@ -1,10 +1,10 @@ (defpackage #:coleslaw-conf (:use #:cl) - (:import-from #:uiop/pathname - #:pathname-parent-directory-pathname) (:export #:*basedir*)) (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.")