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