From 92147481d375561b7af8dfff2b17603f4cd99a07 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@goldman-tribe.org>
Date: Sat, 19 Jan 2019 14:11:56 -0600
Subject: [PATCH] Ensure physical-pathname.

Fix call to NATIVE-NAMESTRING on return of ASDF:SYSTEM-RELATIVE-PATHNAME, which may return a logical pathname.
---
 buildapp.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/buildapp.lisp b/buildapp.lisp
index a53d12c..684ac98 100644
--- a/buildapp.lisp
+++ b/buildapp.lisp
@@ -424,7 +424,8 @@ ARGV. See *USAGE* for details."
     (main (list "sbcl"
                 "--asdf-path"
                 (native-namestring
-                 (asdf:system-relative-pathname :buildapp "./"))
+                 (translate-logical-pathname
+                  (asdf:system-relative-pathname :buildapp "./")))
                 "--load-system" "buildapp"
                 "--entry" "buildapp:main"
                 "--output"