post you are run length encoding in lisp

critique mine pl0x:

(defun rle (str) ;run length encoding
(let ((i 0) c count out)
(while (< i (length str))
(if (eq c (elt str i))
(setq count (1+ count))
(when c
(setq out (append out (list (cons c count)))))
(setq c (elt str i))
(setq count 1))
(setq i (1+ i)))
(when c (setq out (append out (list (cons c count)))))
out))

>>50,54
SUM1 TAKE DA TEXT EDITOR OFF DIS STACK BOI RETOID ASA-FUCKIN-P, B4 HE WRITES MORE SHIT.

DID FUCKIN MOSKITO FIND HIS WAY ONTO DIS BORD OR SUMTHIN? ITS DA KIND OF SHIT ID EXPECT HIM 2 WRITE CONSIDERIN DEY'RE BOTH 2 RETOIDED 2 CHEK DA RETOIN VALUE OF malloc.