再帰を使ってリストから全てのペアの組み合わせを探します
(a b c d) => (a b)(a c)(a d)......(c d)
さっぱりわかりません。どなたか模範解答をください

一応努力の結果を

(defun my-pair (l &optional z)
. . (if (equalp l z)
. . . . .nil
. . . . .(progn (if (atom z)
. . . . . . . . . . . . (setq z l)
. . . . . . . . . . . . .nil)
. . . . . . . . . . (setq z (append (cdr z)(cons (car z) nil)))
. . . . . . . . . . (print (mapcar #'cons l z))
. . . . . . . . . . (my-pair l z))))