为什么加了个if会出错？（新手请教）

(defun c:DAOWST        ()
  (setq ent (entsel "请选择要删除的对象类型:"))
  (while (not ent)
    (princ "请选择对象")
    (setq ent (entsel))
  )
  (setq entpl (entget (car ent)))
  (setq dType (assoc 0 entpl))
  (setq cho (getstring "\n真的要删除？(y/n)\n"))
  (if (= (strcase cho T) "y")
    (
     (setq ss1 (ssget "X" (list dType)))
      (princ (strcat "\n找到" (rtos (sslength ss1)) "个对象\n"))
      (while (/= (sslength ss1) 0)
        (setq name (ssname ss1 0))
        (ssdel name ss1)
        (entdel name)
      )
      (princ "已全部删除")
    )
    (princ "操作取消")
  )
  (princ)
)
(prompt "\n功能：删除同类型的所有对象。\n")
(prompt "运行 'DAOWST' 开始\n")
(princ)