From 69bffa3db545669bb9a94d0ff9a17862b8401beb Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Tue, 29 Nov 2011 23:56:46 -0600
Subject: [PATCH] Fix from R. Matthew Emerson for ccl::fasl-version change.

---
 asdf.lisp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index a95826b0..87c13891 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -3104,11 +3104,11 @@ located."
       (format nil "~d.~d-f~d" ; shorten for windows
               ccl::*openmcl-major-version*
               ccl::*openmcl-minor-version*
-              (logand ccl::fasl-version #xFF))
+              (logand (ccl-fasl-version) #xFF))
       #+cmu (substitute #\- #\/ s)
       #+scl (format nil "~A~A" s
-		    ;; ANSI upper case vs lower case.
-		    (ecase ext:*case-mode* (:upper "") (:lower "l")))
+                    ;; ANSI upper case vs lower case.
+                    (ecase ext:*case-mode* (:upper "") (:lower "l")))
       #+ecl (format nil "~A~@[-~A~]" s
                     (let ((vcs-id (ext:lisp-implementation-vcs-id)))
                       (subseq vcs-id 0 (min (length vcs-id) 8))))
@@ -3119,6 +3119,14 @@ located."
       #+mcl (subseq s 8) ; strip the leading "Version "
       s))))
 
+#+clozure
+(defun* ccl-fasl-version ()
+   (or (and (fboundp 'ccl::target-fasl-version)
+            (funcall 'ccl::target-fasl-version))
+       (and (boundp 'ccl::fasl-version)
+            (symbol-value 'ccl::fasl-version))
+       (error "Can't determine fasl version.")))
+
 (defun* implementation-identifier ()
   (substitute-if
    #\_ #'(lambda (x) (find x " /:;&^\\|?<>(){}[]$#`'\""))
-- 
GitLab