59 |
for e on x |
for e on x |
60 |
and f on y |
and f on y |
61 |
and g in z do |
and g in z do |
62 |
(when (or (not (eq g e)) |
(when (or (not (eqt g e)) |
63 |
(not (eql (car e) (car f))) |
(not (eql (car e) (car f))) |
64 |
(car e) |
(car e) |
65 |
(eq e f)) |
(eqt e f)) |
66 |
(return nil)) |
(return nil)) |
67 |
finally (return t)))) |
finally (return t)))) |
68 |
|
|
117 |
(block nil |
(block nil |
118 |
(let* ((x (make-sequence 'vector 10 :initial-element 'a)) |
(let* ((x (make-sequence 'vector 10 :initial-element 'a)) |
119 |
(y (subseq x 4 8))) |
(y (subseq x 4 8))) |
120 |
(unless (every #'(lambda (e) (eq e 'a)) x) |
(unless (every #'(lambda (e) (eqt e 'a)) x) |
121 |
(return 1)) |
(return 1)) |
122 |
(unless (every #'(lambda (e) (eq e 'a)) y) |
(unless (every #'(lambda (e) (eqt e 'a)) y) |
123 |
(return 2)) |
(return 2)) |
124 |
(unless (eql (length x) 10) (return 3)) |
(unless (eql (length x) 10) (return 3)) |
125 |
(unless (eql (length y) 4) (return 4)) |
(unless (eql (length y) 4) (return 4)) |
126 |
(loop for i from 0 to 9 do (setf (aref x i) 'b)) |
(loop for i from 0 to 9 do (setf (aref x i) 'b)) |
127 |
(unless (every #'(lambda (e) (eq e 'a)) y) |
(unless (every #'(lambda (e) (eqt e 'a)) y) |
128 |
(return 5)) |
(return 5)) |
129 |
(loop for i from 0 to 3 do (setf (aref y i) 'c)) |
(loop for i from 0 to 3 do (setf (aref y i) 'c)) |
130 |
(or |
(or |
131 |
(not (not (every #'(lambda (e) (eq e 'b)) x))) |
(not (not (every #'(lambda (e) (eqt e 'b)) x))) |
132 |
6)))) |
6)))) |
133 |
|
|
134 |
(deftest subseq-vector-1 |
(deftest subseq-vector-1 |
135 |
(subseq-vector-1-body) |
(subseq-vector-1-body) |
136 |
t) |
t) |
137 |
|
|
138 |
(defun subseq-vector-2-body () |
(defun subseq-vector-2-body () |
139 |
(block nil |
(block nil |