diff options
| author | Stas Boukarev <stassats@gmail.com> | 2023-06-21 14:30:58 +0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-06-21 14:30:58 +0300 |
| commit | e0a66e788510b504239011b46d951a75518fd74b (patch) | |
| tree | 6b3481caa152caed32797200c8d7228f86545c71 /src | |
| parent | b4a178db86f189d1ca16decfb116012b1bf554c4 (diff) | |
Enable :ironclad-fast-mod64-arithmetic on sbcl-arm64
Diffstat (limited to 'src')
| -rw-r--r-- | src/package.lisp | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/package.lisp b/src/package.lisp index 49262b2..a4afec7 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -220,11 +220,13 @@ :32-bit :64-bit) :ironclad-fast-mod32-arithmetic - (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)))))) + (cond ((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))))) + ((member :arm64 *features*) + '(:ironclad-fast-mod64-arithmetic)))) #+cmu (list (c:backend-byte-order c:*target-backend*) (if (= vm:word-bits 32) |