/[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.18 by wlott, Mon Dec 16 13:04:40 1991 UTC revision 1.19 by wlott, Mon Dec 16 19:42:56 1991 UTC
# Line 574  Line 574 
574                   (mach:close-dir dir)))))                   (mach:close-dir dir)))))
575            (t            (t
576             (let ((file (concatenate 'string directory name)))             (let ((file (concatenate 'string directory name)))
577               (unless (eq type :unspecific)               (unless (or (null type) (eq type :unspecific))
578                 (setf file (concatenate 'string file "." type)))                 (setf file (concatenate 'string file "." type)))
579               (when version               (unless (or (null version) (eq version :newest))
580                 (unless (eq version :newest)                 (setf file (concatenate 'string file "."
581                   (setf file (concatenate 'string file "."                                         (quick-integer-to-string version)))))
                                          (quick-integer-to-string version)))))  
582               (when (or (not verify-existance)               (when (or (not verify-existance)
583                         (mach:unix-file-kind file))                         (mach:unix-file-kind file))
584                 (funcall function file)))))))                 (funcall function file)))))))

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5