Permalink
Browse files

Fixed docstrings.

  • Loading branch information...
1 parent a438d62 commit 5edf9f00eb2dd97a6a92e75de3f71ccb745d3c9c @tpapp committed Nov 7, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/stack.lisp
View
@@ -3,6 +3,7 @@
(in-package #:array-operations)
(defun stack*0 (element-type arrays)
+ "Stack arrays along the 0 axis, returning an array with given ELEMENT-TYPE."
(let+ ((array-first (car arrays))
(dim-rest (cdr (array-dimensions array-first)))
(sum-first
@@ -23,9 +24,8 @@
cumulative-sum end))))))
(defun stack* (element-type axis array &rest arrays)
- "Stack array arguments along AXIS. ELEMENT-TYPE determined the element-type
+ "Stack array arguments along AXIS. ELEMENT-TYPE determines the element-type
of the result."
- (declare (optimize debug))
(if arrays
(let ((all-arrays (cons array arrays)))
(if (= axis 0)

0 comments on commit 5edf9f0

Please sign in to comment.