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

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

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

revision 1.2 by camm, Wed Oct 9 19:05:01 2002 UTC revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 28  Line 28 
28           (zerop           (zerop
29            (loop            (loop
30                for a on x and b on result count                for a on x and b on result count
31                  (eq a b)))                  (eqt a b)))
32           result)))           result)))
33      (error (c) c))      (error (c) c))
34    (a b c d e f))    (a b c d e f))
# Line 99  Line 99 
99               (loop               (loop
100                   for c1 on x                   for c1 on x
101                   for c2 on result                   for c2 on result
102                   count (eq c1 c2)))))                   count (eqt c1 c2)))))
103    0)    0)
104                                
105    
# Line 141  Line 141 
141      (loop      (loop
142          for x in *universe*          for x in *universe*
143          count (and (not (listp x))          count (and (not (listp x))
144                     (not (eq 'type-error                     (not (eqt 'type-error
145                              (catch-type-error (ldiff x x)))))))                              (catch-type-error (ldiff x x)))))))
146    
147  (deftest ldiff-12  (deftest ldiff-12
# Line 216  Line 216 
216    (loop    (loop
217        for x in *universe*        for x in *universe*
218        count (and (not (listp x))        count (and (not (listp x))
219                   (eq 'type-error                   (eqt 'type-error
220                       (catch-type-error (tailp x x))))))                       (catch-type-error (tailp x x))))))
221    
222  (deftest tailp-7  (deftest tailp-7

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