ugly, but it's working...

[xur]

(defmacro smthing (x)
    `(defun ,(with-input-from-string
        (s (concatenate 'string "print-" x)) (read s nil)) NIL
                                                     (print "foo")))

---------------

any better ideas, please?

regards, szymon.