/[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.60 by dtc, Fri Feb 23 18:56:11 2001 UTC revision 1.61 by pw, Fri Mar 9 19:47:18 2001 UTC
# Line 405  Line 405 
405          (strings (unparse-unix-piece type)))          (strings (unparse-unix-piece type)))
406        (when version-supplied        (when version-supplied
407          (strings (if (eq version :wild)          (strings (if (eq version :wild)
408                       ".~~*~~"                       ".~*~"
409                       (format nil ".~~~D~~" version)))))                       (format nil ".~~~D~~" version)))))
410      (and (strings) (apply #'concatenate 'simple-string (strings)))))      (and (strings) (apply #'concatenate 'simple-string (strings)))))
411    
# Line 464  Line 464 
464          (when version-needed          (when version-needed
465            (typecase pathname-version            (typecase pathname-version
466              ((member :wild)              ((member :wild)
467               (strings ".~~*~~"))               (strings ".~*~"))
468              (integer              (integer
469               (strings (format nil ".~~~D~~" pathname-version)))               (strings (format nil ".~~~D~~" pathname-version)))
470              (t              (t

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

  ViewVC Help
Powered by ViewVC 1.1.5