P08

(de compress (Lst)
   (mapcon
      '((L)
         (unless (= (car L) (cadr L))
            (cons (car L)) ) )
      Lst ) )

http://picolisp.com/wiki/?99p08

10jul10

abu