新千葉 ガーベージ・コレクション

FPGA マガジンやインターフェースで書けなかったこと等をちょぼちょぼ書いてます。@ryos36

貧弱なテスト環境

vim -l で lisp モードで立ち上がる。時々セーブする。別のウィンドウを立ち上げておいてセーブ後 clisp file.lisp 。これでプログラムに文法上の間違いがないことがわかる。
実行も同時にしたい。たいしたマクロじゃないけど

(defvar *debug-flag* nil)
(defmacro debug-trace (&body body)
        `(if (not (null *debug-flag*)) (progn
                                         ,@body)))

(defmacro do-test-case (&body body)
  `(let ((func #'(lambda () (progn
                              ,@body
                              ))))
     (debug-trace (funcall func))))