Parent Directory | Revision Log | Patch
revision 1.7 by pfdietz, Thu Sep 2 11:46:15 2004 UTC | revision 1.8 by pfdietz, Tue Oct 26 03:52:46 2004 UTC | |
---|---|---|
# | Line 129 | Line 129 |
129 | count | count |
130 | (multiple-value-bind (s1 s2 args) | (multiple-value-bind (s1 s2 args) |
131 | (make-random-string-compare-test n) | (make-random-string-compare-test n) |
132 | ;; (format t "Args = ~S~%" args) | ;; (format t "Strings: ~s ~s - Args = ~S~%" s1 s2 args) |
133 | (let ((x (apply (case comparison | (let ((x (apply (case comparison |
134 | (< (if case #'string-lessp #'string<)) | (< (if case #'string-lessp #'string<)) |
135 | (<= (if case #'string-not-greaterp | (<= (if case #'string-not-greaterp |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |