/[cmucl]/src/code/save.lisp
ViewVC logotype

Diff of /src/code/save.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.70 by rtoy, Sun May 16 12:28:31 2010 UTC revision 1.71 by rtoy, Sun Sep 26 20:40:51 2010 UTC
# Line 110  Line 110 
110              (list (default-directory))))              (list (default-directory))))
111    
112    (setf (search-list "library:")    (setf (search-list "library:")
113          (if (boundp '*cmucl-lib*)          (if (and (boundp '*cmucl-lib*)
114                     #+:executable
115                     (not (boundp '*old-cmucl-library-search-list*)))
116              (parse-unix-search-path *cmucl-lib*)              (parse-unix-search-path *cmucl-lib*)
117              (or              (or
118               #+:executable               #+:executable

Legend:
Removed from v.1.70  
changed lines
  Added in v.1.71

  ViewVC Help
Powered by ViewVC 1.1.5