memqを文字列に対して走査するには?

文字列とそうでないオブジェクトを含むリストに memq を走査させてみた．

gosh> (memq 'iriya '("iriya" "asaba" "suizenzi" iriya akiho))
=> (iriya akiho)

うーん…実は

=> ("iriya" "asaba" "suizenzi" iriya akiho)

という風になって欲しかった．

以下のようにすれば大丈夫だった．

gosh> (member "iriya" '("iriya" "asaba" "suizenzi" iriya akiho))
=> ("iriya" "asaba" "suizenzi" iriya akiho)