Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Fixed docstrings.

  • Loading branch information...
commit 5edf9f00eb2dd97a6a92e75de3f71ccb745d3c9c 1 parent a438d62
tpapp authored November 07, 2012

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. 4  src/stack.lisp
4  src/stack.lisp
@@ -3,6 +3,7 @@
3 3
 (in-package #:array-operations)
4 4
 
5 5
 (defun stack*0 (element-type arrays)
  6
+  "Stack arrays along the 0 axis, returning an array with given ELEMENT-TYPE."
6 7
   (let+ ((array-first (car arrays))
7 8
          (dim-rest (cdr (array-dimensions array-first)))
8 9
          (sum-first
@@ -23,9 +24,8 @@
23 24
                        cumulative-sum end))))))
24 25
 
25 26
 (defun stack* (element-type axis array &rest arrays)
26  
-  "Stack array arguments along AXIS.  ELEMENT-TYPE determined the element-type
  27
+  "Stack array arguments along AXIS.  ELEMENT-TYPE determines the element-type
27 28
 of the result."
28  
-  (declare (optimize debug))
29 29
   (if arrays
30 30
       (let ((all-arrays (cons array arrays)))
31 31
         (if (= axis 0)

0 notes on commit 5edf9f0

Please sign in to comment.
Something went wrong with that request. Please try again.