read関数の引数がいけなかったらしい。 (defmacro debug-print (form) (with-gensyms (l v i) `(progn (format t "~&#?= ~S~%" ',form) (let ((,l (multiple-value-list ,form))) (loop for ,v in ,l and ,i = 0 then (1+ ,i) do (format t "~&#?~[-~:;+~] ~…