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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
Add Corman Lisp support.
Date: Tue May 31 20:38:41 2005
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.47 slime/swank-loader.lisp:1.48
--- slime/swank-loader.lisp:1.47	Mon Apr 18 06:42:50 2005
+++ slime/swank-loader.lisp	Tue May 31 20:38:41 2005
@@ -33,10 +33,11 @@
            #+allegro '("swank-allegro" "swank-gray")
            #+clisp '("xref" "metering" "swank-clisp" "swank-gray")
            #+armedbear '("swank-abcl")
+           #+cormanlisp '("swank-corman" "swank-gray")
            )))
 
 (defparameter *implementation-features*
-  '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :armedbear :gcl :ecl))
+  '(:allegro :lispworks :sbcl :openmcl :cmu :clisp :ccl :corman :cormanlisp :armedbear :gcl :ecl))
 
 (defparameter *os-features*
   '(:macosx :linux :windows :mswindows :win32 :solaris :darwin :sunos :unix))
@@ -56,7 +57,8 @@
   #+allegro   excl::*common-lisp-version-number*
   #+clisp     (let ((s (lisp-implementation-version)))
                 (subseq s 0 (position #\space s)))
-  #+armedbear (lisp-implementation-version))
+  #+armedbear (lisp-implementation-version)
+  #+cormanlisp (lisp-implementation-version))
   
 (defun unique-directory-name ()
   "Return a name that can be used as a directory name that is