Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Sorted tools articles pages (deleted/uncategorized/all) alphabetically

  • Loading branch information...
commit a6d816a0f69e4c5597574bb8141f69bcdadf982e 1 parent 2e39562
@vsedach authored
Showing with 7 additions and 5 deletions.
  1. +7 −5 src/wiki.lisp
View
12 src/wiki.lisp
@@ -68,11 +68,13 @@
article)))
(defun get-all-articles (filter)
- (mapcar #'article-title
- (remove-if-not
- filter
- (with-lock-held ((data-lock *wiki*))
- (alexandria:hash-table-values (articles *wiki*))))))
+ (sort
+ (mapcar #'article-title
+ (remove-if-not
+ filter
+ (with-lock-held ((data-lock *wiki*))
+ (alexandria:hash-table-values (articles *wiki*)))))
+ #'string-lessp))
(defun edits-by-author (name)
(with-lock-held ((index-lock *wiki*))
Please sign in to comment.
Something went wrong with that request. Please try again.