error in routine

I have a lisp routine that allows me to trime line outside a bounding box which now gives me an error

too many arguments

this is the basic cookie cutter routine.......can anyone tell me how to fix it

 

look at each function call and find the one that has too many arguments.
if it's a long routine, place some princ statements to see where you are
when it bombs.
or use vl-bt to get a printout of what function was just called

fix it