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

Rename variable to better name

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