tebdol

commit 93185eb0dc2356dce5638a94a564361cca852158
parent 0de51d6170e4379061104c85481decb7219f7f97
Author: Miroslav Urbanek <mu@miroslavurbanek.com>
Date:   Wed, 28 Jun 2017 15:30:32 +0200

Remove unused code

Clean up tiny bits of useless code.

Diffstat:
tebdol/array.lisp
 | 
2
+-
tebdol/tensor.lisp
 | 
7
++-----

2 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/tebdol/array.lisp b/tebdol/array.lisp
@@ -82,7 +82,7 @@
 		    (l (loop for i below rx unless (member i ix) collect (nth i d))))
 	       (values d k l)))
 	   (alien (a)
-	     `(sap-alien (sb-sys:vector-sap (array-storage-vector ,a)) (* double)))
+	     `(sap-alien (vector-sap (array-storage-vector ,a)) (* double)))
 	   (contract (pa pb)
 	     (let (transa transb lda ldb)
 	       (if (eql pa :left)
diff --git a/tebdol/tensor.lisp b/tebdol/tensor.lisp
@@ -316,17 +316,14 @@
        for k being the hash-keys in hi
        using (hash-value v)
        do (let ((l (sort v #'list-< :key #'(lambda (n) (apply #'append (joint-numbers n)))))
-		(hf (make-hash-table :test #'equal))
-		(d 0))
+		(hf (make-hash-table :test #'equal)))
 	    (loop
 	       with s = 0
 	       for i in (if (eq type :reverse) (reverse l) l)
 	       do
 		 (setf (joint-subscript i) s)
 		 (setf (gethash (joint-numbers i) hf) i)
-		 (incf s (joint-dimension i))
-	       finally
-		 (setf d s))
+		 (incf s (joint-dimension i)))
 	    (setf (gethash k hi) hf))
        finally (return hi))))