[slime-cvs] CVS update: slime/swank-loader.lisp

[Peter Seibel]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv3546

Modified Files:
	swank-loader.lisp 
Log Message:
Added GCL and ECL features to swank-loader.lisp

Date: Mon Apr 18 06:42:50 2005
Author: pseibel

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.46 slime/swank-loader.lisp:1.47
--- slime/swank-loader.lisp:1.46	Mon Mar 21 00:11:50 2005
+++ slime/swank-loader.lisp	Mon Apr 18 06:42:50 2005
@@ -36,7 +36,7 @@
            )))
 
 (defparameter *implementation-features*
-  '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :armedbear))
+  '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :armedbear :gcl :ecl))
 
 (defparameter *os-features*
   '(:macosx :linux :windows :mswindows :win32 :solaris :darwin :sunos :unix))
@@ -47,6 +47,8 @@
 (defun lisp-version-string ()
   #+cmu       (substitute #\- #\/ (lisp-implementation-version))
   #+sbcl      (lisp-implementation-version)
+  #+ecl       (lisp-implementation-version)
+  #+gcl       (let ((s (lisp-implementation-version))) (subseq s 4))
   #+openmcl   (format nil "~d.~d"
                       ccl::*openmcl-major-version* 
                       ccl::*openmcl-minor-version*)