(defun Durchlauf (liste) ;Liste mind. 1-elementig
  (cond ((null (cdr liste))
           (setq sortierteListe (cons (car liste) sortierteListe)) nil)
        ((> (car liste)(cadr liste)) ;Vertauschung nötig
         (cons (cadr liste) (Durchlauf (cons (car liste)(cdr (cdr liste))))))
        (t (cons (car liste)(Durchlauf (cdr liste))))
  )
)

(defun Sort (liste)
  (cond ((null liste) nil)
        (t (Sort (Durchlauf liste)))))

(defun BubbleSort (liste)
  (setq sortierteListe nil)
  (Sort liste)
  sortierteListe)