fixed to work on SBCL.