d4ba6547d8a1

--- a/src/wam/topological-sort.lisp	Sat Mar 26 19:19:07 2016 +0000
+++ b/src/wam/topological-sort.lisp	Sat Mar 26 19:21:05 2016 +0000
@@ -9,11 +9,10 @@
 
   `elements` should be a sequence of elements to be sorted.
 
-  `constraints` should be a list of `(element . element)` conses where
-  `(foo . bar)` means that element `foo` must precede `bar` in the result.
+  `constraints` should be a list of `(key . key)` conses where `(foo . bar)`
+  means element `foo` must precede `bar` in the result.
 
-  `key` will be used to turn items in `elements` into the items in
-  `constraints`.
+  `key` will be used to turn items in `elements` into the keys in `constraints`.
 
   `key-test` is the equality predicate for keys.