Skip to content
Snippets Groups Projects
Commit 76b3e3c2 authored by pw's avatar pw
Browse files

When LOAD calls MERGE-PATHNAMES on its input file, use :default-version

of NIL so as to not gratuitously tack on a :newest version attribute.
This lets eg (load "HOST:FILE.LISP") work when no explicit version translation
is supplied. So far, this seems like the "Right Thing To Do" and seems
compatible with other implementations.
parent 3bb94cce
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.79 2001/05/02 22:05:03 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/load.lisp,v 1.80 2001/05/30 16:56:26 pw Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -537,7 +537,7 @@ ...@@ -537,7 +537,7 @@
(fasload filename) (fasload filename)
(sloload filename)) (sloload filename))
(let ((pn (merge-pathnames (pathname filename) (let ((pn (merge-pathnames (pathname filename)
*default-pathname-defaults*))) *default-pathname-defaults* nil)))
(if (wild-pathname-p pn) (if (wild-pathname-p pn)
(dolist (file (directory pn) t) (dolist (file (directory pn) t)
(internal-load pn file if-does-not-exist contents)) (internal-load pn file if-does-not-exist contents))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment