(Alan Ruttenberg) c.f. <https://mailman.common-lisp.net/pipermail/armedbear-devel/2017-April/003810.html>, <https://mailman.common-lisp.net/pipermail/armedbear-devel/attachments/20170407/166cf85a/attachment.obj>