Commit dadf2b7f authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

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
......@@ -223,7 +223,8 @@ then returning the non-empty string value of the variable"
(ecase ext:*case-mode* (:upper "") (:lower "l")))
#+ecl (format nil "~A~@[-~A~]" s
(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)))
#+genera
(multiple-value-bind (major minor) (sct:get-system-version "System")
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment