Сортировка не реккурентной функцией

(defun sim-sort (lst)
  (let ((res nil))
    (loop 
       (when (null lst) (return res))
       (let* ((mi (apply 'min lst))
              (tmp (remove mi lst))
              (k  (- (length lst) (length tmp))))
             (dotimes (i k t) (setq res (append res (list mi))))
             (setq lst tmp)))))
             
 
 
==> sim-sort
 
(sim-sort '(1 2 3 11 -4 7 12 3 0))
 
==> (-4 0 1 2 3 3 7 11 12)

(defun some-sort (xs)
  (do (sorted)
      ((null xs) sorted)
    (setq max    (apply     'max xs))
    (setq xs     (remove-one max xs))
    (setq sorted (cons       max sorted))))
 
(defun remove-one (x xs)
  (do (before
       result
       (ys xs (cdr ys)))
      ((cond ((null ys)       (setq result xs) t)
             ((eq x (car ys)) (setq result (append (nreverse before) (cdr ys))) t))
       result)
    (setq before (cons (car ys) before))))
 
(some-sort '(1 2 3 11 -4 7 12 3 0))
; (-4 0 1 2 3 3 7 11 12)

(defun sort (lst) ; например сортирует
  lst)
 
(defun Fo ()
  (setq file (open (getfiled "ef" "D:\data" "txt" 0) "r"))
  (setq B nil)
  (while (setq F (read-line file))
    (setq B (cons (atof F) B)))
  (setq C nil)
  (while B
    (if (not (= (fix (car B)) (car B))) 
      (setq C (cons (car B) C)))
    (setq B (cdr B)))
  (sort C))

(defun foo (fn / *error* fd lst)
 
  (defun *error* (msg) (close fd))
 
  (if (and fn (findfile fn)) ; findfile тут вообще-то для красоты только
    (progn
      (setq lst '() ; самая бесполезная строчка =)
        fd  (open fn "r") ; открываем файл
      )
 
      (while (setq str (read-line fd)) ; читаем файл
    (if (/= str "") ; но не весь, а с условием
      (setq lst (cons (atof str) lst)) ; добавляем значение в список, все равно куда...
    )
      )
 
      (*error* nil) ; закрываем файл!!!
 
      (vl-sort lst '<) ; вот собственно и вся сортировка
 
    )
  )
)
 
 
(defun test ()
  (foo (getfiled "" "D:\data" "txt" 0))
)