Gives the permutations

permute.lisp

;; Work in progress
(defun all-permutations (list &optional (a (length list)))
"Will give you all the permutations of the list specified"
	;;(format t "The optional param is: ~d~%" a)
	(cond ((null list) nil)
		  ((null (cdr list)) (list list))
		  (t (loop for element in list
		  	   append (mapcar (lambda (x) (cons element x))
		  	   				  (all-permutations (remove element list) a))))))