Commit 651d9933 authored by Antoine Martin's avatar Antoine Martin
Browse files

Don't account for cl- prefix in index sorting

parent 033c0ece
......@@ -44,7 +44,7 @@
collect (car (last (pathname-directory dir)))))
(defun get-first-letter (sequence)
(subseq sequence 0 1))
(subseq (remove-cl-prefix sequence) 0 1))
(defun is-number (string)
(let ((chara (char string 0)))
......@@ -102,7 +102,8 @@
:if-exists :supersede
:if-does-not-exist :create)
(print-index-header file)
(let* ((dir-list (get-directory-list path))
(let* ((dir-list (sort (get-directory-list path) #'string<
:key #'remove-cl-prefix))
(first-letter (get-first-letter (first dir-list)))
(length 0)
(pos dir-list))
......
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