Re: [NonGNU ELPA] New package: latex-table-wizard

[Philip Kaludercic <philipk@posteo.net>]

Philip Kaludercic <philipk@posteo.net> writes:

> +;; Why not use `memq'?
>  (defmacro latex-table-wizard--or (symbol &rest values)
>    "Return non-nil if SYMBOL is `eq' to one of VALUES."
>    (let ((bools (mapcar (lambda (value) `(eq ,symbol ,value))

To argue out this point, compare:

(disassemble (byte-compile '(or (eq foo 'a) (eq foo 'b) (eq foo 'c))))

--8<---------------cut here---------------start------------->8---
byte code:
  args: nil
0	varref	  foo
1	constant  a
2	eq	  
3	goto-if-not-nil-else-pop 1
6	varref	  foo
7	constant  b
8	eq	  
9	goto-if-not-nil-else-pop 1
12	varref	  foo
13	constant  c
14	eq	  
15:1	return	  
--8<---------------cut here---------------end--------------->8---

and:

(disassemble (byte-compile '(memq foo '(a b c))))

--8<---------------cut here---------------start------------->8---
byte code:
  args: nil
0	varref	  foo
1	constant  (a b c)
2	memq	  
3	return	  
--8<---------------cut here---------------end--------------->8---