Number Guessing Game using Common Lisp

guess.lisp

(defun game ()
  (format t "GUESS THE NUMBER~%")
  (let ((number (1+ (random 100 (make-random-state t)))))
    (setq i 1)
    (loop (format t "~:R trial~%" i)
          (let ((guess (get-guess)))
            (if (= number guess) (return)
                (progn (if (> number guess)
                        (format t "Too Low~%")
                        (format t "Too High~%"))
                    (setq i (1+ i))
                  ))))
          (format t "Correct. You guessed in ~a attemptes~%" i)
          ))

(defun get-guess ()
  (format t "Enter your guess between 1 to 100 : ")
  (force-output)
  (let ((guess (parse-integer (read-line) :junk-allowed t)))
    (if (and (<= guess 100) (>= guess 0))
        guess (progn (format t "Invalid Guess~%") (get-guess)))))

(game)