/[cmucl]/src/code/unix-glibc2.lisp
ViewVC logotype

Diff of /src/code/unix-glibc2.lisp

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

revision 1.35 by rtoy, Thu Jan 27 15:23:33 2005 UTC revision 1.36 by rtoy, Mon Oct 10 20:31:13 2005 UTC
# Line 3483  in at a time in poll.") Line 3483  in at a time in poll.")
3483                           (setf len (length pending))                           (setf len (length pending))
3484                           (setf name-start 0)))                           (setf name-start 0)))
3485                        ((= name-end len)                        ((= name-end len)
3486                           (when (eq kind :directory)
3487                             (setf (schar result new-fill-ptr) #\/)
3488                             (incf new-fill-ptr))
3489                         (return (subseq result 0 new-fill-ptr)))                         (return (subseq result 0 new-fill-ptr)))
3490                        ((eq kind :directory)                        ((eq kind :directory)
3491                         (setf (schar result new-fill-ptr) #\/)                         (setf (schar result new-fill-ptr) #\/)

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

  ViewVC Help
Powered by ViewVC 1.1.5