[Maxima-commits] CVS: maxima/src init-cl.lisp,1.41,1.42

[Wolfgang J. <wje...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13955

Modified Files:
	init-cl.lisp 
Log Message:
Define $chemin in a way similar to $file_search_maxima and friends.
This is more useful for controlling the behaviour of $load etc. and
corresponds to changes in share/sym.


Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- init-cl.lisp	7 Nov 2004 12:06:30 -0000	1.41
+++ init-cl.lisp	24 Nov 2004 22:59:28 -0000	1.42
@@ -235,7 +235,9 @@
 				    usage-patterns))
 		(combine-path (list *maxima-docdir* usage-patterns))))
     (setq $chemin
-	  (concatenate 'string *maxima-symdir* "/"))
+	  (list '(mlist)
+		(combine-path (list *maxima-symdir* lisp-patterns))
+		(combine-path (list *maxima-symdir* maxima-patterns))))
     (setq cl-info::*info-paths* (list (concatenate 'string
 						   *maxima-infodir* "/")))))