сортирање LISP

(defun najmal (lista)
    (cond
        ((null (cdr lista)) (car lista))
        ((< (car lista)(cadr lista))(najmal (cons (car lista)(cddr lista))))
        ((> (car lista)(cadr lista))(najmal (cdr lista)))
        )
    )

(defun sortiraj (lista)
    (cond
    ((null lista) nil)
    (t (cons (najmal lista)(sortiraj (remove (najmal lista) lista))))
        )
    )



(print (sortiraj '(3 5 0 1 9)))
; 0 1 3 5 9