diff --git a/asdf.lisp b/asdf.lisp index a95826b07b3b1b4ea21d45b58ea96955fb2e0f53..87c13891f36f31e82990402d25d78699e09dd661 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 " /:;&^\\|?<>(){}[]$#`'\""))