lispdoc - results for pathname-name

(defun tl-merge-two-paths (new-path base)
  "Tries to merge two paths.."
  (let ((new-dir
         (append (pathname-directory base)
                 (cdr
                  (pathname-directory
                   new-path)))))
    (make-pathname :name (pathname-name new-path)
                   :type (pathname-type new-path)
                   :directory new-dir)))

(defun mp3-p (file)
  (and (not (directory-pathname-p file))
       (string-equal "mp3" (pathname-type file))))