- (let ((dirs (append (list (dir ufile))
- (awhen (subdir ufile) (list it)))))
- (merge-pathnames
- (make-pathname :name (concatenate 'string (fil ufile) extension)
+ (let* ((dirs (append (list (dir ufile))
+ (awhen (subdir ufile) (list it))))
+ (name-list (delimited-string-to-list (fil ufile) #\.))
+ (name (if (second name-list)
+ (first name-list)
+ (concatenate 'string (first name-list) (or extension ""))))
+ (type (when (second name-list)
+ (concatenate 'string (second name-list) (or extension "")))))
+ (merge-pathnames
+ (make-pathname :name name :type type