Mercurial > hg > audiodb

comparison bindings/sb-alien/interface.lisp @ 635:641daceae79c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix cut-and-pasteo in sb-adb:insert Use the right data array, not some other random one.
author mas01cr
date Tue, 29 Sep 2009 16:23:40 +0000
parents 633614461994
children 9cda689dcc20
comparison
equal deleted inserted replaced
634:37fc7411e1ef 635:641daceae79c
93 (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-data datum)))) 93 (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-data datum))))
94 (if (datum-times datum) 94 (if (datum-times datum)
95 (setf (slot d 'times) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-times datum)))) 95 (setf (slot d 'times) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-times datum))))
96 (setf (slot d 'times) nil)) 96 (setf (slot d 'times) nil))
97 (if (datum-power datum) 97 (if (datum-power datum)
98 (setf (slot d 'power) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-times datum)))) 98 (setf (slot d 'power) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-power datum))))
99 (setf (slot d 'power) nil)) 99 (setf (slot d 'power) nil))
100 (sb-int:with-float-traps-masked (:invalid) 100 (sb-int:with-float-traps-masked (:invalid)
101 (%insert-datum (slot-value db 'alien) (addr d))))))) 101 (%insert-datum (slot-value db 'alien) (addr d)))))))
102 102
103 (defgeneric retrieve (key db)) 103 (defgeneric retrieve (key db))