Introducing symbol packages. Internal symbols are now in

a system package instead of being hacked with the $ prefix.
Keyword symbols are provided. In the matcher, evaluation
is tightened up. Keywords, nil and t are not bindeable, and
errors are thrown if attempts are made to bind them.
Destructuring in dest_bind is strict in the number of items.
String streams are exploited to print bindings to objects
that are not strings or characters. Numerous bugfixes.

1 files changed, 2 insertions, 1 deletions

diff --git a/regex.c b/regex.c
index 767958e8..19bbd785 100644
--- a/regex.c
+++ b/regex.c
@@ -1061,7 +1061,8 @@ val regex_compile(val regex_sexp)
 
 val regexp(val obj)
 {
-  return (obj->co.type == COBJ && obj->co.cls == regex) ? t : nil;
+  return (is_ptr(obj) && obj->co.type == COBJ && obj->co.cls == regex)
+         ? t : nil;
 }
 
 nfa_t *regex_nfa(val reg)