(FLET ((%F ()
         (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 0) (SPACE 0) (COMPILATION-SPEED 0) (DEBUG 0)))
         (STRING #\A)))
  (EQ (%F) (%F)))