[slime-devel] minor patch to

Gary King gwking at metabang.com
Mon Aug 7 14:46:11 UTC 2006


The patch below alters the lisp-version-string to accommodate 64 bit  
Allegro and 64 bit OpenMCL.

Any comments...

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)





More information about the slime-devel mailing list