/[gcl]/gcl/ansi-tests/string-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/string-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26