Arnot/variadic-not-equal.el

Last active August 14, 2017 11:46

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/Arnot/8a952dbc66d38bf726c5dfa3b0cbd02b.js"></script>
Save Arnot/8a952dbc66d38bf726c5dfa3b0cbd02b to your computer and use it in GitHub Desktop.

Download ZIP

Raw

variadic-not-equal.el

 (defmacro not-equal (&rest rest)
   (let ((form '())
         (prev (pop rest)))
     (while rest
       (dolist (cur rest)
         (push `(/= ,prev ,cur) form))
       (setf prev (pop rest)))
     `(or ,@form)))

Arnot commented Aug 14, 2017

Author

This is the same as (not (= ...)), so probably not worth the n! expansions..

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment