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

[Kevin Layer]

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