Simulation of ultracold atoms in optical lattices
git clone https://miroslavurbanek.com/git/tebdol.git
Log | Files | Refs | README

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.

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))))