[asdf-devel] [PATCH] Distinguish ACL SMP fasls from non-SMP ones
This fix is from Mr. Kiyoshi Mizumaru. It adds an "S" to the lisp-version-string in the ACL SMP case. --- asdf.lisp | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 00f40fe..006746c 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -3256,13 +3256,14 @@ located." (car ; as opposed to OR, this idiom prevents some unreachable code warning (list #+allegro - (format nil "~A~A~@[~A~]" + (format nil "~A~A~@[~A~]~@[~A~]" excl::*common-lisp-version-number* ;; ANSI vs MoDeRn - thanks to Robert Goldman and Charley Cox (if (eq excl:*current-case-mode* :case-sensitive-lower) "M" "A") ;; Note if not using International ACL ;; see http://www.franz.com/support/documentation/8.1/doc/operators/excl/ics-target... - (excl:ics-target-case (:-ics "8"))) + (excl:ics-target-case (:-ics "8")) + (if (member :smp *features*) "S" nil)) #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*) #+clisp (subseq s 0 (position #\space s)) ; strip build information (date, etc.) -- 1.7.7.6
Applied in 2.23.7. I now realize: we should probably have the default be unmarked, and what is not default have an extra letter. Isn't SMP the default? What's the name of the non-SMP build? —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org As of vices, the State will let you devote your life to a false religion, encourage you to have too many kids, but ban use of psychedelics. On Tue, Aug 7, 2012 at 5:09 PM, Kevin Layer <layer@franz.com> wrote:
This fix is from Mr. Kiyoshi Mizumaru. It adds an "S" to the lisp-version-string in the ACL SMP case. --- asdf.lisp | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-)
diff --git a/asdf.lisp b/asdf.lisp index 00f40fe..006746c 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -3256,13 +3256,14 @@ located." (car ; as opposed to OR, this idiom prevents some unreachable code warning (list #+allegro - (format nil "~A~A~@[~A~]" + (format nil "~A~A~@[~A~]~@[~A~]" excl::*common-lisp-version-number* ;; ANSI vs MoDeRn - thanks to Robert Goldman and Charley Cox (if (eq excl:*current-case-mode* :case-sensitive-lower) "M" "A") ;; Note if not using International ACL ;; see http://www.franz.com/support/documentation/8.1/doc/operators/excl/ics-target... - (excl:ics-target-case (:-ics "8"))) + (excl:ics-target-case (:-ics "8")) + (if (member :smp *features*) "S" nil)) #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*) #+clisp (subseq s 0 (position #\space s)) ; strip build information (date, etc.) -- 1.7.7.6
_______________________________________________ asdf-devel mailing list asdf-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
Faré wrote:
Applied in 2.23.7.
Thanks.
I now realize: we should probably have the default be unmarked, and what is not default have an extra letter. Isn't SMP the default? What's the name of the non-SMP build?
There really is no notion of "default" where SMP is concerned. The SMP distribution are separate from the non-SMP, so they appear as different versions. Kevin
participants (2)
-
Faré -
Kevin Layer