opip, oand: rewrite in Lisp.

* eval.c (opip_s, oand_s, chain_s, chand_s): Variables
removed.
(me_opip): Function removed.
(eval_init): Initializations of removed variables removed.
chain and chand symbols interned at point of function
registration.

* lisplib.c (op_set_entries): Add autoload entries for opip
and oand.

* share/txr/stdlib/op.tl (sys:opip-expand): New function.
(opip, oand): New macros.

* protsym.c: Regenerated.

1 files changed, 1 insertions, 0 deletions

diff --git a/lisplib.c b/lisplib.c
index 0e1b72bf..86f03ccb 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -720,6 +720,7 @@ static val op_set_entries(val dlt, val fun)
   val name[] = {
     lit("op"), lit("do"), lit("lop"), lit("ap"), lit("ip"),
     lit("ado"), lit("ido"), lit("ret"), lit("aret"),
+    lit("opip"), lit("oand"),
     nil
   };
   set_dlt_entries(dlt, name, fun);