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

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

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

revision 1.4 by pfdietz, Wed Oct 23 03:10:23 2002 UTC revision 1.5 by pfdietz, Wed Nov 27 04:22:36 2002 UTC
# Line 51  Line 51 
51  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
52  ;;; setting of C*R accessors  ;;; setting of C*R accessors
53    
 (defun create-c*r-test (n)  
   (cond  
    ((<= n 0) 'none)  
    (t  
     (cons (create-c*r-test (1- n))  
           (create-c*r-test (1- n))))))  
   
54  (loop  (loop
55      for fn in '(car cdr caar cadr cdar cddr      for fn in '(car cdr caar cadr cdar cddr
56                  caaar caadr cadar caddr cdaar cdadr cddar cdddr                  caaar caadr cadar caddr cdaar cdadr cddar cdddr
# Line 127  Line 120 
120  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
121  ;;; nth  ;;; nth
122    
 (defun nth-1-body (x)  
   (loop  
       for e in x  
        and i from 0  
        count (not (eqt e (nth i x)))))  
   
123  (deftest nth-1  (deftest nth-1
124      (nth-1-body (loop for i from 1 to 2000 collect (* 4 i)))      (nth-1-body (loop for i from 1 to 2000 collect (* 4 i)))
125    0)    0)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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