どうせprintfデバッグしかしないんだから、

tapは便利かも – ボクノス

tapの方向性とはどんどんずれていきますが、common lispのマクロを使う方法の場合。

長いS式の値の場合、(p の閉じカッコ入力するのが面倒だと思ったので、デバッグ用にprintしたいS式の前に、#? を書くと直後のS式を評価した結果のprint文を挿入するマクロを書いてみました。*1

マクロ定義

(set-dispatch-macro-character #\# #\?
#'(lambda (stream char1 char2)
(let ((sexp (gensym)))
`(let ((,sexp ,(read stream t nil t)))
(print ,sexp)
,sexp))))

使用例

(defun rec (a &optional (acc 0))
(if (plusp a)
(rec (1- a) (+ a acc))
acc))
(format t "~&answer: ~d~%" (rec 10))

こんな関数のデバッグをしたかったら、rec関数のどこかで、確認したいS式の前に #?を付けると

(defun rec (a &optional (acc 0))
(if (plusp a)
(rec (1- a) #?(+ a acc))
acc))
(format t "~&answer: ~d~%" (rec 10))

実行結果

10
19
27
34
40
45
49
52
54
55
answer: 55

のように、print文が挿入された結果が表示されます。#?を前置するだけでいいのですこし簡単になりました。実際のデバッグ時に使うかどうかは微妙ですが。