10 |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
11 |
;;; setting of C*R accessors |
;;; setting of C*R accessors |
12 |
|
|
|
(defun create-c*r-test (n) |
|
|
(cond |
|
|
((<= n 0) 'none) |
|
|
(t |
|
|
(cons (create-c*r-test (1- n)) |
|
|
(create-c*r-test (1- n)))))) |
|
|
|
|
13 |
(loop |
(loop |
14 |
for fn in '(car cdr caar cadr cdar cddr |
for fn in '(car cdr caar cadr cdar cddr |
15 |
caaar caadr cadar caddr cdaar cdadr cddar cdddr |
caaar caadr cadar caddr cdaar cdadr cddar cdddr |
54 |
(eql (,fn x) 'a) |
(eql (,fn x) 'a) |
55 |
(nth ,(1- len) x))) |
(nth ,(1- len) x))) |
56 |
a))) |
a))) |
|
|
|
|
|
|
|
|
|