Parent Directory | Revision Log | Patch
revision 1.2 by pfdietz, Wed Aug 11 09:28:57 2004 UTC | revision 1.3 by pfdietz, Sat Sep 11 12:31:44 2004 UTC | |
---|---|---|
# | Line 162 | Line 162 |
162 | (loop for i from (if (< i 0) 2 1) below len | (loop for i from (if (< i 0) 2 1) below len |
163 | always (if (= (mod (- len i) ci+1) 0) | always (if (= (mod (- len i) ci+1) 0) |
164 | (eql (elt s2 i) commachar) | (eql (elt s2 i) commachar) |
165 | (find (elt s2 i) "0123456789ABCDEF"))))) | (find (elt s2 i) "0123456789ABCDEF" :test #'char-equal))))) |
166 | collect (list x i commachar s1 s2))) | collect (list x i commachar s1 s2))) |
167 | nil) | nil) |
168 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |