[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv22917

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
	* swank-loader.lisp (lisp-version-string): Add git-commit ids for
	ECL because individual commits do not guarantee fasl
	compatibility.


--- /project/slime/cvsroot/slime/ChangeLog	2010/02/23 22:57:25	1.1998
+++ /project/slime/cvsroot/slime/ChangeLog	2010/02/25 16:35:22	1.1999
@@ -1,3 +1,9 @@
+2010-02-25  Tobias C. Rittweiler <tcr at freebits.de>
+
+	* swank-loader.lisp (lisp-version-string): Add git-commit ids for
+	ECL because individual commits do not guarantee fasl
+	compatibility.
+
 2010-02-23  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank-backend.lisp (when-let): New macro. For backends and
--- /project/slime/cvsroot/slime/swank-loader.lisp	2010/02/20 18:20:46	1.100
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2010/02/25 16:35:23	1.101
@@ -59,10 +59,19 @@
     :sparc64 :sparc :hppa64 :hppa
     :pentium3 :pentium4))
 
+#+ecl
+(defun ecl-version-string ()
+  #+#.(cl:if (cl:find-symbol "LISP-IMPLEMENTATION-VCS-ID" :ext) '(:and) '(:or))
+  (format nil "~A-~A"
+          (lisp-implementation-version) 
+          (subseq (ext:lisp-implementation-vcs-id) 0 8))
+  #-#.(cl:if (cl:find-symbol "LISP-IMPLEMENTATION-VCS-ID" :ext) '(:and) '(:or))
+  (lisp-implementation-version))
+
 (defun lisp-version-string ()
   #+(or clozure cmu) (substitute-if #\_ (lambda (x) (find x " /"))
                                     (lisp-implementation-version))
-  #+(or cormanlisp scl sbcl ecl)       (lisp-implementation-version)
+  #+(or cormanlisp scl sbcl) (lisp-implementation-version)
   #+lispworks (lisp-implementation-version)
   #+allegro   (format nil "~A~A~A~A"
                       excl::*common-lisp-version-number*
@@ -73,7 +82,8 @@
                        (:+ics "-ics")))
   #+clisp     (let ((s (lisp-implementation-version)))
                 (subseq s 0 (position #\space s)))
-  #+armedbear (lisp-implementation-version))
+  #+armedbear (lisp-implementation-version)
+  #+ecl (ecl-version-string) )
 
 (defun unique-dir-name ()
   "Return a name that can be used as a directory name that is