Can you create interactive funtions in a a macro

[Kelly]

Hi, I am missing something here.

I am trying to write a macro to create interactive functions to
automate some stuff.

What I present below is a simlified case:

(defmacro deftext (functionname texttoinsert)
  `(defun ,(make-symbol (concatenate 'string "text-" functionname)) ()
     (interactive)
     (insert-string ,texttoinsert)))

(deftext "swallow" "What is the flight speed velocity of a laden
swallow?")
(deftext "ni" "We are the knights who say NI!")

the code is supposed to create two interactive functions (text-
swallow) and (text-ni)
that insert the string.

If I macroexpand the forms above and evaluate that, I get what I was
after.

Is there something I'm missing, or can you just not do this.

(it's fine to tell me that I would be better served doing it some
other way, but  I'm just trying to understand why this doesn't work)

TIA,
Kelly