[asdf-binary-locations-devel] [slime-devel] 8-bit Allegro mode

[Gary King]

Hi Scott (and all),

I'm thinking of going with:

   #+allegro   (format nil
                       "~A~A~A~A"
                       excl::*common-lisp-version-number*
					; ANSI vs MoDeRn
		      ;; thanks to Robert Goldman and Charley Cox for
		      ;; an improvement to my hack
		      (if (eq excl:*current-case-mode*
			      :case-sensitive-lower) "M" "A")
		      ;; Note if using International ACL
		      ;; see http://www.franz.com/support/documentation/8.1/doc/operators/excl/ics-target-case.htm
		      (excl:ics-target-case
			(:-ics "8")
			(:+ics "X"))
                       (if (member :64bit *features*) "-64bit" ""))

Is there any dissent?

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM * gwking on twitter