- dimensions
- (if (eq element-type t)
- rest
- (do ((reversed-modified-rest nil))
- ((null rest) (nreverse reversed-modified-rest))
- (let ((first (pop rest))
- (second (pop rest)))
- (when (eq first :element-type)
- (setf second t))
- (push first reversed-modified-rest)
- (push second reversed-modified-rest))))))
+ dimensions
+ (if (eq element-type t)
+ rest
+ (do ((reversed-modified-rest nil))
+ ((null rest) (nreverse reversed-modified-rest))
+ (let ((first (pop rest))
+ (second (pop rest)))
+ (when (eq first :element-type)
+ (setf second t))
+ (push first reversed-modified-rest)
+ (push second reversed-modified-rest))))))