common-lisp - SETF は終了せず、エラーも報告しません

Question

私は Common Lisp の初心者で、次のコードに出会いました。

(let ((foo (list 42)))
  (setf (rest foo) foo))

REPL を実行しようとすると、永遠にループしているように見えます。