lispdoc - results for pathname-directory

(pathname-directory pathname &key (case local))
Function: Return PATHNAME's directory.
Example:
(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)))
Mentioned in:
CLtL2 - 23.1.2. Case Conventions
CLtL2 - 23.1.3. Structured Directories
CLtL2 - 23.1.6. Pathname Functions
HyperSpec - Function PATHNAME-HOST, PATHNAME-DEVICE, PATHNAME-DIRECTORY, PATHNAME-NAME, PATHNAME-TYPE, PATHNAME-VERSION
PCL - how pathnames represent filenames
(asdf:pathname-directory-pathname pathname)
Function: Returns a new pathname with same HOST, DEVICE, DIRECTORY as PATHNAME, and NIL NAME, TYPE and VERSION components