fixed bug of pivot serach in lin.lisp