memqはリストの中にあればリスト自体、 なければnilを返してくる関数です。 (memq 'a '(a b)) ;; => (a b) (memq 'a '(b v)) ;; => nil というわけで、window-systemと合わせて使うと リスト中に一致したものがある場合、条件を実行する式を書く事ができます…