Mercurial > hg > audiodb
changeset 635:641daceae79c
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 | 37fc7411e1ef |
| children | 9cda689dcc20 |
| files | bindings/sb-alien/interface.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/bindings/sb-alien/interface.lisp Tue Sep 29 16:23:39 2009 +0000 +++ b/bindings/sb-alien/interface.lisp Tue Sep 29 16:23:40 2009 +0000 @@ -95,7 +95,7 @@ (setf (slot d 'times) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-times datum)))) (setf (slot d 'times) nil)) (if (datum-power datum) - (setf (slot d 'power) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-times datum)))) + (setf (slot d 'power) (sb-sys:vector-sap (sb-ext:array-storage-vector (datum-power datum)))) (setf (slot d 'power) nil)) (sb-int:with-float-traps-masked (:invalid) (%insert-datum (slot-value db 'alien) (addr d)))))))