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, 6 insertions, 0 deletions

diff --git a/lisplib.h b/lisplib.h
index e947296e..1e5ce485 100644
--- a/lisplib.h
+++ b/lisplib.h
@@ -24,5 +24,11 @@
  * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  */
 
+extern val dl_table;
+
 void lisplib_init(void);
 val lisplib_try_load(val sym);
+void set_dlt_entries(val dlt, val *name, val fun);
+val dlt_register(val dlt,
+                 val (*instantiate)(val),
+                 val (*set_entries)(val, val));