Topic: How to cond and or.?

[MvdP]

I have this piece of code and it is working

Code: [Select]

(cond(
(and (= Allagen 1 )(= scale "1" ))
(progn
do stuff
)
))

but i want to add an OR in it but i can 't cant it work
This what i created

Code: [Select]

(cond(
(and (= Allagen 1 )(= scale "1" )
(or
(and (= Allagen 1 )(= scale "2" )))
(progn
do stuff
)
))
Is this possible...  if so what am i doing wrong.?

[CAB]

Code: [Select]

(cond
  ((and (= allagen 1)
        (or (= scale "1") (= scale "2"))
   )
   ;;  (progn  <--<< not needed with COND
   do stuff
  )
)
PS
Here is some more info for you.
http://www.theswamp.org/index.php?topic=13046.msg158557#msg158557

[Patrick_35]

Hi,
An another method

Code: [Select]

(cond
  ((and (= allagen 1)
        (member scale '("1" "2"))
   )
   do stuff
  )
)
@+

[MvdP]

Thank you both.I  try both options tomorrow.

[ElpanovEvgeniy]

Code: [Select]

(cond
  ((and (= allagen 1)
        (WCMATCH scale "1,2"))
   do stuff
  )
)

[CAB]

And another.

Code: [Select]

(cond
  ((and (= allagen 1)
        (vl-position scale '("1" "2"))
   )
   do stuff
  )
)And another.

Code: [Select]

(cond
  ((and (= allagen 1)
        (vl-string-search scale "1,2")
   )
   do stuff
  )
)
So many ways to skin the cat.

[ElpanovEvgeniy]

Code: [Select]

(cond
  ((VL-EVERY
     (function member)
     (list allagen scale)
     '((1) ("1" "2"))
   ) ;_  VL-EVERY
   do stuff
  )
)

[CAB]

Evgeniy
That's a neat one. 

[ElpanovEvgeniy]

Evgeniy
That's a neat one. 

Code: [Select]

(cond
  ((VL-EVERY
     (function WCMATCH)
     (list (itoa allagen) scale)
     '("1" "1,2")
   ) ;_  VL-EVERY
   do stuff
  )
)