256 |
|
|
257 |
;;; NIL arguments |
;;; NIL arguments |
258 |
|
|
259 |
(deftest format.x.14 |
(def-format-test format.x.14 |
260 |
(format nil "~vx" nil #x100) |
"~vx" (nil #x100) "100") |
261 |
"100") |
|
262 |
|
(def-format-test format.x.15 |
263 |
(deftest format.x.15 |
"~6,vX" (nil #x100) " 100") |
264 |
(format nil "~6,vX" nil #x100) |
|
265 |
" 100") |
(def-format-test format.x.16 |
266 |
|
"~,,v:x" (nil #x12345) "12,345") |
267 |
(deftest format.x.16 |
|
268 |
(format nil "~,,v:x" nil #x12345) |
(def-format-test format.x.17 |
269 |
"12,345") |
"~,,'*,v:x" (nil #x12345) "12*345") |
|
|
|
|
(deftest format.x.17 |
|
|
(format nil "~,,'*,v:x" nil #x12345) |
|
|
"12*345") |
|
270 |
|
|
271 |
;;; 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 |
272 |
|
|
366 |
"+1234567890" |
"+1234567890" |
367 |
"+1234567890") |
"+1234567890") |
368 |
|
|
369 |
(deftest format.x.25 |
(def-format-test format.x.25 |
370 |
(format nil "~+10x" #x1234) |
"~+10x" (#x1234) " 1234") |
371 |
" 1234") |
|
372 |
|
(def-format-test format.x.26 |
373 |
(deftest format.x.26 |
"~+10@X" (#x1234) " +1234") |
374 |
(format nil "~+10@X" #x1234) |
|
375 |
" +1234") |
(def-format-test format.x.27 |
376 |
|
"~-1X" (#x1234) "1234") |
377 |
(deftest format.x.27 |
|
378 |
(format nil "~-1X" #x1234) |
(def-format-test format.x.28 |
379 |
"1234") |
"~-1000000000000000000x" (#x1234) "1234") |
380 |
|
|
381 |
(deftest format.x.28 |
(def-format-test format.x.29 |
382 |
(format nil "~-1000000000000000000x" #x1234) |
"~vx" ((1- most-negative-fixnum) #x1234) "1234") |
|
"1234") |
|
|
|
|
|
(deftest format.x.29 |
|
|
(format nil "~vx" (1- most-negative-fixnum) #x1234) |
|
|
"1234") |
|
383 |
|
|
384 |
;;; Randomized test |
;;; Randomized test |
385 |
|
|