Add in-package directive.

* match.c (in_package_s): New symbol variable.
(syms_init): Initialize in_package_s.

* match.h (in_package_s): Declared.

* parser.y (check_parse_time_action): Add case for in-package.
Evaluate just with eval, as a case of the in-package macro.

* txr.1: Documented.

1 files changed, 4 insertions, 0 deletions

diff --git a/parser.y b/parser.y
index 6615a3e7..9f628227 100644
--- a/parser.y
+++ b/parser.y
@@ -1676,6 +1676,10 @@ static val check_parse_time_action(val spec_rev)
         eval_intrinsic(cons(progn_s, cdr(elem)), nil);
         return nil;
       }
+      if (sym == in_package_s) {
+        eval_intrinsic(elem, nil);
+        return nil;
+      }
     }
   }
   return spec_rev;