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

Rename variable to better name

parent 5008a379
......@@ -109,20 +109,20 @@
(print-index-header file)
(let* ((dir-list (sort (get-directory-list path) #'string<
:key #'remove-cl-prefix))
(first-letter (get-first-letter (first dir-list)))
(current-letter (get-first-letter (first dir-list)))
(length 0)
(pos dir-list))
(loop until (endp pos)
do (if (letter-has-not-changed first-letter (get-first-letter (car pos)))
do (if (letter-has-not-changed current-letter (get-first-letter (car pos)))
(progn (setq length (+ length 1))
(setq pos (cdr pos)))
(progn
(print-index-letter first-letter file)
(print-index-letter current-letter file)
(print-columns dir-list length file)
(setq length 0)
(setq dir-list pos)
(setq first-letter (get-first-letter (car pos))))))
(print-index-letter first-letter file)
(setq current-letter (get-first-letter (car pos))))))
(print-index-letter current-letter file)
(print-columns dir-list length file))
(format file "</body>~%")))
......
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