Replaced set-[hv]pos by (setf [hv]pos).