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

Shorten the implementation-identifier on ECL

Shaving away "unknown" from the implementation-identifier on ECL,
where it appears, which can be very precious for FASLs on Windows
due to pathname size limits.

This partially addresses ECL issue 360
https://gitlab.com/embeddable-common-lisp/ecl/issues/360
parent 47e00c25
No related branches found
No related tags found
No related merge requests found
...@@ -223,7 +223,8 @@ then returning the non-empty string value of the variable" ...@@ -223,7 +223,8 @@ then returning the non-empty string value of the variable"
(ecase ext:*case-mode* (:upper "") (:lower "l"))) (ecase ext:*case-mode* (:upper "") (:lower "l")))
#+ecl (format nil "~A~@[-~A~]" s #+ecl (format nil "~A~@[-~A~]" s
(let ((vcs-id (ext:lisp-implementation-vcs-id))) (let ((vcs-id (ext:lisp-implementation-vcs-id)))
(subseq vcs-id 0 (min (length vcs-id) 8)))) (unless (equal vcs-id "UNKNOWN")
(subseq vcs-id 0 (min (length vcs-id) 8)))))
#+gcl (subseq s (1+ (position #\space s))) #+gcl (subseq s (1+ (position #\space s)))
#+genera #+genera
(multiple-value-bind (major minor) (sct:get-system-version "System") (multiple-value-bind (major minor) (sct:get-system-version "System")
......
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