Skip to content
Snippets Groups Projects
Commit 712d55ba authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Slightly better fix to test-program.script

parent d62866b0
No related branches found
No related tags found
No related merge requests found
......@@ -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*
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment