New variant of op: lop.

* lisplib.c (op_set_entries): Add lop to auto-load list.

* share/txr/stdlib/op.tl (sys:op-expand): Recognize lop
and implement its transformation.
(lop) New macro.

* txr.1: Documented.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisplib.c b/lisplib.c
index 8379abf9..1782e671 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -563,7 +563,7 @@ static val doloop_instantiate(val set_fun)
 static val op_set_entries(val dlt, val fun)
 {
   val name[] = {
-    lit("op"), lit("do"),
+    lit("op"), lit("do"), lit("lop"),
     nil
   };
   set_dlt_entries(dlt, name, fun);