[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
* swank-loader.lisp (lisp-version-string): Append -no-threads to
SBCL without threads.


--- /project/slime/cvsroot/slime/ChangeLog	2011/12/24 17:45:23	1.2291
+++ /project/slime/cvsroot/slime/ChangeLog	2012/01/02 04:20:52	1.2292
@@ -1,3 +1,8 @@
+2012-01-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-loader.lisp (lisp-version-string): Append -no-threads to
+	SBCL without threads.
+
 2011-12-24  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-init-command): Don't call
--- /project/slime/cvsroot/slime/swank-loader.lisp	2011/12/10 12:33:28	1.114
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2012/01/02 04:20:52	1.115
@@ -73,7 +73,11 @@
 (defun lisp-version-string ()
   #+(or clozure cmu) (substitute-if #\_ (lambda (x) (find x " /"))
                                     (lisp-implementation-version))
-  #+(or cormanlisp scl sbcl) (lisp-implementation-version)
+  #+(or cormanlisp scl) (lisp-implementation-version)
+  #+sbcl (format nil "~a~:[~;-no-threads~]"
+                 (lisp-implementation-version)
+                 #+sb-thread nil
+                 #-sb-thread t)
   #+lispworks (lisp-implementation-version)
   #+allegro   (format nil "~A~A~A~A"
                       excl::*common-lisp-version-number*