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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:37 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 60  Line 60 
60      (setf *mapc-6-var* nil)      (setf *mapc-6-var* nil)
61      (let ((result (mapc 'mapc-6-fun x)))      (let ((result (mapc 'mapc-6-fun x)))
62        (and (check-scaffold-copy x xcopy)        (and (check-scaffold-copy x xcopy)
63             (eq result x)             (eqt result x)
64             *mapc-6-var*)))             *mapc-6-var*)))
65    (h g f e d c b a))    (h g f e d c b a))
66    
# Line 161  Line 161 
161         (loop         (loop
162           for e1 on x           for e1 on x
163           and e2 on result           and e2 on result
164              count (or (eq e1 e2) (not (eql (car e1) (car e2)))))))              count (or (eqt e1 e2) (not (eql (car e1) (car e2)))))))
165    0)    0)
166    
167  (deftest mapcan-4  (deftest mapcan-4
# Line 246  Line 246 
246                    x)))                    x)))
247        (and        (and
248         (check-scaffold-copy x xcopy)         (check-scaffold-copy x xcopy)
249         (eq result x)         (eqt result x)
250         a))         a))
251     ((c) (b c) (a b c)))     ((c) (b c) (a b c)))
252    
# Line 263  Line 263 
263                                 a)))                                 a)))
264                   x y)))                   x y)))
265        (and        (and
266         (eq result x)         (eqt result x)
267         (check-scaffold-copy x xcopy)         (check-scaffold-copy x xcopy)
268         (check-scaffold-copy y ycopy)         (check-scaffold-copy y ycopy)
269         a))         a))
# Line 283  Line 283 
283                                 a)))                                 a)))
284                   x y)))                   x y)))
285        (and        (and
286         (eq result x)         (eqt result x)
287         (check-scaffold-copy x xcopy)         (check-scaffold-copy x xcopy)
288         (check-scaffold-copy y ycopy)         (check-scaffold-copy y ycopy)
289         a))         a))
# Line 303  Line 303 
303                                 a)))                                 a)))
304                   x y)))                   x y)))
305        (and        (and
306         (eq result x)         (eqt result x)
307         (check-scaffold-copy x xcopy)         (check-scaffold-copy x xcopy)
308         (check-scaffold-copy y ycopy)         (check-scaffold-copy y ycopy)
309         a))         a))

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

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