Make BINDING* accept declarations, kinda.

It's not perfect, but this works now:
  (BINDING* (((Q R) (FLOOR X Y))
             (S (+ R 3)))
    (DECLARE (TYPE MUMBLE S)) ...)