[求助]：请熟悉common lisp的朋友帮帮忙~~~~

dolaimi

我刚刚开始学common lisp，被几个题目搞的晕头转向的，请熟悉common lisp 的朋友帮我解答一下，感激不尽~~~~
真的很着急，请懂得的朋友帮帮忙~~~~~~再次谢谢~~~~~~~

1
定义函数要求有一下输出

（r-compress '(1 1 1 1 2 2 4 3 3 3 3 a a a))
---((4 1) (2 2) 4 (4 3) (3 a))
(r-compress 'a)----a
(r-compress ())---()
(r-uncompress '((2 3) a b (4 c)))
  --(3 3 a b c c c c)

2
定义一个递归函数，要求对于输入的任意长度的数列，要输出元素的所有可能组合。

如：（all-sequences '(a b c))---
     ((a b c) (a c b) (b a c) (b c a) (c a b) (c b a))
    (all -sequences 'a)-----a

3
运用map和/或lambda函数，定义函数，要求有以下输出：
（interleave '(1 2 3) '(a b c d))---(1 a 2 b 3 c d)
(interleave 'a '(1 2 3))---(a 1 2 3)
(interleave '(1 2 3 4 5) '(a b c))--(1 a 2 b 3 c 4 5)

第三题我的代码是：

(defun interleave (l1 l2)
(cond ((atom l1) (append (list l1) l2))
      ((atom l2) (append l1 (list l2)))
      (t (append (mapcar #'first (list l1 l2)) (interleave (rest l1) (rest l2))))))

但是输入（interleave '(a b c) '(1 2 3 4))得到的结果是（A 1 B 2 C 3 NIL 4）

这样才能把这个nil去了啊？？？