Skip to content
Snippets Groups Projects
Commit 7e3396f4 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Use normalized identifier to determine environment variable

parent c687a280
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
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