Re: `*print-escape*', part II

[xur]

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