Implementing caar, cadr, cdar and friends.

* lib.c (init): Call cadr_init.

* lisplib.c (dl_table, set_dlt_entries, dlt_register): Externalize.

* lisplib.h (dl_table, set_dlt_entries, dlt_register): Declared.

* Makefile (OBJS): Add cadr.o.

* cadr.c: New file.

* cadr.h: New file.

* gencadr.txr: New file.

* share/txr/stdlib/cadr.tl: New file.

* txr.1: Document cadr accessors.

1 files changed, 2 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 7ce96c50..eba06a71 100644
--- a/lib.c
+++ b/lib.c
@@ -60,6 +60,7 @@
 #include "parser.h"
 #include "syslog.h"
 #include "glob.h"
+#include "cadr.h"
 #include "txr.h"
 
 #define max(a, b) ((a) > (b) ? (a) : (b))
@@ -7450,6 +7451,7 @@ void init(const wchar_t *pn, mem_t *(*oom)(mem_t *, size_t),
 #if HAVE_GLOB
   glob_init();
 #endif
+  cadr_init();
 
   gc_state(gc_save);
 }