RosettaCodeData/Task/User-input-Graphical/Common-Lisp/user-input-graphical-2.lisp

(do ((number 0) (okp t))
    ((or (not okp) (= 75000 number)))
  (multiple-value-setq (number okp)
      (capi:prompt-for-integer "Enter an integer:")))