Hi Martin,
My understanding is that *architecture-features* tells me about the processor but that since I can still run 32-bit lisps on a 64-bit processor, I need to add this additional test to differentiate a home directory...
Yes? No?
On Aug 7, 2006, at 12:25 PM, Martin Simmons wrote:
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
#+lispworks (lisp-implementation-version) #+allegro (concatenate 'string (if (eq 'h 'H) "A" "M") ;#-ppc64-target nil)
ANSI vs MoDeRn
excl::*common-lisp-version-number*)
excl::*common-lisp-version-number*
#+clisp (let ((s (lisp-implementation-version))) (subseq s 0 (position #\space s))) #+armedbear (lisp-implementation-version)#+64bit "-64")
thanks,
Gary Warren King metabang.com [http://www.metabang.com/] (413) 885 9127 * (206) 338-4052 [Fax] gwking on #lisp (occasionally)