Ensure routes vector is still adjustable and has a fill-pointer

The CL Spec makes no guarantee that delete-if will preserve vector
attributes such as fill-pointer and adjustable and in fact LispWorks
6.0.1 was not in this case.