mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(lisp): Sort tasks in DESCENDING order

Browse source
This commit is contained in:
Vincent Ambo 2017-12-20 19:36:05 +01:00
parent 26f365271e
commit ce036d7d15
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/gemma.lisp
View file

@ -62,7 +62,7 @@ maximum interval."
(defun sort-tasks (tasks) (defun sort-tasks (tasks)
"Sorts TASKS in descending order by number of days remaining." "Sorts TASKS in descending order by number of days remaining."
(sort (copy-list tasks) (sort (copy-list tasks)
(lambda (t1 t2) (> (days-remaining t1) (lambda (t1 t2) (< (days-remaining t1)
(days-remaining t2))))) (days-remaining t2)))))
(defun complete-task (name &optional at) (defun complete-task (name &optional at)