comparison bindings/sb-alien/tests.lisp @ 674:fb85aadab85d

Fixup result-key use in sb-alien/tests

     `(let* ((,results (query ,query ,db ,@query-args ,@default-args))
             (length (length ,results)))
        (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))))
                          ,results)))
          (declare (ignorable #'%present))