- (let ((ds (date-string
- (file-write-date (make-pathname
- :defaults *sources-dir*
- :type "lml"
- :name (pathname-name file))))))
- (when ds
+ (let ((src-file (make-pathname
+ :defaults *sources-dir*
+ :type "lml"
+ :name (pathname-name file))))
+ (when (probe-file src-file)