1.0.8.15: making SBCL sources Git more friendly

[sbcl.git] / src / code / misc.lisp

diff --git a/src/code/misc.lisp b/src/code/misc.lisp
index 8a32863..59f5f56 100644 (file)
--- a/src/code/misc.lisp
+++ b/src/code/misc.lisp
@@ -16,4 +16,8 @@
   "SBCL")
 
 (defun sb!xc:lisp-implementation-version ()
-  #.(sb-cold:read-from-file "version.lisp-expr"))
+  #.(format nil "~A~@[.~A~]"
+            (sb-cold:read-from-file "version.lisp-expr")
+            (let ((pathname "branch-version.lisp-expr"))
+              (when (probe-file pathname)
+                (sb-cold:read-from-file pathname)))))