/[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.54 by dtc, Sat Dec 19 16:03:58 1998 UTC revision 1.55 by pw, Tue Feb 2 12:18:34 1999 UTC
# Line 412  Line 412 
412          (strings (if (eq version :wild)          (strings (if (eq version :wild)
413                       ".*"                       ".*"
414                       (format nil ".~D" version)))))                       (format nil ".~D" version)))))
415      (apply #'concatenate 'simple-string (strings))))      (and (strings) (apply #'concatenate 'simple-string (strings)))))
416    
417  (defun unparse-unix-namestring (pathname)  (defun unparse-unix-namestring (pathname)
418    (declare (type pathname pathname))    (declare (type pathname pathname))

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

  ViewVC Help
Powered by ViewVC 1.1.5