Ported to SBCL.