244 |
|
|
245 |
;;; NIL arguments |
;;; NIL arguments |
246 |
|
|
247 |
(deftest format.b.14 |
(def-format-test format.b.14 |
248 |
(format nil "~vb" nil #b110100) |
"~vb" (nil #b110100) "110100") |
249 |
"110100") |
|
250 |
|
(def-format-test format.b.15 |
251 |
(deftest format.b.15 |
"~6,vB" (nil #b100) " 100") |
252 |
(format nil "~6,vB" nil #b100) |
|
253 |
" 100") |
(def-format-test format.b.16 |
254 |
|
"~,,v:b" (nil #b10011) "10,011") |
255 |
(deftest format.b.16 |
|
256 |
(format nil "~,,v:b" nil #b10011) |
(def-format-test format.b.17 |
257 |
"10,011") |
"~,,'*,v:B" (nil #b10110) "10*110") |
|
|
|
|
(deftest format.b.17 |
|
|
(format nil "~,,'*,v:B" nil #b10110) |
|
|
"10*110") |
|
258 |
|
|
259 |
;;; 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 |
260 |
|
|
354 |
"+1100100010" |
"+1100100010" |
355 |
"+1100100010") |
"+1100100010") |
356 |
|
|
357 |
(deftest format.b.25 |
(def-format-test format.b.25 |
358 |
(format nil "~+10b" #b1101) |
"~+10b" (#b1101) " 1101") |
359 |
" 1101") |
|
360 |
|
(def-format-test format.b.26 |
361 |
(deftest format.b.26 |
"~+10@B" (#b1101) " +1101") |
362 |
(format nil "~+10@B" #b1101) |
|
363 |
" +1101") |
(def-format-test format.b.27 |
364 |
|
"~-1b" (#b1101) "1101") |
365 |
(deftest format.b.27 |
|
366 |
(format nil "~-1b" #b1101) |
(def-format-test format.b.28 |
367 |
"1101") |
"~-1000000000000000000B" (#b1101) "1101") |
368 |
|
|
369 |
(deftest format.b.28 |
(def-format-test format.b.29 |
370 |
(format nil "~-1000000000000000000B" #b1101) |
"~vb" ((1- most-negative-fixnum) #b1101) "1101") |
|
"1101") |
|
|
|
|
|
(deftest format.b.29 |
|
|
(format nil "~vb" (1- most-negative-fixnum) #b1101) |
|
|
"1101") |
|
371 |
|
|
372 |
;;; Randomized test |
;;; Randomized test |
373 |
|
|