[lisplab-cvs] r40 - src/matrix

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sat May 23 07:39:44 2009
New Revision: 40

Log:
bugfix

Modified:
   src/matrix/level2-generic.lisp

Modified: src/matrix/level2-generic.lisp
==============================================================================
--- src/matrix/level2-generic.lisp	(original)
+++ src/matrix/level2-generic.lisp	Sat May 23 07:39:44 2009
@@ -76,14 +76,14 @@
 (defmethod .some (pred (a matrix-base) &rest args)
   (dotimes (i (size a))
     (when (apply pred (mapcar (lambda (x) (vref x i)) (cons a args))) 
-      (return-from .some t))
-    nil))
+      (return-from .some t)))
+  nil)
 
 (defmethod .every (pred (a matrix-base) &rest args)
   (dotimes (i (size a))
-    (unless (apply pred (mapcar (lambda (x) (vref x i)) (cons a args))) 
-      (return-from .every nil))
-    t))
+    (unless (apply pred (mapcar (lambda (x) (vref x i)) (cons a args)))
+      (return-from .every nil)))
+  t)
       
 (defmethod mmap (type f (a matrix-base) &rest args)  
   (let ((b (make-matrix-instance type (dim a) 0)))