わだばLisperになる

KMRCLを眺める(211) FIXME

Common Lisp, KMRCL | 20:33 |

今回は、KMRCLのconsole.lispからFIXMEです。

FIXMEやXXXはコメントの中でお馴染ですが、そのFIXMEを(ログに)出力するもののようです。

定義はこれまでの、CMSG等と同じ感じで

(defun fixme (template &rest args)
  "Format output to console"
  (setq template (concatenate 'string "~&;; ** FIXME ** " template "~%"))
  (apply #'format t template args)
  (values))

となっています。

動作は

(kl:fixme "now")
;→ ;; ** FIXME ** now

といったところ。

なんでもCLで書いてるとこういうのも必要になってくるんでしょうね。

■

ツイートする