CD then LOAD doesn't work as expected

[liumingc]

Refer S31/Primitives/primitives.lsp:

(DEFUN open (String Direction)
   (LET ((Path (FORMAT NIL "~A~A" *home-directory* String)))
        (shen.openh Path Direction)))   

Maybe in PrimReadFileAsByteList, filename should path.Join with the value of *home-directory* .