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

Diff of /gcl/ansi-tests/cons-test-20.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 231  Line 231 
231                                      :test #'(lambda (a b)                                      :test #'(lambda (a b)
232                                                      (<= (abs (- a b)) 1)))))                                                      (<= (abs (- a b)) 1)))))
233        (and        (and
234         (not (eq result 'failed))         (not (eqt result 'failed))
235         (sort         (sort
236          (sublis          (sublis
237           '((2 . 1) (5 . 4) (11 . 10) (45 . 44) (102 . 101))           '((2 . 1) (5 . 4) (11 . 10) (45 . 44) (102 . 101))
# Line 251  Line 251 
251            (setf y (* y y))))            (setf y (* y y))))
252      (not (not      (not (not
253            (or            (or
254             (eq x y)  ;; if bignums are eq, the test is worthless             (eqt x y)  ;; if bignums are eq, the test is worthless
255             (eql (length             (eql (length
256                   (union-with-check                   (union-with-check
257                    (list x) (list x)))                    (list x) (list x)))

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