From 1fb93d7759dbbd81bc82fb2127b5ec948d2c7d8f Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 13 Nov 2011 16:41:07 +0100
Subject: [PATCH] Remove debug statements from bare.lsp.in

---
 src/bare.lsp.in | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/bare.lsp.in b/src/bare.lsp.in
index a880b3f71..59c8906d4 100644
--- a/src/bare.lsp.in
+++ b/src/bare.lsp.in
@@ -169,14 +169,11 @@
 	(loop for l = (read-line file nil nil nil)
 	   while l
 	   do (setf last l)))
-      (print last)
       (when last
 	(handler-case
 	    (let* ((start (position #\Space last)))
-	      (print start)
 	      (when start
 		(let ((end (position #\Space last :start (incf start))))
-		  (print end)
 		  (when end
 		    (setq si::+commit-id+ (subseq last start end))))))
 	  (serious-condition ()))))))