Author Topic: Compare 2 list  (Read 2346 times)

0 Members and 1 Guest are viewing this topic.

alanjt

  • Needs a day job
  • Posts: 5327
  • Standby for witty remark...
Re: Compare 2 list
« Reply #15 on: June 05, 2009, 06:04:34 PM »
now that i read all the posts, i see that mine is virtually the same as alan's, but i thought i'd post what i did anyway.

Code: [Select]
(defun process (#ListCompare #ListValues / #NewList)
  (mapcar
    '(lambda (x y)
       (and (not x)
            (setq #NewList (cons y #NewList))
       ) ;_ and
     ) ;_ lambda
    #ListCompare
    #ListValues
  ) ;_ mapcar
  (reverse #NewList)
) ;_ defun
Civil 3D 2019 ~ Windohz 7 64bit
Dropbox