[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
* swank-loader.lisp (lisp-version-string): Include "-ics" for
version with extended charsets.  Suggested by Scott L. Burson.

--- /project/slime/cvsroot/slime/ChangeLog	2009/09/03 07:43:08	1.1850
+++ /project/slime/cvsroot/slime/ChangeLog	2009/09/08 05:59:20	1.1851
@@ -1,3 +1,8 @@
+2009-09-08  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-loader.lisp (lisp-version-string): Include "-ics" for
+	version with extended charsets.  Suggested by Scott L. Burson.
+
 2009-09-03  Helmut Eller  <heller at common-lisp.net>
 
 	* slime.el (slime-net-close): set-process-query-on-exit-flag
--- /project/slime/cvsroot/slime/swank-loader.lisp	2009/07/26 08:00:40	1.91
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2009/09/08 05:59:20	1.92
@@ -62,11 +62,13 @@
                                     (lisp-implementation-version))
   #+(or cormanlisp scl sbcl ecl)       (lisp-implementation-version)
   #+lispworks (lisp-implementation-version)
-  #+allegro   (format nil
-                      "~A~A~A"
+  #+allegro   (format nil "~A~A~A~A"
                       excl::*common-lisp-version-number*
                       (if (eq 'h 'H) "A" "M")     ; ANSI vs MoDeRn
-                      (if (member :64bit *features*) "-64bit" ""))
+                      (if (member :64bit *features*) "-64bit" "")
+                      (excl:ics-target-case
+                       (:-ics "")
+                       (:+ics "-ics")))
   #+clisp     (let ((s (lisp-implementation-version)))
                 (subseq s 0 (position #\space s)))
   #+armedbear (lisp-implementation-version))