Removed tranpose.

tpapp · Feb 4, 2013 · e4259da · e4259da
1 parent 3b1dd55
commit e4259da
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 7 deletions.
diff --git a/src/package.lisp b/src/package.lisp
@@ -48,7 +48,6 @@
    #:invert-permutation
    #:identity-permutation?
    #:permute
-   #:transpose
    #:each*
    #:each
    #:margin*

diff --git a/src/transformations.lisp b/src/transformations.lisp
@@ -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)