(defun SORT(a)
 (cond
  ((null a) nil)
  ( 1 (CONS (CAR a) (SORT (REMOVE-IF '(LAMBDA (x) (EQL x (CAR a))) a))) )
 )
)

(sort '(1 3 2 2 5 7 7 9))
(system)