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

Diff of /gcl/ansi-tests/cons-test-03.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 15  Line 15 
15    (if    (if
16        (consp x)        (consp x)
17        (and (consp y)        (and (consp y)
18             (not (eq x y))             (not (eqt x y))
19             (eq (car x) (car y))             (eqt (car x) (car y))
20             (check-copy-list-copy (cdr x) (cdr y)))             (check-copy-list-copy (cdr x) (cdr y)))
21      (and (eq x y) t)))      (and (eqt x y) t)))
22    
23  (defun check-copy-list (x)  (defun check-copy-list (x)
24    "Apply copy-list, checking that it properly copies,    "Apply copy-list, checking that it properly copies,
# Line 102  Line 102 
102      (loop      (loop
103          for x in (list 'a 1 1.0 #\w (make-array '(10))          for x in (list 'a 1 1.0 #\w (make-array '(10))
104                         '(a b . c) (symbol-package 'cons))                         '(a b . c) (symbol-package 'cons))
105          count (not (eq (catch-type-error (list-length x))          count (not (eqt (catch-type-error (list-length x))
106                         'type-error)))                         'type-error)))
107    0)    0)
108    

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