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-07-10

KMRCLを眺める(175) SHOW

| 00:13 | KMRCLを眺める(175) SHOW - わだばLisperになる を含むブックマーク はてなブックマーク - KMRCLを眺める(175) SHOW - わだばLisperになる

今回は、KMRCLのsymbols.lispからSHOWです。

前回、前々回のSHOW-VARIABLES、SHOW-FUNCTIONSを纒めたものです。

動作は、

(KL:SHOW :FUNCTIONS :G000001)
;->
Function GITHUB-INSTALL  -> #<FUNCTION GITHUB-INSTALL>
Function AUTO-IMPORT  -> #<FUNCTION AUTO-IMPORT>
Function QUIT  -> #<FUNCTION QUIT>
Function FACT-CPS-LIST  -> #<FUNCTION FACT-CPS-LIST>
Function INSTALL  -> #<FUNCTION INSTALL>
Function OOS  -> #<FUNCTION OOS>
Function CURRY  -> #<FUNCTION CURRY>
Function FACT-CPS  -> #<FUNCTION FACT-CPS>
Function FLATTEN-CPS  -> #<FUNCTION FLATTEN-CPS>
;⇒ NIL

というところ。定義は、

(defun show (&optional (what :variables) (package *package*))
  (ecase what
    (:variables (show-variables package))
    (:functions (show-functions package))))

となっています。

ざっと一覧を眺めるのに便利かもしれません。