Browse files

Fixed dimension specification in recycle.

Now accepts all forms that are accepted by ensure-dimensions.
  • Loading branch information...
1 parent 4cdab27 commit 41ec2b47048ff3e3ed0af0358e2c3e3d939955d5 @tpapp committed Oct 12, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/transformations.lisp
@@ -183,8 +183,8 @@ OBJECT) and inner (repeating each element of OBJECT). When both INNER and
OUTER are nil, the OBJECT is returned as is. Non-array objects are intepreted
as rank 0 arrays, following the usual semantics."
(if (or inner outer)
- (let ((inner (ensure-list inner))
- (outer (ensure-list outer)))
+ (let ((inner (ensure-dimensions inner))
+ (outer (ensure-dimensions outer)))
(if (arrayp object)
(let ((dimensions (array-dimensions object)))
(aprog1 (make-array (append outer dimensions inner)

0 comments on commit 41ec2b4

Please sign in to comment.