[lisplab-cvs] r140 - trunk/src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sat Mar 20 11:33:48 2010
New Revision: 140

Log:
fix

Modified:
   trunk/src/matrix/permutation.lisp

Modified: trunk/src/matrix/permutation.lisp
==============================================================================
--- trunk/src/matrix/permutation.lisp	(original)
+++ trunk/src/matrix/permutation.lisp	Sat Mar 20 11:33:48 2010
@@ -1,4 +1,4 @@
-;;; Level2-permutations.lisp 
+;;; Permutation.lisp 
 ;;; Permutation of matrix indices. 
 
 ;;; Copyright (C) 2009 Joern Inge Vestgaarden
@@ -21,7 +21,7 @@
 
 (deftype type-permutation ()  
   ;; This should be the same as the max size of arrays
-  '(MOD 536870911)) 
+  'type-blas-idx)
 
 (deftype type-permutation-vector ()
   '(simple-array type-permutation (*)))