eadmund/ironclad — comment on commit 9996a8cf95bc580978b7a8d766319bcae338ce9d
File:  line 0
By eadmund:

In SBCL 1.0.54, (format nil "~r-~a" 1 '#:byte) -> "one-BYTE", even with *print-case* set to :upcase. This patch uses READ-FROM-STRING to, hopefully, Do the Right Thing.