mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

More paranoid checks when building the commit id file.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-25 13:32:20 +01:00
parent 6821f31162
commit 92c3438df1
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/bare.lsp.in
View file

@ -33,13 +33,16 @@
(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
:external-format :default)))
(line (print (read-line file))))
(setq si::+commit-id+ (subseq line 0 40))
(when (probe-file "COMMIT-ID")
(delete-file "COMMIT-ID"))
(when (and (zerop (si::system "(cd \"@top_srcdir@\" && git log --format=oneline -1) > COMMIT-ID"))
(probe-file "COMMIT-ID"))
(let* ((file (open "COMMIT-ID" :direction :input :element-type :default
:external-format :default))
(line (read-line file))
(l (length line)))
(setq si::+commit-id+ (subseq line 0 (min l 40)))
(close file))))
(print si::+commit-id+)
;;;
;;; * Load Common-Lisp base library