Lisp 수정 좀 부탁합니다…^^

다름이 아니라
여기에 올려논 관로lisp를 받았습니다
여기서는 하나씩밖에 안되네요
제가 원하는 것은 하나씩이 아니라
pline처럼 연속해서 선을 그리고 마지막에 맨홀이
나오는것은 원합니다…^^
제가 lisp 초보자라 바뀌지를 못하겠네요…^^
부탁드립니다…^^