Permalink
Browse files

Removed tranpose.

  • Loading branch information...
1 parent 3b1dd55 commit e4259da955a08b9d20e2bba9e80038ab8451025b @tpapp committed Feb 4, 2013
Showing with 0 additions and 7 deletions.
  1. +0 −1 src/package.lisp
  2. +0 −6 src/transformations.lisp
View
@@ -48,7 +48,6 @@
#:invert-permutation
#:identity-permutation?
#:permute
- #:transpose
#:each*
#:each
#:margin*
@@ -136,13 +136,7 @@ Array element type is preserved."
(setf (apply #'aref it (map-subscripts subscripts))
(row-major-aref array position))))))))
-(defgeneric transpose (array)
- (:documentation "Transpose array.")
- (:method ((array array))
- (permute '(1 0) array)))
-
-
;;; margin
(defun each* (element-type function array &rest other-arrays)

0 comments on commit e4259da

Please sign in to comment.