comparison bindings/sb-alien/library.lisp @ 672:a35ca2d5f238

Extend results structure to include a key for the query.

Fill that key from the query datum, if given, defaulting to ""; patch up
bindings and tests.

This is so that (Instance x Instance) operations such as querying and
sampling can be supported.

     (params adb-query-parameters-t)
     (refine adb-query-refine-t)))
 
 (define-alien-type adb-result-t
   (struct adbresult
-    (key c-string)
-    (dist double)
+    (qkey c-string)
+    (ikey c-string)
     (qpos (unsigned 32))
-    (ipos (unsigned 32))))
+    (ipos (unsigned 32))
+    (dist double)))
 
 (define-alien-type adb-query-results-t
   (struct adbqueryresults
     (nresults (unsigned 32))
     (results (* adb-result-t))))