7 Aug
2006
7 Aug
'06
4:25 p.m.
On Mon, 7 Aug 2006 10:46:11 -0400, Gary King said:
Delivered-To: slime-devel@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)