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
7e3396f4
Commit
7e3396f4
authored
Apr 15, 2014
by
Francois-Rene Rideau
Browse files
Use normalized identifier to determine environment variable
parent
c687a280
Changes
1
Hide whitespace changes
Inline
Side-by-side
lisp-invocation.lisp
View file @
7e3396f4
...
...
@@ -52,7 +52,7 @@
`
(
apply
'register-lisp-implementation
',key
',keys
))
(
defun
register-lisp-implementation
(
key
&rest
keys
)
(
let*
((
identifiers
(
if
(
consp
key
)
key
(
list
key
))
)
(
let*
((
identifiers
(
ensure-
list
key
))
(
implementation
(
apply
#'
make-lisp-implementation
:identifiers
identifiers
keys
)))
(
dolist
(
id
identifiers
)
(
setf
(
gethash
id
*lisp-implementations*
)
implementation
))))
...
...
@@ -272,9 +272,11 @@
(
t
n
)))))
(
defun
lisp-environment-variable-name
(
&key
(
type
(
implementation-type
))
prefix
suffix
)
(
when
(
eq
prefix
t
)
(
setf
prefix
"X"
))
(
when
(
eq
suffix
t
)
(
setf
prefix
"_OPTIONS"
))
(
format
nil
"~@[~A~]~:@(~A~)~@[~A~]"
prefix
type
suffix
))
(
let*
((
implementation
(
get-lisp-implementation
type
))
(
name
(
first
(
lisp-implementation-identifiers
implementation
))))
(
when
(
eq
prefix
t
)
(
setf
prefix
"X"
))
(
when
(
eq
suffix
t
)
(
setf
prefix
"_OPTIONS"
))
(
format
nil
"~@[~A~]~:@(~A~)~@[~A~]"
prefix
name
suffix
)))
(
defun
lisp-invocation-arglist
(
&key
(
implementation-type
(
implementation-type
))
...
...
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