Add tags

Add tags to the following comment
変数の定義でもシンボルはインターンされるので fboundp を。ついでに大文字小文字を区別する別回答。 funcall は関数を探しにいきますので symbol-function は不要ですがなんとなく。
1
2
3
4
(defun call-test (pakcage)
  (do-symbols (symbol pakcage)
    (when (and (fboundp symbol) (ppcre:scan "^test_" (symbol-name symbol)))
      (format t "~A => ~A~%" symbol (funcall (symbol-function symbol))))))

Add tags

The input will be splited to tags with space.

Index

Feed

Other

Link

Pathtraq

loading...