(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.