(aig-orc1-lists x y) is identical to aig-implies-lists.
Macro: aig-orc1-lists
(defmacro aig-orc1-lists (x y) (cons 'aig-implies-lists (cons x (cons y 'nil))))