From 7cb5b8bbd077ebc10f580ba6ecdbdad203bb6c77 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 10 Jul 2002 16:40:43 +0000
Subject: [PATCH] Patch from Martin Cracauer.

The search-list "modules:" is set to track the search-list "library:"
instead of being set whatever path "library:subsystems/" is set to at
start up.
---
 code/save.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/save.lisp b/code/save.lisp
index 4913ab0f3..442c9c041 100644
--- a/code/save.lisp
+++ b/code/save.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.43 2002/01/18 17:58:15 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.44 2002/07/10 16:40:43 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -92,7 +92,7 @@
   (setf (search-list "library:")
 	(or (parse-unix-search-list :cmucllib)
 	    '("/usr/local/lib/cmucl/lib/")))
-  (setf (search-list "modules:") (ext:unix-namestring "library:subsystems/")))
+  (setf (search-list "modules:") '("library:subsystems/")))
 
 
 
-- 
GitLab