&nbsp;&nbsp; (if (member* element (symbol-value list-var)<br>
<div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; :test (or compare-fn #&#39;equal))</blockquote><div>
<br>Since subr.el is dumped before cl.el, I wanted to make sure that if anything pre-CL did call add-to-list, it&#39;d at least work if they avoided the :test case. But nothing seems to, so I suppose this would be safe?<br>
</div><div>&nbsp;</div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
instead? &nbsp;Or for efficiency (does that ever matter here?)<br>
<br>
 &nbsp; &nbsp;;; member and memq are implemented in C<br>
 &nbsp; &nbsp;(if (cond ((eq compare-fn #&#39;eq) (memq element (symbol-value list-var)))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;((null compare-fn) (member element (symbol-value list-var)))<br>
 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;((member* element (symbol-value list-var) :test compare-fn)))<br>
<br>
Do we have any use cases for :test functions other than member?<br>
</blockquote><div>&nbsp;<br>Emacs also seems to offer a memql, but I&#39;m not sure how much use it is other than completism. <br></div></div><br>As for :test, it&#39;s also used in make-hash-table.<br>