Commit 304183e4 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
parent 8c7ef623
......@@ -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)))
(multiple-value-bind (major minor) (sct:get-system-version "System")
Supports Markdown
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