/[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.59 by dtc, Thu Feb 22 19:35:01 2001 UTC revision 1.60 by dtc, Fri Feb 23 18:56:11 2001 UTC
# Line 185  Line 185 
185               (values :wild (- end 4)))               (values :wild (- end 4)))
186              (t              (t
187               (do ((i (- end 2) (1- i)))               (do ((i (- end 2) (1- i)))
188                   ((< i (+ start 2)) (values :newest nil))                   ((< i (+ start 2)) (values :newest end))
189                 (let ((char (schar namestr i)))                 (let ((char (schar namestr i)))
190                   (when (eql char #\~)                   (when (eql char #\~)
191                     (return (and (char= (schar namestr (1- i)) #\.)                     (return (if (char= (schar namestr (1- i)) #\.)
192                                  (values (parse-integer namestr                                 (values (parse-integer namestr :start (1+ i)
193                                                         :start (1+ i)                                                        :end (1- end))
194                                                         :end (1- end))                                         (1- i))
195                                          (1- i)))))                                 (values :newest end))))
196                   (unless (char<= #\0 char #\9)                   (unless (char<= #\0 char #\9)
197                     (return nil))))))                     (return (values :newest end)))))))
198      (let ((last-dot (position #\. namestr :start (1+ start) :end vstart      (let ((last-dot (position #\. namestr :start (1+ start) :end vstart
199                                :from-end t)))                                :from-end t)))
200        (cond (last-dot        (cond (last-dot

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

  ViewVC Help
Powered by ViewVC 1.1.5