[討論]想用ESC當防呆觸動開關

最近在寫多迴圈程式，但是操作中途只要手順的按到ESC的話，一切過程，設定的參數都要重來，
參考張老師的做法時，突然想到，如果設定ESC為觸動開關，回到上一步的話，不就可以防止中斷，
於是研究了一下，發現可以，但是只能執行一次，第二次還是會失敗
而且第二次會出現警示，中文的意思大概是：ESC的設定跑掉，把原先設定置頂...

想請問前輩們是不是我那邊沒有設定好呢？
還是說，有沒有方法讓ESC中斷暫時失效呢？

以下是簡易的測試程式：

(defun c:g5()
   (setq olderr *error* *error* useerr)
   (*push-error-using-command*)
   (setq ust 10)
   (while (< ust 13)
   (initget " F C _F C ")
   (setq utast
 (getkword "\nF(畫直徑10的圓)/C(畫直徑20的圓)< 取消返回 >"))    
   (cond
  ((= utast "F") (setq ust 11))
  ((= utast "C") (setq ust 12))
  ((= utast nil) (setq ust 13))
)
   (cond
     ((= ust 11)
      (command "circle" pause 5)
      )
     
     ((= ust 12)      
      (command "circle" pause 10)
      )
      )
     (setq *error* olderr)
    )          
    )
   
;;;======================================================

(defun useerr(key / )
 (*pop-error-mode*)
 (setq *error* olderr)
 (c:g5)
(princ)
)

try this,but not use esc.

and can not set ((= utast nil) (setq ust 13)).

https://mega.nz/file/K1AUzBTL#y98_4_h5RVHGcc3DVnpNjdndezR9E0E2jjP6tYa-n8c
https://mega.nz/file/S4BjAaSY#_5qJLnDYNexAxRntOQcqqjqwkhJf2rRN4JrLeNEmdJY

this lisp can set (= utast nil)

https://mega.nz/file/PxQ0VKiY#FDpm1UChwnZp27VTFKMbg-bj_s05izdRiE665rkDUdU

thanks.