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

Kevin Layer layer at franz.com
Tue Aug 7 21:09:23 UTC 2012

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
-      (format nil "~A~A~@[~A~]"
+      (format nil "~A~A~@[~A~]~@[~A~]"
               ;; 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*)
       (subseq s 0 (position #\space s)) ; strip build information (date, etc.)

More information about the asdf-devel mailing list