Another option would be:
Code: Select all
(loop for (elt1 . rest) on THE-LIST do
(loop for elt2 in rest do
(test-the-items elt1 elt2)))
Code: Select all
(loop for (elt1 . rest) on THE-LIST do
(loop for elt2 in rest do
(test-the-items elt1 elt2)))