# HG changeset patch
# User mas01cr
# Date 1254241420 0
# Node ID 641daceae79cec895496777b0a3198901aa60247
# Parent  37fc7411e1ef6775c2eb82c30f3d0033ebcb30d9
Fix cut-and-pasteo in sb-adb:insert

Use the right data array, not some other random one.

diff -r 37fc7411e1ef -r 641daceae79c bindings/sb-alien/interface.lisp
--- 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)))))))