New function: coded-length.

* eval.c (eval_init): Register coded-length intrinsic.

* lib.c (coded_length): New function.

* lib.h (coded_length): Declared.

1 files changed, 1 insertions, 0 deletions

diff --git a/lib.h b/lib.h
index 76497d42..5be2c037 100644
--- a/lib.h
+++ b/lib.h
@@ -827,6 +827,7 @@ val string_extend(val str, val tail);
 val stringp(val str);
 val lazy_stringp(val str);
 val length_str(val str);
+val coded_length(val str);
 const wchar_t *c_str(val str);
 val search_str(val haystack, val needle, val start_num, val from_end);
 val search_str_tree(val haystack, val tree, val start_num, val from_end);