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