With reader macros, reading can be made arbitrarily complex:

  (read-from-string "#.(print :foo)")