comparison bindings/sb-alien/interface.lisp @ 647:7e7ba87b5466

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

                (when (logbitp 0 (slot (slot qspec 'refine) 'flags))
                  (free-alien (slot (slot (slot qspec 'refine) 'include) 'keys)))
                (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))
     (setf (slot qdatum 'nvectors) (array-dimension (datum-data datum) 0))
     (setf (slot qdatum 'data) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-data datum))))