26 |
collect (list x s)) |
collect (list x s)) |
27 |
nil) |
nil) |
28 |
|
|
29 |
|
(deftest formatter.p.5 |
30 |
|
(let ((fn (formatter "~p"))) |
31 |
|
(loop for x in *universe* |
32 |
|
for s = (formatter-call-to-string fn x) |
33 |
|
unless (or (eql x 1) (string= s "s")) |
34 |
|
collect (list x s))) |
35 |
|
nil) |
36 |
|
|
37 |
;;; :p |
;;; :p |
38 |
|
|
39 |
(def-format-test format.p.6 |
(def-format-test format.p.6 |
82 |
unless (or (eql x 1) (string= s "ies")) |
unless (or (eql x 1) (string= s "ies")) |
83 |
collect (list x s)) |
collect (list x s)) |
84 |
nil) |
nil) |
85 |
|
|
86 |
|
(deftest formatter.p.18 |
87 |
|
(let ((fn (formatter "~@P"))) |
88 |
|
(loop for x in *universe* |
89 |
|
for s = (formatter-call-to-string fn x) |
90 |
|
unless (or (eql x 1) (string= s "ies")) |
91 |
|
collect (list x s))) |
92 |
|
nil) |