[slime-cvs] CVS /slime

[mbaringer]

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

Modified Files:
	swank-loader.lisp 
Log Message:
(lisp-version-string): Modified swank-loader so that Allegro's alisp
and mlisp programs get different locations. Otherwise mlisp complains
about alisp's files.


--- /project/slime/cvsroot//slime/swank-loader.lisp	2006/02/25 14:57:21	1.57
+++ /project/slime/cvsroot//slime/swank-loader.lisp	2006/03/16 17:26:27	1.58
@@ -70,7 +70,8 @@
                       ccl::*openmcl-major-version* 
                       ccl::*openmcl-minor-version*)
   #+lispworks (lisp-implementation-version)
-  #+allegro   excl::*common-lisp-version-number*
+  #+allegro   (concatenate 'string (if (eq 'h 'H) "A" "M")     ; ANSI vs MoDeRn
+                           excl::*common-lisp-version-number*)
   #+clisp     (let ((s (lisp-implementation-version)))
                 (subseq s 0 (position #\space s)))
   #+armedbear (lisp-implementation-version)