Skip to content
Snippets Groups Projects
Commit 007623bc authored by chiles's avatar chiles
Browse files

This commit was generated by cvs2svn to compensate for changes in r4006,

which included commits to RCS files with non-trunk default branches.
parents 4986bffd 8d4c1526
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment