243 |
|
|
244 |
;;; NIL arguments |
;;; NIL arguments |
245 |
|
|
246 |
(deftest format.d.14 |
(def-format-test format.d.14 |
247 |
(format nil "~vD" nil 100) |
"~vD" (nil 100) "100") |
248 |
"100") |
|
249 |
|
(def-format-test format.d.15 |
250 |
(deftest format.d.15 |
"~6,vD" (nil 100) " 100") |
251 |
(format nil "~6,vD" nil 100) |
|
252 |
" 100") |
(def-format-test format.d.16 |
253 |
|
"~,,v:d" (nil 12345) "12,345") |
254 |
(deftest format.d.16 |
|
255 |
(format nil "~,,v:d" nil 12345) |
(def-format-test format.d.17 |
256 |
"12,345") |
"~,,'*,v:d" (nil 12345) "12*345") |
|
|
|
|
(deftest format.d.17 |
|
|
(format nil "~,,'*,v:d" nil 12345) |
|
|
"12*345") |
|
257 |
|
|
258 |
;;; When the argument is not an integer, print as if using ~A and base 10 |
;;; When the argument is not an integer, print as if using ~A and base 10 |
259 |
|
|
353 |
"+1234567890" |
"+1234567890" |
354 |
"+1234567890") |
"+1234567890") |
355 |
|
|
356 |
(deftest format.d.25 |
(def-format-test format.d.25 |
357 |
(format nil "~+10d" 1234) |
"~+10d" (1234) " 1234") |
358 |
" 1234") |
|
359 |
|
(def-format-test format.d.26 |
360 |
(deftest format.d.26 |
"~+10@d" (1234) " +1234") |
361 |
(format nil "~+10@d" 1234) |
|
362 |
" +1234") |
(def-format-test format.d.27 |
363 |
|
"~-1d" (1234) "1234") |
364 |
(deftest format.d.27 |
|
365 |
(format nil "~-1d" 1234) |
(def-format-test format.d.28 |
366 |
"1234") |
"~-1000000000000000000d" (1234) "1234") |
367 |
|
|
368 |
(deftest format.d.28 |
(def-format-test format.d.29 |
369 |
(format nil "~-1000000000000000000d" 1234) |
"~vd" ((1- most-negative-fixnum) 1234) "1234") |
|
"1234") |
|
|
|
|
|
(deftest format.d.29 |
|
|
(format nil "~vd" (1- most-negative-fixnum) 1234) |
|
|
"1234") |
|
370 |
|
|
371 |
;;; Randomized test |
;;; Randomized test |
372 |
|
|