[slime-cvs] CVS slime
CVS User trittweiler
trittweiler at common-lisp.net
Thu Feb 25 16:35:23 UTC 2010
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
More information about the slime-cvs
mailing list