[求助]：為何出現錯誤？

ljs026

請大大幫忙看看，為何出現這樣的錯誤訊息：損壞的引數類型: stringp nil

如果要將下列程序改為可複選，應如何修正？

(defun c:gt( / ent lname)
  (setvar "cmdecho" 0)  
  (setq counter 0)  
  (setq ent (entsel "\n選擇要關閉的圖層: "))
    (if ent
    (progn
      (setq e (ssname ss counter))     
      (setq ent (entget (car ent)))
      (setq lname (cdr (assoc 8 (entget e))))
    )
    (setq lname (getstring "\n未選取，請輸入圖層名: "))
  ) ;if ent
  (if (= (getvar "clayer") lname)
    (setvar "clayer" "0")
  )
  (command "layer" "off" lname "")
  (setq counter (+ counter 1))
     (prompt (strcat "\n\t保留..." "\"" l "層" "\""))
     (princ)
  )

aeo

(setq e (ssname ss counter))
ss --> nil