Commit f34030e0 authored by Antoine Martin's avatar Antoine Martin
Browse files

Fix overall build-index function

parent 11da3816
......@@ -96,14 +96,16 @@
:if-exists :supersede
:if-does-not-exist :create)
(let* ((dir-list (get-directory-list path))
(first-letter (get-first-letter (first dir-list)))
(length 0))
(loop repeat (list-length dir-list)
for pos = dir-list then (cdr pos)
do (if (string= first-letter (get-first-letter (car pos)))
(setq length (+ length 1))
(first-letter (get-first-letter (first dir-list)))
(length 0)
(pos dir-list))
(loop until (endp pos)
do (if (letter-has-changed first-letter (get-first-letter (car pos)))
(progn (setq length (+ length 1))
(setq pos (cdr pos)))
(progn
(print-columns dir-list length file)
(setq length 0)
(setq dir-list pos)
(setq first-letter (get-first-letter (car pos)))))))))
(setq first-letter (get-first-letter (car pos))))))
(print-columns dir-list length file))))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment