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, |
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 |
|
|