Декартово произведение хочется получить определением

(defun decart (x y) (map-el #'(lambda (i) (map-el #'(lambda (j) (list i j)) y) ) x) )

Пример 7.10. Декартово произведение хочется получить определением вида:

Закрыть окно