KMRCLを眺める(175) SHOW — #:g1

Posted 2010-07-09 15:13:00 GMT

今回は、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))))
となっています。
ざっと一覧を眺めるのに便利かもしれません。

comments powered by Disqus