Garganの日記： my-list-matched-object
日記 by
Gargan
書いたはいいが、使い道が…。
(defmacro my-list-matched-object (fn &optional array)
`(let* ((array (or ,array obarray))
(count (length array))
func result)
(while (> count 0)
(setq count (1- count))
(if (,fn (aref array count))
(push (aref array count) result)))
result))
(my-list-matched-object
(lambda (x) (and (fboundp x) (subrp (symbol-function x)))))
(defmacro my-list-matched-object (fn &optional array)
`(let* ((array (or ,array obarray))
(count (length array))
func result)
(while (> count 0)
(setq count (1- count))
(if (,fn (aref array count))
(push (aref array count) result)))
result))
(my-list-matched-object
(lambda (x) (and (fboundp x) (subrp (symbol-function x)))))