Commit c687a280 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

cross-compile defaults to NIL. XCVB can make it explicitly t.

parent a6cb6193
...@@ -30,7 +30,7 @@ ...@@ -30,7 +30,7 @@
"Dictionary of known Lisp implementations") "Dictionary of known Lisp implementations")
(defstruct (lisp-implementation) (defstruct (lisp-implementation)
identifiers identifiers ;; the first also names the environment variable for the lisp-path, as per cl-launch
fullname fullname
name name
feature feature
...@@ -285,7 +285,7 @@ ...@@ -285,7 +285,7 @@
eval eval
arguments arguments
debugger debugger
(cross-compile t)) cross-compile)
(with-slots (name flags disable-debugger load-flag eval-flag (with-slots (name flags disable-debugger load-flag eval-flag
image-flag image-executable-p standalone-executable image-flag image-executable-p standalone-executable
arguments-end argument-control) arguments-end argument-control)
...@@ -296,7 +296,7 @@ ...@@ -296,7 +296,7 @@
(or (or
(when (consp lisp-path) lisp-path) (when (consp lisp-path) lisp-path)
(ensure-path-executable lisp-path) (ensure-path-executable lisp-path)
(getenv (lisp-environment-variable-name (getenvp (lisp-environment-variable-name
:type implementation-type :prefix (when cross-compile "X"))) :type implementation-type :prefix (when cross-compile "X")))
name))) name)))
(when (and image-path (not image-executable-p)) (when (and image-path (not image-executable-p))
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