Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Tue Mar 11 03:28:44 2003 UTC | revision 1.3 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | |
---|---|---|
# | Line 82 | Line 82 |
82 | unless (equal result1 result2) | unless (equal result1 result2) |
83 | return (list (list 'remove-duplicates (list 'sort (cons fn args) '<) "...") | return (list (list 'remove-duplicates (list 'sort (cons fn args) '<) "...") |
84 | "actual: " result2 "should be: " result1))) | "actual: " result2 "should be: " result1))) |
85 | ||
86 | (defun rev-assoc-list (x) | |
87 | (cond | |
88 | ((null x) nil) | |
89 | ((null (car x)) | |
90 | (cons nil (rev-assoc-list (cdr x)))) | |
91 | (t | |
92 | (acons (cdar x) (caar x) (rev-assoc-list (cdr x)))))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |