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 @@ ...@@ -9,9 +9,9 @@
#+allegro #+allegro
(defparameter *lisp* (defparameter *lisp*
(if (absolute-pathname-p (first (raw-command-line-arguments))) (let ((argv0 (parse-native-namestring (first (raw-command-line-arguments)))))
(first (raw-command-line-arguments)) (or (absolute-pathname-p argv0)
(truename (subpathname #p"sys:" (first (raw-command-line-arguments)))))) (truename (subpathname #p"sys:" argv0)))))
;; Try to load lisp-invocation from xcvb ;; Try to load lisp-invocation from xcvb
(setf *central-registry* (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