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

Diff of /src/code/filesys.lisp

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

revision 1.85 by rtoy, Mon Dec 13 15:12:54 2004 UTC revision 1.86 by rtoy, Thu Feb 10 15:57:08 2005 UTC
# Line 357  Line 357 
357  (defun unparse-unix-piece (thing)  (defun unparse-unix-piece (thing)
358    (etypecase thing    (etypecase thing
359      ((member :wild) "*")      ((member :wild) "*")
360        ((member :unspecific)
361         ;; CLHS 19.2.2.2.3.1 says "That is, both nil and :unspecific
362         ;; cause the component not to appear in the namestring."
363         "")
364      (simple-string      (simple-string
365       (let* ((srclen (length thing))       (let* ((srclen (length thing))
366              (dstlen srclen))              (dstlen srclen))

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

  ViewVC Help
Powered by ViewVC 1.1.5