[Maxima-commits] CVS: maxima-pre59/for59 init-cl.lisp,1.3,1.4

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima-pre59/for59
In directory usw-pr-cvs1:/tmp/cvs-serv9088

Modified Files:
	init-cl.lisp 
Log Message:
o Add implementation of getenv for various platforms
o When the environment var MAXIMA_DIRECTORY is set, assign that to
  *maxima-directory*


Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima-pre59/for59/init-cl.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- init-cl.lisp	2002/01/22 03:34:16	1.3
+++ init-cl.lisp	2002/02/01 05:20:59	1.4
@@ -34,12 +34,29 @@
 (defvar $file_search_usage nil)
 (defvar $chemin nil)
 
+#+gcl
+(defun getenv (envvar)
+  (si::getenv envvar))
+
+#+allegro
+(defun getenv (envvar)
+  (system:getenv envvar))
+
+#+cmu
+(defun getenv (envvar)
+  (car (assoc envvar ext:*environment-list* :test #'string=)))
+
+#+clisp
+(defun getenv (envvar)
+  (ext:getenv envvar))
+
 (defun set-pathnames ()
-  (let* ((tem #+gcl (si::getenv "MAXIMA_DIRECTORY")
-	      #+allegro (system:getenv "MAXIMA_DIRECTORY")))
+  (let* ((tem (getenv "MAXIMA_DIRECTORY")))
     (if (and tem (> (length tem) 0))
 	(or (eql (aref tem (1- (length tem))) #\/)
-	    (setq tem (format nil "~a/" tem)))))
+	    (setq tem (format nil "~a/" tem))))
+    (when tem
+      (setq *maxima-directory* tem)))
   (setq $file_search_lisp
     (list '(mlist)
 	  #+gcl (maxima-path "{src,share1,sym}" "###.o")