/[gcl]/gcl/ansi-tests/format-x.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-x.lsp

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

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