;; We do this hackery to be able to emit the initial
;; (identity) perm. Initially PERM is just T -- not a vector.
- (setf perm (iota-vector (1+ n)))
+ (setf perm (iota-vector (1+ n)))
+ (%make-perm :spec perm))
(let ((next (next-perm perm n)))
;; If we are at the end, then set PERM to NIL.