From 712d55bac144474a1b75f2b5bf4db2300953bf52 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <tunes@google.com>
Date: Mon, 24 Mar 2014 20:07:18 -0400
Subject: [PATCH] Slightly better fix to test-program.script

---
 test/test-program.script | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/test-program.script b/test/test-program.script
index d8465e80..8756d78d 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -9,9 +9,9 @@
 
 #+allegro
 (defparameter *lisp*
-  (if (absolute-pathname-p (first (raw-command-line-arguments)))
-      (first (raw-command-line-arguments))
-    (truename (subpathname #p"sys:" (first (raw-command-line-arguments))))))
+  (let ((argv0 (parse-native-namestring (first (raw-command-line-arguments)))))
+    (or (absolute-pathname-p argv0)
+        (truename (subpathname #p"sys:" argv0)))))
 
 ;; Try to load lisp-invocation from xcvb
 (setf *central-registry*
-- 
GitLab