X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=11de3e3c729586e8db3d74eb0e9ed37bbfee3992;hb=b84b7f3a3c58909c6e252aba8c97148c9ad917b7;hp=b36fefb838e074cf9ed1f3dfe78cd50728fae9d8;hpb=550e5afc7ad95ff1e1bbfe932bf8dd81b0c4dce6;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index b36fefb..11de3e3 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -42,7 +42,8 @@
 
 ;;;; LOAD itself
 
-;;; a helper function for LOAD: Load the stuff in a file when we have the name.
+;;; a helper function for LOAD: Load the stuff in a file when we have
+;;; the name.
 (defun internal-load (pathname truename if-does-not-exist verbose print
 		      &optional contents)
   (declare (type (member nil :error) if-does-not-exist))
@@ -184,14 +185,15 @@
 	     (load-as-fasl filespec verbose print)
 	     (load-as-source filespec verbose print))
 	 (let* ((pathname (pathname filespec))
-		(physical-pathname (translate-logical-pathname pathname)))
-	   (if (or (probe-file physical-pathname) (pathname-type physical-pathname))
+		(physical-pathname (translate-logical-pathname pathname))
+		(probed-file (probe-file physical-pathname)))
+	   (if (or probed-file
+		   (pathname-type physical-pathname))
 	       (internal-load physical-pathname
-			      (truename physical-pathname)
+			      probed-file
 			      internal-if-does-not-exist
 			      verbose
 			      print)
-	       
 	       (internal-load-default-type pathname
 					   internal-if-does-not-exist
 					   verbose