Strange enough-namestring

Hello lispworkers,

Please, take a look at the following example (I am on LWW 4.4.6):

(setq f  #P"e:/projects/file.ext"
      d1 #P"e:/projects/"
      d2 #P"E:/PROJECTS/")
(enough-namestring f d1) => "file.ext"
(enough-namestring f d2) => "e:\\projects\\file.ext"
(equal d1 d2) => T

For equal, CLHS specifies the following:
  Two pathnames are equal if and only if all the corresponding components
  (host, device, and so on) are equivalent. Whether or not uppercase and
  lowercase letters are considered equivalent in strings appearing in
  components is implementation-dependent.
  pathnames that are equal should be functionally equivalent.

In the above example, as pathnames d1 and d2 are equal, uppercase and
lowercase letters in components seem equivalent.

IMHO, d1 and d2 are not functionally equivalent w.r.t. enough-namestring.
Am I wrong?
--
Sincerely,
Dmitriy Ivanov
lisp.ystok.ru