view bindings/sb-alien/package.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.

(cl:defpackage "SB-ADB"
  (:use "CL" "SB-ALIEN")
  (:export
   ;; classes, constructors and accessors
   "ADB" "WITH-ADB"
   "DATUM" "MAKE-DATUM" "DATUM-KEY" "DATUM-DATA" "DATUM-TIMES" "DATUM-POWER"
   "RESULT" "RESULT-KEY" "RESULT-DISTANCE" "RESULT-QPOS" "RESULT-IPOS"
   "RESULTS"
   ;; functions
   "OPEN" "CLOSE" "INSERT" "RETRIEVE" "QUERY" "LISZT")
  (:shadow "OPEN" "CLOSE"))