Microoptimize io-sbcl-strings.