hemlock-init screw on sparc-v15e

[Keiji Kanazawa <kanazawa@cs.ubc.ca>]

Hi.  I tracked the bug I reported yesterday about hemlock not loading
.hemlock-init.lisp down to INTERNAL-LOAD, to the following part of a
COND.

   ((pathname-type pathname)
    (with-open-file (stream pathname :direction :input
			    :if-does-not-exist if-does-not-exist)
      (sloload stream)))

When internal-load is invoked with "home:[.]hemlock-init" (and
:if-does-not-exist nil), (pathname-type "home:[.]hemlock-init") returns
"".  Presumably, the above cond check is either expecting '() or is
meant to be (not (empty-string <test>)).  Anyway, because of this,
internal-load fails to go to the next part of the cond body, which
would look for "home:[.]hemlock-init" with ".lisp", ".sparcf", ".fasl",
so on and so forth.

So for the moment, I've renamed .hemlock-init.lisp to .hemlock-init.

The problem seems to reside with pathname-type.  For some reason, for
files beginning with ".", it returns "" where it should be returning
'().  I tried to Edit Definition %pathname-type, but Hemlock didn't
know how to find it.  Where is that defined, please?

 - Keiji