/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.61 by toy, Sat Jun 7 17:56:28 2003 UTC revision 1.62 by toy, Tue Jun 10 16:52:36 2003 UTC
# Line 1657  a host-structure or string." Line 1657  a host-structure or string."
1657  (defun logical-chunkify (namestr start end)  (defun logical-chunkify (namestr start end)
1658    (collect ((chunks))    (collect ((chunks))
1659      (do ((i start (1+ i))      (do ((i start (1+ i))
1660           (prev 0))           (prev start))
1661          ((= i end)          ((= i end)
1662           (when (> end prev)           (when (> end prev)
1663              (chunks (cons (nstring-upcase (subseq namestr prev end)) prev))))              (chunks (cons (nstring-upcase (subseq namestr prev end)) prev))))

Legend:
Removed from v.1.61  
changed lines
  Added in v.1.62

  ViewVC Help
Powered by ViewVC 1.1.5