[slime-devel] minor patch to

[Gary King]

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 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)


-- 
Gary Warren King
metabang.com [http://www.metabang.com/]
(413) 885 9127 * (206) 338-4052 [Fax]
gwking on #lisp (occasionally)