[lisplab-cvs] r113 - src/core src/matrix src/test

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sat Nov 14 15:28:44 2009
New Revision: 113

Log:
Many bugfixes

Modified:
   lisplab.asd
   src/core/level0-default.lisp
   src/matrix/level2-matrix-dge.lisp
   src/matrix/level2-matrix-zge.lisp
   src/test/test-methods.lisp

Modified: lisplab.asd
==============================================================================
--- lisplab.asd	(original)
+++ lisplab.asd	Sat Nov 14 15:28:44 2009
@@ -81,7 +81,7 @@
       (:file "level1-dgt")
       (:file "level1-funmat")
       (:file "level1-sparse")
-      ; (:file "level1-array") 
+      (:file "level1-array") 
 
       ;; Level2, non-spezialized
       (:file "level2-interface")

Modified: src/core/level0-default.lisp
==============================================================================
--- src/core/level0-default.lisp	(original)
+++ src/core/level0-default.lisp	Sat Nov 14 15:28:44 2009
@@ -54,7 +54,7 @@
 (defmethod function-output-type-spec ((fun (eql '.besh1)) (input-spec (eql :d)))
   :z)
 
-(defmethod function-output-type-spec ((fun (eql '.besh1)) (input-spec (eql :d)))
+(defmethod function-output-type-spec ((fun (eql '.besh2)) (input-spec (eql :d)))
   :z)
 
 

Modified: src/matrix/level2-matrix-dge.lisp
==============================================================================
--- src/matrix/level2-matrix-dge.lisp	(original)
+++ src/matrix/level2-matrix-dge.lisp	Sat Nov 14 15:28:44 2009
@@ -28,8 +28,7 @@
 (defmethod copy ((matrix matrix-base-dge))
   (make-instance (class-name (class-of matrix))
 		 :store (copy-seq (the type-blas-store (matrix-store matrix)))
-		 :rows (rows matrix)
-		 :cols (cols matrix)))
+		 :dim (dim matrix)))
 
 (defmethod copy-contents ((a matrix-base-dge) (b matrix-base-dge) &optional (converter nil))
   (let ((store-a (matrix-store a))

Modified: src/matrix/level2-matrix-zge.lisp
==============================================================================
--- src/matrix/level2-matrix-zge.lisp	(original)
+++ src/matrix/level2-matrix-zge.lisp	Sat Nov 14 15:28:44 2009
@@ -28,8 +28,7 @@
 (defmethod copy  ((matrix matrix-base-zge))
   (make-instance (class-name (class-of matrix))
 		 :store (copy-seq (the type-blas-store (matrix-store matrix)))
-		 :rows (rows matrix)
-		 :cols (cols matrix)))
+		 :dim (dim matrix)))
 
 (defmethod copy-contents ((a matrix-base-zge) (b matrix-base-zge) 
 			  &optional (converter nil))

Modified: src/test/test-methods.lisp
==============================================================================
--- src/test/test-methods.lisp	(original)
+++ src/test/test-methods.lisp	Sat Nov 14 15:28:44 2009
@@ -37,7 +37,7 @@
 	    .sinh .cosh .tanh  
 	    .asinh .acosh .atanh  
 	    .exp .sqr .sqrt .conj 
-	    .realpart .imagpart .abs 
+	    .re .im .abs 
 	    .erf .erfc
 	    .gamma ))
     (mapc (lambda (x) (simple-non-nil-check '.besj (list 1 x))) args)