I solve my problem. I hope in *right* way...
(defmacro smthing (x)
(let ((s (read-from-string (concatenate 'string "print-" x))))
`(defun ,s NIL (print ,x))))
... still, I don't know how to force INTERN to intern `foo', not `|FOO|'
(yes, this is CMUCL-specyfic question -- I can intern `foo' in clisp:
(progn (setq *print-escape* NIL) (intern "foo")) ==> foo).
regards, szymon.
