/[gcl]/gcl/ansi-tests/cons-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))))))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26