Added a (not) to the while so that it doesn't give any strange numbers (e.g 0) to the gl:get-uniform-location function.