[slime-devel] minor patch to

[Martin Simmons]

>>>>> On Mon, 7 Aug 2006 10:46:11 -0400, Gary King said:
> Delivered-To: slime-devel at common-lisp.net
> 
> The patch below alters the lisp-version-string to accommodate 64 bit  
> Allegro and 64 bit OpenMCL.
> 
> Any comments...

Maybe it would be better to handle this by *architecture-features*?

-- 
Martin Simmons
LispWorks Ltd
http://www.lispworks.com/


> 
> Index: swank-loader.lisp
> ===================================================================
> RCS file: /project/slime/cvsroot/slime/swank-loader.lisp,v
> retrieving revision 1.59
> diff -u -w -r1.59 swank-loader.lisp
> --- swank-loader.lisp	13 Apr 2006 10:41:59 -0000	1.59
> +++ swank-loader.lisp	7 Aug 2006 14:30:26 -0000
> @@ -66,12 +66,15 @@
>     #+scl       (lisp-implementation-version)
>     #+sbcl      (lisp-implementation-version)
>     #+ecl       (lisp-implementation-version)
> -  #+openmcl   (format nil "~d.~d"
> +  #+openmcl   (format nil "~d.~d~@[-~d~]"
>                         ccl::*openmcl-major-version*
> -                      ccl::*openmcl-minor-version*)
> +                      ccl::*openmcl-minor-version*
> +                      #+ppc64-target 64
> +                      #-ppc64-target nil)
>     #+lispworks (lisp-implementation-version)
>     #+allegro   (concatenate 'string (if (eq 'h 'H) "A" "M")     ;  
> ANSI vs MoDeRn
> -                           excl::*common-lisp-version-number*)
> +                           excl::*common-lisp-version-number*
> +			   #+64bit "-64")
>     #+clisp     (let ((s (lisp-implementation-version)))
>                   (subseq s 0 (position #\space s)))
>     #+armedbear (lisp-implementation-version)
> 
> thanks,
> -- 
> Gary Warren King
> metabang.com [http://www.metabang.com/]
> (413) 885 9127 * (206) 338-4052 [Fax]
> gwking on #lisp (occasionally)