From sboukarev at common-lisp.net  Tue Sep  4 15:03:23 2012
From: sboukarev at common-lisp.net (CVS User sboukarev)
Date: Tue, 04 Sep 2012 08:03:23 -0700
Subject: [slime-cvs] CVS slime
Message-ID: <E1T8uex-0002Yi-6K@common-lisp.net>

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

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
* swank-loader.lisp (lisp-version-string): Add "s" to Allegro with
SMP support.
Patch by Dave Cooper.


--- /project/slime/cvsroot/slime/ChangeLog	2012/08/18 16:34:06	1.2348
+++ /project/slime/cvsroot/slime/ChangeLog	2012/09/04 15:03:22	1.2349
@@ -1,3 +1,9 @@
+2012-09-04  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-loader.lisp (lisp-version-string): Add "s" to Allegro with
+	SMP support.
+	Patch by Dave Cooper.
+
 2012-08-18  Stas Boukarev  <stassats at gmail.com>
 
 	* swank-abcl.lisp (find-definitions): Call ext:resolve before
--- /project/slime/cvsroot/slime/swank-loader.lisp	2012/01/02 04:20:52	1.115
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2012/09/04 15:03:23	1.116
@@ -79,9 +79,10 @@
                  #+sb-thread nil
                  #-sb-thread t)
   #+lispworks (lisp-implementation-version)
-  #+allegro   (format nil "~A~A~A~A"
+  #+allegro   (format nil "~@{~a~}"
                       excl::*common-lisp-version-number*
                       (if (eq 'h 'H) "A" "M")     ; ANSI vs MoDeRn
+                      (if (member :smp *features*) "s" "")
                       (if (member :64bit *features*) "-64bit" "")
                       (excl:ics-target-case
                        (:-ics "")