[lisplab-cvs] r38 - src/linalg

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Fri May 22 15:06:11 2009
New Revision: 38

Log:
Bugfix

Modified:
   src/linalg/level3-linalg-generic.lisp

Modified: src/linalg/level3-linalg-generic.lisp
==============================================================================
--- src/linalg/level3-linalg-generic.lisp	(original)
+++ src/linalg/level3-linalg-generic.lisp	Fri May 22 15:06:11 2009
@@ -143,7 +143,7 @@
 	(setf (mref Pmat i (vref p i) ) 1))
       (list L U Pmat))))
 
-(defun L-solve! ((L matrix-base) (x matrix-base) w/diag)
+(defun L-solve! (L x w/diag)
   ;; Solve Lx=b
   (setf (vref x 0) (./ (vref x 0) 
 		       (if w/diag (mref L 0 0) 1)))
@@ -156,7 +156,7 @@
 		   (if w/diag (mref L i i) 1)))))
   x)
 
-(defun U-solve! ((U matrix-base) (x matrix-base) w/diag)
+(defun U-solve! (U x w/diag)
   (let* ((N (size x))
 	 (N-1 (1- N)))
     (setf (vref x N-1) (./ (vref x N-1) 
@@ -169,7 +169,7 @@
 				(if w/diag (mref U i i) 1)))))
       x))
 
-(defun LU-solve! ((LU matrix-base) (x matrix-base))
+(defun LU-solve! (LU x)
   (L-solve! LU x nil)
   (U-solve! LU x t)
   x)