Mercurial > hg > audiodb

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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.
author mas01cr
date Fri, 05 Mar 2010 16:00:53 +0000
parents 368c8c72e723
children e1f7cab30701
line wrap: on
line diff
--- a/bindings/sb-alien/library.lisp	Fri Mar 05 16:00:49 2010 +0000
+++ b/bindings/sb-alien/library.lisp	Fri Mar 05 16:00:53 2010 +0000
@@ -115,10 +115,11 @@
 
 (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