Mercurial > hg > audiodb

changeset 674:fb85aadab85d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixup result-key use in sb-alien/tests
author mas01cr
date Fri, 05 Mar 2010 16:01:02 +0000
parents e1f7cab30701
children c62041316a44
files bindings/sb-alien/tests.lisp
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/bindings/sb-alien/tests.lisp	Fri Mar 05 16:00:58 2010 +0000
+++ b/bindings/sb-alien/tests.lisp	Fri Mar 05 16:01:02 2010 +0000
@@ -17,7 +17,7 @@
        (flet ((%present (list)
                 (find-if (lambda (r)
                            (and
-                            (string= (first list) (result-key r))
+                            (string= (first list) (result-ikey r))
                             (< (abs (- (second list) (result-distance r))) 1e-4)
                             (= (third list) (result-qpos r))
                             (= (fourth list) (result-ipos r))))