[asdf-devel] [PATCH] Distinguish ACL SMP fasls from non-SMP ones

[Faré]

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 at 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-case.htm
> -              (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 at common-lisp.net
> http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel