summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--list-functions.lisp86
1 files changed, 80 insertions, 6 deletions
diff --git a/list-functions.lisp b/list-functions.lisp
index f379e19..4b4b7fe 100644
--- a/list-functions.lisp
+++ b/list-functions.lisp
@@ -4,24 +4,98 @@
(%defun first args
(car (car args)))
+
+;;;;-----------------------------------------------------------------
+;;;; THE CxR FUNCTIONS
+;;;;-----------------------------------------------------------------
+(%defun caaaar args
+ (car (caaar (first args))))
+
+(%defun caaadr args
+ (car (caadr (first args))))
+
+(%defun caaar args
+ (car (caar (first args))))
+
+(%defun caadar args
+ (car (cadar (first args))))
+
+(%defun caaddr args
+ (car (caddr (first args))))
+
+(%defun caadr args
+ (car (cadr (first args))))
+
(%defun caar args
- (car (cdr (first args))))
+ (car (car (first args))))
+
+(%defun cadaar args
+ (car (cdaar (first args))))
+
+(%defun cadadr args
+ (car (cdadr (first args))))
+
+(%defun cadar args
+ (car (cdar (first args))))
+
+(%defun caddar args
+ (car (cddar (first args))))
+
+(%defun cadddr args
+ (car (cdddr (first args))))
+
+(%defun caddr args
+ (car (cddr (first args))))
(%defun cadr args
(car (cdr (first args))))
+(%defun cdaaar args
+ (cdr (caaar (first args))))
+
+(%defun cdaadr args
+ (cdr (caadr (first args))))
+
+(%defun cdaar args
+ (cdr (caar (first args))))
+
+(%defun cdadar args
+ (cdr (cadar (first args))))
+
+(%defun cdaddr args
+ (cdr (caddr (first args))))
+
+(%defun cdadr args
+ (cdr (cadr (first args))))
+
(%defun cdar args
- (car (cdr (first args))))
+ (cdr (car (first args))))
-(%defun cddr args
- (cdr (cdr (first args))))
+(%defun cddaar args
+ (cdr (cdaar (first args))))
-(%defun caddr args
- (car (cddr (first args))))
+(%defun cddadr args
+ (cdr (cdadr (first args))))
+
+(%defun cddar args
+ (cdr (cdar (first args))))
+
+(%defun cdddar args
+ (cdr (cddar (first args))))
+
+(%defun cddddr args
+ (cdr (cdddr (first args))))
(%defun cdddr args
(cdr (cddr (first args))))
+(%defun cddr args
+ (cdr (cdr (first args))))
+
+
+;;;;-----------------------------------------------------------------
+;;;; SECOND ... TENTH
+;;;;-----------------------------------------------------------------
(%defun second args
(cadr (car args)))