     { :base-name base-name
       :specifier specifier
       :extension extension
-      :file-name dir-name
+      :full-name dir-name
       :dir-ls    dir-ls 
       :is-dir?   true    }))
 

         (list)
         (specify-files)
         (first)))

    { :base-name base-name
      :specifier specifier
      :extension extension
      :full-name file-name
      :is-dir?   false    }))

(defmethod explode-file true [dir]
