Re: How to find a key in a property list?

[Kalle Olavi Niemitalo]

Hannu Koivisto <azure@iki.fi> writes:

> While I, as a quite pedantic person :), might also try to optimize
> such consing away, does it really matter for you?

Absolutely not.  :-)

> (defun has-property-p (sym property)
>   (loop for prop in (symbol-plist sym) by #'cddr
>         when (eq prop property)
>           return t))

Thanks!

BTW, how can I make TAB indent that return clause properly?