читал старые треды лора

(defparameter seq '("а" "з" "д" "и" "п"))

(defun permutations (x)
    (if (null x)
        '(nil)
        (mapcan (lambda (e) (mapcar (lambda (p) (cons e p)) (permutations (remove e x :count 1 :test 'eq)))) x)))

(dolist (x (permutations seq)) (format t "~S~%" x))