压缩与解压缩示例：游标编码（runlength encoding)

(defun compress (x)
       (if (consp x)
           (compr (car x) 1 (cdr x))
           x))

(defun compr (elt n lst)
       (if (null lst)
           (list (n-elts elt n))
           (let ((next (car lst)))
         (if (equal next elt)
             (compr next (+ n 1) (cdr lst))
             (cons (n-elts elt n)
               (compr next 1 (cdr lst)))))))

(defun n-elts (elt n)
       (if (> n 1)
           (list n elt)
           elt))

 ^压缩

(defun uncompress (lst)
       (if (null lst)
           nil 
           (let ((elt (car lst))
             (rest (uncompress (cdr lst))))
         (if (consp elt)
             (append (apply #' list-of elt)
                 rest)
             (cons elt rest)))))

(defun list-of (n elt)
       (if (zerop n)
           nil
           (cons elt (list-of (- n 1) elt))))

^解压缩

作者意见：这种写法不是一个有经验的Lisp程序员用的写法。它的效率很差，它没有尽可能的压缩，而且它只对由原子组成的列表有效。