(loop for code from (+) to (- char-code-limit (*))
      for c = (code-char code)
      if (and (standard-char-p c)
              (graphic-char-p c))
        do (set-macro-character c (lambda (_ c) (princ c))))

hello world