added simd-pack.lisp from sbcl trunk