/[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.28 by phg, Wed Aug 19 18:45:34 1992 UTC revision 1.29 by phg, Fri Sep 4 15:22:16 1992 UTC
# Line 589  Line 589 
589             (let ((file (concatenate 'string directory name)))             (let ((file (concatenate 'string directory name)))
590               (unless (or (null type) (eq type :unspecific))               (unless (or (null type) (eq type :unspecific))
591                 (setf file (concatenate 'string file "." type)))                 (setf file (concatenate 'string file "." type)))
592               (unless (or (null version) (eq version :newest))               (unless (member version '(nil  :newest :wild))
593                 (setf file (concatenate 'string file "."                 (setf file (concatenate 'string file "."
594                                         (quick-integer-to-string version))))                                         (quick-integer-to-string version))))
595               (when (or (not verify-existance)               (when (or (not verify-existance)

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

  ViewVC Help
Powered by ViewVC 1.1.5