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

Remove debug statements from bare.lsp.in

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-11-13 16:41:07 +01:00
parent 731395e8f9
commit 1fb93d7759
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/bare.lsp.in
View file

@ -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 ()))))))