From 28ceeaa405ad29050f95f4e3368d19b37781ec22 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Thu, 25 Feb 2010 12:00:51 +0100
Subject: [PATCH] The code for retreiving COMMIT-ID does not work in Windows.

---
 src/bare.lsp.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/bare.lsp.in b/src/bare.lsp.in
index b40a95fc4..3557d3062 100644
--- a/src/bare.lsp.in
+++ b/src/bare.lsp.in
@@ -30,7 +30,8 @@
 ;;; * Create commit version number
 ;;;
 
-(setq si::+commit-id+ "0")
+(setq si::+commit-id+ "UNKNOWN")
+#-windows
 (when (probe-file "@top_srcdir@/../.git/")
   (when (zerop (si::system "(cd \"@top_srcdir@\" && git log --format=oneline -1) > COMMIT-ID"))
     (let* ((file (print (open "COMMIT-ID" :direction :input :element-type :default