(eval `(define ,fully-qualified-to ,fully-qualified-to))
should be
(eval `(define ,fully-qualified-to ,fully-qualified-from))
and
(eval `(define-macro (,fully-qualified-to . args) (append ',fully-qualified-to args)))
should be
(eval `(define-macro (,fully-qualified-to . args) (cons ',fully-qualified-from args)))
Christian.