diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp index 8f2bc8622fc5c55f9b9e58dbaf347a5ed2a78ea2..59b8d9681dfcda1c586ae9fc6311846b91186795 100644 --- a/hemlock/lispeval.lisp +++ b/hemlock/lispeval.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.7 1991/10/18 17:20:26 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.8 1991/11/12 01:14:36 chiles Exp $") ;;; ;;; ********************************************************************** ;;; @@ -686,7 +686,10 @@ :help "The name of the file to load")))) (setv load-pathname-defaults name) (string-eval (format nil "(load ~S)" - (namestring (pathname-for-remote-access name)))))) + (namestring + (if (value remote-compile-file) + (pathname-for-remote-access name) + name)))))) (defcommand "Compile File" (p) "Prompts for file to compile. Does not compare source and binary write