テストを移植しながら調べているとここが無限ループとは言わないまでも やたらと時間がかかっていることを発見しました なおインデントは自分で直しています（以下同文 >> (defs? (tdefs) '((defun double (x) (add x x)) (defun len (xs) (if (atom xs) '0 …