[Matlisp-commit] [matlisp-git]matlisp branch tensor updated. 2012-02-23-210-gb8b3f1f

[Raymond T. <rt...@us...>]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "matlisp".

The branch, tensor has been updated
       via  b8b3f1fdeb9425c9e36e096428fc04e044f720f6 (commit)
      from  8c2e30aafd1d5481e28d62cbf5382687fe0b4fe7 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit b8b3f1fdeb9425c9e36e096428fc04e044f720f6
Author: Raymond Toy <toy...@gm...>
Date:   Mon Feb 4 19:50:01 2013 -0800

    Get rid of bad style warnings for ecase by converting them to case.

diff --git a/src/ffi/f77-ffi.lisp b/src/ffi/f77-ffi.lisp
index 31031c2..3fad009 100644
--- a/src/ffi/f77-ffi.lisp
+++ b/src/ffi/f77-ffi.lisp
@@ -48,7 +48,7 @@
        `(:pointer ,(%f77.cffi-type :single-float)))
       ((eq type :complex-double-float)
        `(:pointer ,(%f77.cffi-type :double-float)))
-      (t (ecase type
+      (t (case type
 	   (:void :void)
 	   (:integer :int32)
 	   (:character :char)
diff --git a/src/level-1/realimag.lisp b/src/level-1/realimag.lisp
index db9566a..c09d67a 100644
--- a/src/level-1/realimag.lisp
+++ b/src/level-1/realimag.lisp
@@ -43,7 +43,10 @@
 "
   (etypecase tensor
     (real-tensor tensor)
-    (complex-tensor (make-instance (ecase (rank tensor) (2 'real-matrix) (1 'real-vector) (t 'real-tensor))
+    (complex-tensor (make-instance (case (rank tensor)
+				     (2 'real-matrix)
+				     (1 'real-vector)
+				     (t 'real-tensor))
 				   :parent-tensor tensor :store (store tensor) :store-size (length (store tensor))
 				   :dimensions (dimensions tensor)
 				   :strides (map 'index-store-vector #'(lambda (x) (* 2 x)) (strides tensor))
@@ -65,7 +68,10 @@
 "
   (etypecase tensor
     (real-tensor tensor)
-    (complex-tensor (make-instance (ecase (rank tensor) (2 'real-matrix) (1 'real-vector) (t 'real-tensor))
+    (complex-tensor (make-instance (case (rank tensor)
+				     (2 'real-matrix)
+				     (1 'real-vector)
+				     (t 'real-tensor))
 				   :parent-tensor tensor :store (store tensor) :store-size  (length (store tensor))
 				   :dimensions (dimensions tensor)
 				   :strides (map 'index-store-vector #'(lambda (x) (* 2 x)) (strides tensor))

-----------------------------------------------------------------------

Summary of changes:
 src/ffi/f77-ffi.lisp      |    2 +-
 src/level-1/realimag.lisp |   10 ++++++++--
 2 files changed, 9 insertions(+), 3 deletions(-)


hooks/post-receive
-- 
matlisp