[slime-cvs] CVS slime

[mkoeppe]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv11333

Modified Files:
	swank-loader.lisp 
Log Message:
(lisp-version-string) [allegro]: Distinguish
between 32-bit and 64-bit version on the SPARC architecture.


--- /project/slime/cvsroot/slime/swank-loader.lisp	2006/09/27 22:52:26	1.60
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2006/10/08 12:48:12	1.61
@@ -70,8 +70,11 @@
                       ccl::*openmcl-major-version* 
                       ccl::*openmcl-minor-version*)
   #+lispworks (lisp-implementation-version)
-  #+allegro   (concatenate 'string (if (eq 'h 'H) "A" "M")     ; ANSI vs MoDeRn
-                           excl::*common-lisp-version-number*)
+  #+allegro   (format nil
+                      "~A~A~A"
+                      excl::*common-lisp-version-number*
+                      (if (eq 'h 'H) "A" "M")     ; ANSI vs MoDeRn
+                      (if (member :64bit *features*) "-64bit" ""))
   #+clisp     (let ((s (lisp-implementation-version)))
                 (subseq s 0 (position #\space s)))
   #+armedbear (lisp-implementation-version)