How to break out of an infinite loop in emacs lisp ? (environment: emacs)

Question

I tried using ctrl-c then :a

But It doesn't work here.

My code is like:

(defun game-repl()
    (loop (print (eval (read)))))

then I run

(game-repl())
look()

Answer 1

(require 'cl)
(loop (setq x (read))
      (if (eq x 'exit)
        (return)
        (print (eval x))))

Answer 2

Emacs modes often send an interruption signal to the inferior program only when you hit Ctrl-C twice in a row (i.e., the key sequence you are looking for is C-c C-c). In particular, this is true for SLIME.

This is because C-c is a prefix key that is usually combined with other keys to access a whole bunch of mode-specific features.