8 lines
278 B
Common Lisp
8 lines
278 B
Common Lisp
|
(defun sort-table (table &key (ordering #'string<)
|
||
|
|
(column 0)
|
||
|
|
reverse)
|
||
|
|
(sort table (if reverse
|
||
|
|
(complement ordering)
|
||
|
|
ordering)
|
||
|
|
:key (lambda (row) (elt row column))))
|