Commit b12a48c5 authored by Robert Goldman's avatar Robert Goldman

Fix load crash on older MKCLs.

Recent patch relied on MKCL:GIT-DESCRIBE-THIS-MKCL, which is not
uniformly available.
parent e173a14d
......@@ -229,7 +229,12 @@ then returning the non-empty string value of the variable"
(multiple-value-bind (major minor) (sct:get-system-version "System")
(format nil "~D.~D" major minor))
#+mcl (subseq s 8) ; strip the leading "Version "
#+mkcl (or (mkcl:git-describe-this-mkcl) s)
;; seems like there should be a shorter way to do this, like ACALL.
#+mkcl (or
(let ((fname (find-symbol* '#:git-describe-this-mkcl :mkcl nil)))
(when (and fname (fboundp fname))
(funcall fname)))
s)
s))))
(defun implementation-identifier ()
......
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