[Maxima-commits] CVS: maxima/src init-cl.lisp,1.116.2.3,1.116.2.4

[Andrej V. <an...@us...>]

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

Modified Files:
      Tag: RELEASE-5_16-BRANCH
	init-cl.lisp 
Log Message:
More ecl support copied from HEAD.


Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v
retrieving revision 1.116.2.3
retrieving revision 1.116.2.4
diff -u -d -r1.116.2.3 -r1.116.2.4
--- init-cl.lisp	17 Aug 2008 17:32:36 -0000	1.116.2.3
+++ init-cl.lisp	20 Aug 2008 10:55:14 -0000	1.116.2.4
@@ -75,7 +75,8 @@
 	#+openmcl "openmcl"
 	#+abcl "abcl"
 	#+lispworks "lispworks"
-	#-(or clisp cmu scl sbcl gcl allegro openmcl abcl lispworks) "unknownlisp")
+	#+ecl "ecl"
+	#-(or clisp cmu scl sbcl gcl allegro openmcl abcl lispworks ecl) "unknownlisp")
 
 (defvar $file_search_lisp nil
   "Directories to search for Lisp source code.")
@@ -397,9 +398,9 @@
 	    (combine-path *maxima-infodir* subdir-bit "maxima-index.lisp")))))
 
 (defun get-dirs (path)
-  #+(or :clisp :sbcl)
+  #+(or :clisp :sbcl :ecl)
   (directory (concatenate 'string (namestring path) "/*/"))
-  #-(or :clisp :sbcl)
+  #-(or :clisp :sbcl :ecl)
   (directory (concatenate 'string (namestring path) "/*")))
 
 (defun unix-like-basename (path)