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

[Helmut Eller]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(*lisp-name*): Add versioning support for CLISP.
Date: Wed Apr 28 18:21:10 2004
Author: heller

Index: slime/swank-loader.lisp
diff -u slime/swank-loader.lisp:1.22 slime/swank-loader.lisp:1.23
--- slime/swank-loader.lisp:1.22	Mon Apr 26 09:20:26 2004
+++ slime/swank-loader.lisp	Wed Apr 28 18:21:10 2004
@@ -45,7 +45,8 @@
   #+openmcl   "openmcl"
   #+lispworks "lispworks"
   #+allegro   "allegro"
-  #+clisp     "clisp"
+  #+clisp     (format nil "clisp-~A" (let ((s (lisp-implementation-version)))
+                                       (subseq s 0 (position #\space s))))
   )
 
 (defparameter *swank-pathname* (make-swank-pathname "swank"))