(DEFUN C:CHKQSAVE ()
  (WHILE (AND (FINDFILE "MYQSAVE.LSP")(NOT C:MYQSAVE))
    (LOAD "MYQSAVE.LSP")
  )
  (COND
    (C:MYQSAVE
      (COMMAND ".UNDEFINE" "QSAVE")
      (SETQ C:QSAVE C:MYQSAVE)
    )
  )
)
(SETQ C:QS C:QSAVE)
(PRINC)