Skip to content
Snippets Groups Projects
Commit 5871d292 authored by rtoy's avatar rtoy
Browse files

Actually set the library search list to the saved value. Previously

we weren't because *cmucl-lib* is almost always bound.  Normally
*old-cmucl-library-search-list* is unbound, but when a core is made,
it becomes bound.  We use that to indicate that the library search
list should be set to *old-cmucl-library-search-list*.
parent 8989983a
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/save.lisp,v 1.70 2010/05/16 12:28:31 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.71 2010/09/26 20:40:51 rtoy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -110,7 +110,9 @@ ...@@ -110,7 +110,9 @@
(list (default-directory)))) (list (default-directory))))
(setf (search-list "library:") (setf (search-list "library:")
(if (boundp '*cmucl-lib*) (if (and (boundp '*cmucl-lib*)
#+:executable
(not (boundp '*old-cmucl-library-search-list*)))
(parse-unix-search-path *cmucl-lib*) (parse-unix-search-path *cmucl-lib*)
(or (or
#+:executable #+:executable
......
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