X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fmisc.lisp;h=59f5f5607ffbc6222c75a1149ae480f93b50df65;hb=ef716ee5409d0d55020aea422e29a9175c2b4b74;hp=8a32863bdfba2a50a9c579ac09040c942adc11d5;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/misc.lisp b/src/code/misc.lisp
index 8a32863..59f5f56 100644
--- 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)))))