Hatena::Groupcadr

わだばLisperになる このページをアンテナに追加 RSSフィード

2004 | 12 |
2005 | 01 | 02 | 07 | 10 | 11 |
2006 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2007 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2008 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2009 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2010 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 |
2011 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 11 |

2010-10-03

KMRCLを眺める(209) CMSG-ADD

| 00:02 | KMRCLを眺める(209) CMSG-ADD - わだばLisperになる を含むブックマーク はてなブックマーク - KMRCLを眺める(209) CMSG-ADD - わだばLisperになる

今回は、KMRCLのconsole.lispからCMSG-ADDです。

前回のCMSG-Cでは、*CONSOLE-MSGS-TYPES*にメッセージを出力する状況のタイプをリストで格納していましたが、そのリストを操作するための関数のようです。

*CONSOLE-MSGS-TYPES*を直接SETQやPUSHしたりはせず、インターフェイスを設けるということですね。

(defun cmsg-add (condition)
  (pushnew condition *console-msgs-types*))

動作は、

kl::*console-msgs-types*
;=> NIL

(kl:cmsg-add :debug)
;=> (:DEBUG)

というところ。

ゲスト



トラックバック - http://cadr.g.hatena.ne.jp/g000001/20101003