Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

comment out broken outer-product.

  • Loading branch information...
commit 1e9b51e1012613d459be41e3ec176f48c282fb6d 1 parent 8dc65cf
@blindglobe authored
Showing with 6 additions and 5 deletions.
  1. +5 −4 src/matrix-operations.lisp
  2. +1 −1  src/package.lisp
View
9 src/matrix-operations.lisp
@@ -154,6 +154,8 @@
(defgeneric cross-product (mata matb))
+#|
+
(defgeneric outer-product (mata matb &optional op)
(:documentation "compute outer product of 2 arrays.")
(:method ((mata t) (matb t) &optional (op t))
@@ -165,19 +167,18 @@
&optional
(op t))
- (let ((resultdims (list (xdims 1 mata)
+ (let* ((resultdims (list (xdims 1 mata)
(xdims 2 mata)
(xdims 1 matb)
(xdims 2 matb)))
- (mresult (make-array resultdims)))
-#|
+ (mresult (make-array resultdims)))
(loop
over i j k l in resultdims
(setf (xref mresult i j k l)
(funcall op
(xref mata i j) (xref matb j k))))
-|#
mresult)))
+|#
View
2  src/package.lisp
@@ -138,7 +138,7 @@
matrix-like-symmetric-p
- cross-product outer-product
+ cross-product ;; outer-product
;; data transforms
list->vector-like vector-like->list
Please sign in to comment.
Something went wrong with that request. Please try again.