/[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.19 by wlott, Mon Dec 16 19:42:56 1991 UTC revision 1.20 by wlott, Mon Dec 16 20:00:44 1991 UTC
# Line 578  Line 578 
578                 (setf file (concatenate 'string file "." type)))                 (setf file (concatenate 'string file "." type)))
579               (unless (or (null version) (eq version :newest))               (unless (or (null version) (eq version :newest))
580                 (setf file (concatenate 'string file "."                 (setf file (concatenate 'string file "."
581                                         (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.19  
changed lines
  Added in v.1.20

  ViewVC Help
Powered by ViewVC 1.1.5