- ,(cond ((not simple)
- '*)
- ((constant-continuation-p dims)
- (let ((val (continuation-value dims)))
- (if (listp val) val (list val))))
+ ,(cond ((constant-continuation-p dims)
+ (let* ((val (continuation-value dims))
+ (cdims (if (listp val) val (list val))))
+ (if (or simple (/= (length cdims) 1))
+ cdims
+ '(*))))