Renaming and docstring patch for SPLIT-PATH-STRING to

   #:remove-keyword

   #:resolve-symlinks

   #:split

   #:split-path-string

   #:component-name-to-pathname-components

   #:system-registered-p

   #:truenamize))

         (unless end (return list))

         (setf start (1+ end)))))))

(defun split-path-string (s &optional force-directory)

(defun component-name-to-pathname-components (s &optional force-directory)

  "Splits the path string S, returning three values:

A flag that is either :absolute or :relative, indicating

   how the rest of the values are to be interpreted.

   case of a directory pathname.

FORCE-DIRECTORY forces S to be interpreted as a directory

pathname \(third return value will be NIL, final component

of S will be treated as part of the directory path."

of S will be treated as part of the directory path.

The intention of this function is to support structured component names,

e.g., \(:file \"foo/bar\"\), which will be unpacked to relative

pathnames."

  (check-type s string)

  (let* ((components (split s nil "/"))

         (last-comp (car (last components))))

(defmethod component-relative-pathname ((component module))

  (or (slot-value component 'relative-pathname)

      (multiple-value-bind (relative path)

          (split-path-string (component-name component) t)

          (component-name-to-pathname-components (component-name component) t)

        (make-pathname

         :directory `(,relative ,@path)

         :host (pathname-host (component-parent-pathname component))))))

(defun merge-component-relative-pathname (pathname name type)

  (multiple-value-bind (relative path filename)

      (split-path-string name)

      (component-name-to-pathname-components name)

  (merge-pathnames

   (or pathname (make-pathname :directory `(,relative ,@path)))

   (if type