[Matlisp-commit] [matlisp-git]matlisp branch tensor updated. 2012-02-23-208-gbff6892

[Akshay S. <ak...@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  bff689247f6e345a4ff7505a2973d70a3e30acea (commit)
      from  d5850b327492c870f2fba052f997dd9cea2a488f (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 bff689247f6e345a4ff7505a2973d70a3e30acea
Author: Akshay Srinivasan <aks...@gm...>
Date:   Sun Feb 3 21:56:26 2013 -0800

    Moved method definitions out of the eval-when macro inside define-tensor.

diff --git a/src/base/standard-tensor.lisp b/src/base/standard-tensor.lisp
index 4e8e80a..815164d 100644
--- a/src/base/standard-tensor.lisp
+++ b/src/base/standard-tensor.lisp
@@ -352,7 +352,7 @@
   ;;Error checking
   (assert (and f+ f- finv+ fid+ f* f/ finv* fid* f= store-allocator coercer coercer-unforgiving matrix vector reader value-writer value-incfer reader-writer swapper))
   ;;
-  `(eval-when (:compile-toplevel :load-toplevel :execute)
+  `(progn
      ;;Class definitions
      (defclass ,tensor-class (standard-tensor)
        ((store :type ,store-type))
@@ -379,34 +379,35 @@
        (let-typed ((sto-x (store tensor) :type ,(linear-array-type store-element-type)))
 	 (,value-writer (,coercer-unforgiving value) sto-x lidx)))
      ;;
-     (let ((hst (list
-		 :tensor ',tensor-class
-		 :matrix ',matrix
-		 :vector ',vector
-		 :element-type ',element-type
-		 :f+ ',f+
-		 :f- ',f-
-		 :finv+ ',finv+
-		 :fid+ ',fid+
-		 :f* ',f*
-		 :f/ ',f/
-		 :finv* ',finv*
-		 :fid* ',fid*
-		 :f= ',f=
-		 :fconj ',fconj
-		 :reader ',reader
-		 :value-writer ',value-writer
-		 :value-incfer ',value-incfer
-		 :reader-writer ',reader-writer
-		 :swapper ',swapper
-		 :store-allocator ',store-allocator
-		 :coercer ',coercer
-		 :coercer-unforgiving ',coercer-unforgiving
-		 :store-type ',store-element-type)))
-       (setf (get-tensor-class-optimization ',tensor-class) hst
-	     (get-tensor-class-optimization ',matrix) ',tensor-class
-	     (get-tensor-class-optimization ',vector) ',tensor-class)
-       (setf (symbol-plist ',tensor-class) hst))))
+     (eval-when (:compile-toplevel :load-toplevel :execute)
+       (let ((hst (list
+		   :tensor ',tensor-class
+		   :matrix ',matrix
+		   :vector ',vector
+		   :element-type ',element-type
+		   :f+ ',f+
+		   :f- ',f-
+		   :finv+ ',finv+
+		   :fid+ ',fid+
+		   :f* ',f*
+		   :f/ ',f/
+		   :finv* ',finv*
+		   :fid* ',fid*
+		   :f= ',f=
+		   :fconj ',fconj
+		   :reader ',reader
+		   :value-writer ',value-writer
+		   :value-incfer ',value-incfer
+		   :reader-writer ',reader-writer
+		   :swapper ',swapper
+		   :store-allocator ',store-allocator
+		   :coercer ',coercer
+		   :coercer-unforgiving ',coercer-unforgiving
+		   :store-type ',store-element-type)))
+	 (setf (get-tensor-class-optimization ',tensor-class) hst
+	       (get-tensor-class-optimization ',matrix) ',tensor-class
+	       (get-tensor-class-optimization ',vector) ',tensor-class)
+	 (setf (symbol-plist ',tensor-class) hst)))))
 
 ;;
 (defun tensor-typep (tensor subscripts)

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

Summary of changes:
 src/base/standard-tensor.lisp |   59 +++++++++++++++++++++--------------------
 1 files changed, 30 insertions(+), 29 deletions(-)


hooks/post-receive
-- 
matlisp