# HG changeset patch
# User mas01cr
# Date 1267804862 0
# Node ID fb85aadab85d8a8497a1087a72f4cdb5a147161a
# Parent  e1f7cab30701cf3ab85107c44c2027ad81c9004d
Fixup result-key use in sb-alien/tests

diff -r e1f7cab30701 -r fb85aadab85d bindings/sb-alien/tests.lisp
--- 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))))