From 2e6fb6d84d61a3143bcf7752ec89e5dce3eac3ef Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 19 Feb 1992 16:41:26 +0000 Subject: [PATCH] In INTERNAL-LOAD, load the TRUENAME, not the pathname, since in the :load-if-source-newer :compile case, the pathname is the source file. --- code/load.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/load.lisp b/code/load.lisp index eb614b2ac..b71ca5890 100644 --- a/code/load.lisp +++ b/code/load.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.37 1992/02/18 18:43:18 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.38 1992/02/19 16:41:26 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -545,12 +545,12 @@ (*load-pathname* pathname)) (case contents (:source - (with-open-file (file pathname + (with-open-file (file truename :direction :input :if-does-not-exist if-does-not-exist) (sloload file))) (:binary - (with-open-file (file pathname + (with-open-file (file truename :direction :input :if-does-not-exist if-does-not-exist :element-type '(unsigned-byte 8)) -- GitLab