[Matlisp-commit] [matlisp-git]matlisp branch tensor updated. 2012-02-23-220-g23ed3d8

[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  23ed3d8de617ebe9a31a9df73e0b5c379de1340e (commit)
      from  8d1294ce927280b8f2633b1e8636bd8aacfbf45d (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 23ed3d8de617ebe9a31a9df73e0b5c379de1340e
Author: Akshay Srinivasan <aks...@gm...>
Date:   Sun Mar 24 13:23:02 2013 -0700

    Made make-zeros-dims intialize classes without checking.

diff --git a/lib-src/gnuplot/gnuplot.lisp b/lib-src/gnuplot/gnuplot.lisp
index 4894a43..9bfaf56 100644
--- a/lib-src/gnuplot/gnuplot.lisp
+++ b/lib-src/gnuplot/gnuplot.lisp
@@ -25,11 +25,11 @@
 (defun gnuplot-send (str)
   (unless *current-gnuplot-process*
     (setf *current-gnuplot-process* (open-gnuplot-stream)))
-  (let (stream (#+:sbcl
-		sb-ext:process-input
+  (let ((stream (#+:sbcl
+		 sb-ext:process-input
 		 #+:ccl
 		 ccl:external-process-input-stream
-		 *current-gnuplot-process*))
+		 *current-gnuplot-process*)))
     (format stream "~a~%" str)
     (finish-output stream)))
 
diff --git a/src/level-1/tensor-maker.lisp b/src/level-1/tensor-maker.lisp
index 1620666..1ba6fc1 100644
--- a/src/level-1/tensor-maker.lisp
+++ b/src/level-1/tensor-maker.lisp
@@ -65,6 +65,7 @@
 (definline sub-tensor (tensor subscripts &optional (preserve-rank nil))
   (copy (sub-tensor~ tensor subscripts preserve-rank)))
 
+;;This seems unnecessary.
 (defmacro make-zeros-dims (func-name (tensor-class))
   (let ((opt (get-tensor-class-optimization-hashtable tensor-class)))
     (assert opt nil 'tensor-cannot-find-optimization :tensor-class tensor-class)
@@ -79,11 +80,12 @@
 	 (let*-typed ((dims (if (consp dims) (make-index-store dims) (copy-seq dims)) :type index-store-vector)
 		      (rnk (length dims) :type index-type)
 		      (size (very-quickly (lvec-foldl #'(lambda (a b) (declare (type index-type a b)) (the index-type (* a b))) dims))))
-		     (make-instance (case rnk (2 ',(getf opt :matrix)) (1 ',(getf opt :vector)) (t ',tensor-class))
-				   :dimensions dims :store (,(getf opt :store-allocator) size) :store-size size))))))
+		     (let ((*check-after-initializing?* nil))
+		       (make-instance (case rnk (2 ',(getf opt :matrix)) (1 ',(getf opt :vector)) (t ',tensor-class))
+				      :dimensions dims :store (,(getf opt :store-allocator) size) :store-size size)))))))
 
 (make-zeros-dims real-typed-zeros (real-tensor))
 (make-zeros-dims complex-typed-zeros (complex-tensor))
 
 #+maxima
-(make-zeros-dims symbolc-typed-tensor (symbolic-tensor))
+(make-zeros-dims symbolic-typed-zeros (symbolic-tensor))

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

Summary of changes:
 lib-src/gnuplot/gnuplot.lisp  |    6 +++---
 src/level-1/tensor-maker.lisp |    8 +++++---
 2 files changed, 8 insertions(+), 6 deletions(-)


hooks/post-receive
-- 
matlisp