Generating permutations in Lisp withous map functions

Question

I want to generate in Lisp the list of all permutations of a set. This is what I tried:

(defun ins(e n l)
    (cond
        ((equal n 1) (cons e l))
        (