Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
qitab
lisp-invocation
Commits
c687a280
Commit
c687a280
authored
Apr 15, 2014
by
Francois-Rene Rideau
Browse files
cross-compile defaults to NIL. XCVB can make it explicitly t.
parent
a6cb6193
Changes
1
Hide whitespace changes
Inline
Side-by-side
lisp-invocation.lisp
View file @
c687a280
...
...
@@ -30,7 +30,7 @@
"Dictionary of known Lisp implementations"
)
(
defstruct
(
lisp-implementation
)
identifiers
identifiers
;; the first also names the environment variable for the lisp-path, as per cl-launch
fullname
name
feature
...
...
@@ -285,7 +285,7 @@
eval
arguments
debugger
(
cross-compile
t
)
)
cross-compile
)
(
with-slots
(
name
flags
disable-debugger
load-flag
eval-flag
image-flag
image-executable-p
standalone-executable
arguments-end
argument-control
)
...
...
@@ -296,8 +296,8 @@
(
or
(
when
(
consp
lisp-path
)
lisp-path
)
(
ensure-path-executable
lisp-path
)
(
getenv
(
lisp-environment-variable-name
:type
implementation-type
:prefix
(
when
cross-compile
"X"
)))
(
getenv
p
(
lisp-environment-variable-name
:type
implementation-type
:prefix
(
when
cross-compile
"X"
)))
name
)))
(
when
(
and
image-path
(
not
image-executable-p
))
(
list
image-flag
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment