반복문과 인터럽트 질문입니다. 도움 부탁드립니다.

안녕하세요. lisp 초보자 입니다.
도면에 특정 layer가 있는데, layer 지정이 제데로 되있나 쉽게 볼려고 합니다.
cad express 에서 layer ON OFF tool 을쓰면 되는데 도면장수가 너무 많아 최소한 손을 줄일려고,
허접하나마 간단하게 만들었습니다.
엔터를 치면 빨간색, 또 엔터를 치면 하얀색 이렇게 반복해야 합니다.
고수님 손좀 봐주시면 고맙겠습니다. (while 문을 변수없이 사용할려니 잘안되네요)
혹, 다른 좋은 방법있으면 조언 부탁드립니다.

(defun c:cm()
(setq ss (ssget “X” ‘((8 . “cutt”))))
(1)
  (command “chprop” ss “” “c” “1” “”)
(2) 엔터키 입력을 기다립니다.
  (command “chprop” ss “” “c” “7” “”)
(3) (1)에서 (3)까지 반복을 합니다. “Esc”키로 명령을 종료합니다.
)