8 lines
312 B
Text
8 lines
312 B
Text
(de sortTable (Tbl . @)
|
|
(let (Ordering prog Column 1 Reverse NIL) # Set defaults
|
|
(bind (rest) # Bind optional params
|
|
(setq Tbl
|
|
(by '((L) (Ordering (get L Column)))
|
|
sort
|
|
Tbl ) )
|
|
(if Reverse (flip Tbl) Tbl) ) ) )
|