Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Mon Jul 4 13:16:49 2005 UTC | revision 1.5 by pfdietz, Sun Sep 11 19:02:37 2005 UTC | |
---|---|---|
# | Line 438 | Line 438 |
438 | ||
439 | (deftest format.d.21 | (deftest format.d.21 |
440 | (loop for x in *mini-universe* | (loop for x in *mini-universe* |
441 | for s1 = (format nil "~@:d" x) | for s1 = (format nil "~A" x) |
442 | for s2 = (format nil "~A" x) | for s2 = (format nil "~@:d" x) |
443 | unless (or (integerp x) (string= s1 s2)) | for s3 = (format nil "~A" x) |
444 | unless (or (integerp x) (string= s1 s2) (not (string= s1 s3))) | |
445 | collect (list x s1 s2)) | collect (list x s1 s2)) |
446 | nil) | nil) |
447 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |