diff --git a/uiop/os.lisp b/uiop/os.lisp index 9d93138955b980941f10b526be2ad9af5bd87773..fb65496149e3d7941cf091647c9a4b3a01562700 100644 --- a/uiop/os.lisp +++ b/uiop/os.lisp @@ -229,6 +229,7 @@ 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) s)))) (defun implementation-identifier ()