/[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.39 by wlott, Fri Feb 4 15:05:08 1994 UTC revision 1.40 by ram, Fri Jul 12 19:21:58 1996 UTC
# Line 599  Line 599 
599                 (setf file (concatenate 'string file "."                 (setf file (concatenate 'string file "."
600                                         (quick-integer-to-string version))))                                         (quick-integer-to-string version))))
601               (when (or (not verify-existance)               (when (or (not verify-existance)
602                         (unix:unix-file-kind file))                         (unix:unix-file-kind file t))
603                 (funcall function file)))))))                 (funcall function file)))))))
604    
605  (defun quick-integer-to-string (n)  (defun quick-integer-to-string (n)

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

  ViewVC Help
Powered by ViewVC 1.1.5