diff options
author | Guillaume Le Vaillant <glv@posteo.net> | 2020-12-30 14:16:19 +0100 |
---|---|---|
committer | Guillaume Le Vaillant <glv@posteo.net> | 2020-12-30 14:19:04 +0100 |
commit | f215e183e7fe0b66da009c07d70e6f738ea1da03 (patch) | |
tree | 65d9fdb774e07a3e7176895019c2eed2e78968ec | |
parent | 0af70f0ee5df35232c54a9855ab1dfba49ca6273 (diff) |
Improve check for existence of SB-VM::EA on SBCL
-rw-r--r-- | NEWS | 6 | ||||
-rw-r--r-- | src/package.lisp | 10 |
2 files changed, 11 insertions, 5 deletions
@@ -1,5 +1,11 @@ -*- mode: outline -*- +* Changes since version 0.53 + +** bug fixes + +Fixed SB-VM package lock error with SBCL on arm64. + * Version 0.53, released 2020-12-18 ** bug fixes diff --git a/src/package.lisp b/src/package.lisp index f30a9f3..f9cc496 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -220,11 +220,11 @@ :32-bit :64-bit) :ironclad-fast-mod32-arithmetic - (append - (when (member :x86-64 *features*) - '(:ironclad-fast-mod64-arithmetic)) - (when (fboundp 'sb-vm::ea) - '(:ironclad-sb-vm-ea)))) + (when (member :x86-64 *features*) + (list* :ironclad-fast-mod64-arithmetic + (let ((sym (find-symbol "EA" :sb-vm))) + (when (and sym (fboundp sym)) + '(:ironclad-sb-vm-ea)))))) #+cmu (list (c:backend-byte-order c:*target-backend*) (if (= vm:word-bits 32) |