/[gcl]/gcl/ansi-tests/cons-test-25.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-25.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sat Oct 5 17:48:31 2002 UTC revision 1.3 by pfdietz, Wed Nov 27 04:22:36 2002 UTC
# Line 10  Line 10 
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
# Line 61  Line 54 
54                 (eql (,fn x) 'a)                 (eql (,fn x) 'a)
55                 (nth ,(1- len) x)))                 (nth ,(1- len) x)))
56            a)))            a)))
   
             
       

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26