From b12a48c5dd6cbdfeea3e37e50da4333fafb6ae8f Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Thu, 15 Sep 2016 10:19:30 -0500 Subject: [PATCH] Fix load crash on older MKCLs. Recent patch relied on MKCL:GIT-DESCRIBE-THIS-MKCL, which is not uniformly available. --- uiop/os.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/uiop/os.lisp b/uiop/os.lisp index fb6549614..aa855ae10 100644 --- a/uiop/os.lisp +++ b/uiop/os.lisp @@ -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 () -- GitLab