240 |
(1234567890 10) |
(1234567890 10) |
241 |
(123 3)) |
(123 3)) |
242 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
243 |
|
(deftest parse-integer.31 |
244 |
|
(parse-integer "1234" :start 1) |
245 |
|
234 4) |
246 |
|
|
247 |
|
(deftest parse-integer.32 |
248 |
|
(parse-integer "1234" :start 1 :end nil) |
249 |
|
234 4) |
250 |
|
|
251 |
|
(deftest parse-integer.33 |
252 |
|
(let* ((s (make-array 5 :initial-contents "a123b" :element-type 'base-char)) |
253 |
|
(s2 (make-array 3 :displaced-to s :displaced-index-offset 1 |
254 |
|
:element-type 'base-char)) |
255 |
|
(s3 (make-array 2 :displaced-to s2 :displaced-index-offset 1 |
256 |
|
:element-type 'base-char))) |
257 |
|
(values |
258 |
|
s3 |
259 |
|
(length s3) |
260 |
|
(equalpt "23" s3) |
261 |
|
(multiple-value-list (parse-integer s2)))) |
262 |
|
"23" 2 t (23 2)) |
263 |
|
|
264 |
|
(deftest parse-integer.34 |
265 |
|
(parse-integer "1234" :end 3) |
266 |
|
123 3) |
267 |
|
|
268 |
|
(deftest parse-integer.35 |
269 |
|
(parse-integer "1234" :end 3 :end 1) |
270 |
|
123 3) |
271 |
|
|
272 |
|
(deftest parse-integer.36 |
273 |
|
(parse-integer "1234" :end nil :end 3) |
274 |
|
1234 4) |
275 |
|
|
276 |
|
;;; Order of evaluation tests |
277 |
|
|
278 |
|
(deftest parse-integer.order.1 |
279 |
|
(let ((i 0) a b c d e) |
280 |
|
(values |
281 |
|
(multiple-value-list |
282 |
|
(parse-integer (progn (setf a (incf i)) "10001") |
283 |
|
:radix (progn (setf b (incf i)) 2) |
284 |
|
:start (progn (setf c (incf i)) 0) |
285 |
|
:end (progn (setf d (incf i)) 5) |
286 |
|
:junk-allowed (progn (setf e (incf i)) nil))) |
287 |
|
i a b c d e)) |
288 |
|
(17 5) 5 1 2 3 4 5) |