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