[lisplab-cvs] r125 - src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Tue Jan  5 05:19:23 2010
New Revision: 125

Log:
bugfix

Modified:
   src/matrix/level2-matrix-dge.lisp

Modified: src/matrix/level2-matrix-dge.lisp
==============================================================================
--- src/matrix/level2-matrix-dge.lisp	(original)
+++ src/matrix/level2-matrix-dge.lisp	Tue Jan  5 05:19:23 2010
@@ -29,7 +29,7 @@
   (let ((store (matrix-store matrix)))
     (declare (type type-blas-store store))
     (make-instance (class-name (class-of matrix))
-		   :store store
+		   :store (copy-seq store)
 		   :dim (dim matrix))))
 
 (defmethod copy-contents ((a matrix-base-dge) (b matrix-base-dge) &optional (converter nil))