Changed set-[vh]-pos to (setf [vh]pos).