# HG changeset patch
# User mas01cr
# Date 1255443990 0
# Node ID 7e7ba87b5466f79e238769b5fc043dfe587f502b
# Parent  368c8c72e7231a3da318c5e26a79356315054c86
Fix stack-zeroing bug in sb-alien query bindings

When doing a key query, we have to be absolutely sure that the datum.data
slot is NULL, otherwise Bad Things will happen.

Fixes audioDB Trac ticket #35

diff -r 368c8c72e723 -r 7e7ba87b5466 bindings/sb-alien/interface.lisp
--- a/bindings/sb-alien/interface.lisp	Tue Oct 13 14:26:28 2009 +0000
+++ b/bindings/sb-alien/interface.lisp	Tue Oct 13 14:26:30 2009 +0000
@@ -312,7 +312,8 @@
                (when (logbitp 1 (slot (slot qspec 'refine) 'flags))
                  (free-alien (slot (slot (slot qspec 'refine) 'exclude) 'keys)))
                (free-alien qspec)))))))
-  (def query string (setf (slot qdatum 'key) datum))
+  (def query string (setf (slot qdatum 'key) datum
+                          (slot qdatum 'data) nil))
   (def query datum 
     (setf (slot qdatum 'key) (datum-key datum))
     (setf (slot qdatum 'dim) (array-dimension (datum-data datum) 1))