/[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.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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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