Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Sat Oct 5 17:48:57 2002 UTC | revision 1.3 by pfdietz, Thu Oct 17 13:16:56 2002 UTC | |
---|---|---|
# | Line 136 | Line 136 |
136 | (y (apply #'my-string-compare s1 s2 comparison :case case args))) | (y (apply #'my-string-compare s1 s2 comparison :case case args))) |
137 | (not | (not |
138 | (or (eql x y) | (or (eql x y) |
139 | (and x y (eq comparison '=)))))))) | (and x y (eqt comparison '=)))))))) |
140 | ||
141 | (defun make-random-string (n) | (defun make-random-string (n) |
142 | (let ((s (random-case | (let ((s (random-case |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |