Bug in new defun& macro.

[Scott Fahlman at CMU-10A (C380SF50)]

Try doing the following:

(defun& foo (a b &optional (c 'c) (d 'd) &rest r)
(print `(start ,a and ,b and ,c and ,d and ,r)))

(foo 1 2 3 4 5 6 7 8)

I get (START 1 and 2 and 3 and 4 and (4 5 6 7 8)) which
is not right.  The rest argument is picking up the list
from 4 on instead of 5 on.  Other cases seem to work better.

Bugs aside, the new stuff is really nice.
-- Scott Fahlman