리습 수정좀 부탁드립니다.. 계속 오류네요

안녕하세요
선택된 레이어를 키고 끄는 리습을 꼭 사용해야 되서 이렇게 질문을 올립니다..
레이어에 대한 리습은 많은데 제가 가지고있는 이 리습처럼
예를들어, 1,2,3,4,5,6,7,8,9 레어어 중에
3,4,5 레이어만 선택해서 보고싶다

이런 리습인데요
제가 토마토를 쓰는데 토마토에서 리습을 불러오면 이게 도통 들어먹질 않네요..
에러라고 뜨면서

; error : malformed list on input at [READ] : File <C:Documents and
Settings사원 OOO바탕 화면D로컬 디스크 (D)down리습 모음집YG1.lsp>

이렇게 뜨면서 리습이 듣질 않습니다..
아래 적어놓은 문장은 리습의 일부분이구요..
도대체 뭐가 잘못된건지좀 알려주실수 있으신분
숫자 1번 누르고 3,4,5 클릭 후 엔터치면 3,4,5 레이어만 켜지고
숫자 2번 을 누르면 모든 레이어가 켜지는 리습인데..
혹시 몰라서 제가 가지고있는 리습 파일을 올릴테니까
정말 귀찮고 고생스러운 일이지만 부탁좀 드리겠습니다 ㅜㅜ..
어디가 문제여서 도대체 이렇게 에러가 나는걸까요?

;
(defun c:1(/ ss n k en cly oly)
   (prompt “nCommand: select Preeze…”)
   (prompt “n켤 레이어만을 선택-> “)
   (setq ss (ssget))
   (setq n (sslength ss))
   (setq k 0)
   (setq cly (cdr (assoc 8 (entget (ssname ss (1- n))))))
   (command “layer” “s” cly “”)
   (command “layer” “off” “*” “” “”)
   (while (<= 1 n)
       (setq en (ssname ss k))
       (setq oly (cdr (assoc 8 (entget en))))
       (command “layer” “on” oly “”)
       (setq n (- n 1))
       (setq k (+ k 1))
    )
    (princ)
)

;;;전체 레이어 ON ;;;
(defun c:2 ()
  (command “-layer” “on” “*” “”)
  )
;;;선택한 객체 레이어만 OFF ;;;
(defun c:off (/ off_lay_object off_lay_name)
(setq off_lay_object (entget (car (entsel “Layer Off 할 객체 : “))))
  (setq off_lay_name (cdr (assoc 8 off_lay_object)))
  (command “-layer” “off” off_lay_name “”)
  )

;