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

Use $CCL, not $CLOZURE for the path.

Splice lisp-path when it's a list.
Allow for suffix on variable name, for _OPTIONS (not otherwise used yet).
parent 8e2c135e
No related branches found
No related tags found
No related merge requests found
...@@ -94,7 +94,7 @@ ...@@ -94,7 +94,7 @@
:quit-format "(excl:exit ~A :quiet t)" :quit-format "(excl:exit ~A :quiet t)"
:dump-format "(progn (sys:resize-areas :global-gc t :pack-heap t :sift-old-areas t :tenure t) (excl:dumplisp :name ~A :suppress-allegro-cl-banner t))") :dump-format "(progn (sys:resize-areas :global-gc t :pack-heap t :sift-old-areas t :tenure t) (excl:dumplisp :name ~A :suppress-allegro-cl-banner t))")
(define-lisp-implementation (:clozure :ccl) () ;; demand 1.4 or later. (define-lisp-implementation (:ccl :clozure) () ;; demand 1.4 or later.
:fullname "Clozure Common Lisp" :fullname "Clozure Common Lisp"
;; formerly OpenMCL, forked from MCL, formerly Macintosh Common Lisp, nee Coral Common Lisp ;; formerly OpenMCL, forked from MCL, formerly Macintosh Common Lisp, nee Coral Common Lisp
;; Random note: (finish-output) is essential for ccl, that won't do it by default, ;; Random note: (finish-output) is essential for ccl, that won't do it by default,
...@@ -271,9 +271,10 @@ ...@@ -271,9 +271,10 @@
((asdf::os-unix-p) (format nil "./~A" n)) ((asdf::os-unix-p) (format nil "./~A" n))
(t n))))) (t n)))))
(defun lisp-environment-variable-name (&key (type (implementation-type)) prefix) (defun lisp-environment-variable-name (&key (type (implementation-type)) prefix suffix)
(if (eq prefix t) (setf prefix "X")) (when (eq prefix t) (setf prefix "X"))
(format nil "~@[~A~]~:@(~A~)" prefix type)) (when (eq suffix t) (setf prefix "_OPTIONS"))
(format nil "~@[~A~]~:@(~A~)~@[~A~]" prefix type suffix))
(defun lisp-invocation-arglist (defun lisp-invocation-arglist
(&key (implementation-type (implementation-type)) (&key (implementation-type (implementation-type))
...@@ -291,12 +292,13 @@ ...@@ -291,12 +292,13 @@
(get-lisp-implementation implementation-type) (get-lisp-implementation implementation-type)
(append (append
(when (or (null image-path) (not image-executable-p)) (when (or (null image-path) (not image-executable-p))
(list (or (ensure-list
(when (consp lisp-path) lisp-path) (or
(ensure-path-executable lisp-path) (when (consp lisp-path) lisp-path)
(getenv (lisp-environment-variable-name (ensure-path-executable lisp-path)
:type implementation-type :prefix (when cross-compile "X"))) (getenv (lisp-environment-variable-name
name))) :type implementation-type :prefix (when cross-compile "X")))
name)))
(when (and image-path (not image-executable-p)) (when (and image-path (not image-executable-p))
(list image-flag)) (list image-flag))
(when image-path (when image-path
......
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