I developed this code as one of my first LISP routines. When I was a Civil drafter I needed to shorten the method of the break command. I needed to bisect a line that intersects with another line, so I developed this routine that modified the process of the break command.