#xyzzy interactive で循環参照してるリストを要素として持つリストを使うと M-x で死ぬ

gistfile1.lisp

(defun interactive-test (x)
  (interactive (list '#1=(a . #1#)))
  (let ((*print-circle* t))
    (msgbox "~S" x)))
=> interactive-test

(interactive-test '#1=(a . #1#))
;; msgbox で
;;     #1=(a . #1#)
;; と表示される
=> :ok

(apply 'interactive-test (list '#1=(a. #1#)))
=> :ok

(call-interactively 'interactive-test)
=> :ok

;; M-x interactive-test
;; .....戻ってこない

define-key して実行、も問題無いようだ。