Commit 09a19f0a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files ensure *cl-launch-file* is absolute.

parent b41b857c
......@@ -238,6 +238,8 @@ do_tests () {
image*:dump*:ecl) ;;
# we don't know how to dump at all with ABCL, XCL
*:dump*:abcl|image*:*:abcl|*:dump*:xcl|image*:*:xcl) ;;
# Unidentified bug using image on CLISP as of
image*:clisp) ;;
for IF in "noinc" "noinc file" "inc" "inc1 file" "inc2 file" ; do
#| -- shell wrapper generator for Common Lisp software -*- Lisp -*-
license_information () {
# Please send your improvements to the author:
......@@ -2389,11 +2389,13 @@ Returns two values: the fasl path, and T if the file was (re)compiled"
#+(and ecl (not dlopen))
(load source :verbose *verbose*))
(defun compute-arguments ()
(setf *cl-launch-file* (let ((x (getenvp "CL_LAUNCH_FILE")))
(if (equal x "-") *standard-input* (parse-native-namestring x)))
*cl-launch-header* (let ((x (getenvp "CL_LAUNCH_HEADER")))
(if (equal x "-") *standard-input* (parse-native-namestring x)))
*verbose* (when (getenvp "CL_LAUNCH_VERBOSE") t)))
(flet ((foo (v)
(let ((x (getenvp v)))
(if (equal x "-") *standard-input*
(ensure-absolute-pathname (parse-native-namestring x) #'getcwd)))))
(setf *cl-launch-file* (foo "CL_LAUNCH_FILE")
*cl-launch-header* (foo "CL_LAUNCH_HEADER")
*verbose* (when (getenvp "CL_LAUNCH_VERBOSE") t))))
(asdf::register-preloaded-system "cl-launch")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment