Raymond Toy pushed to branch arm64-dev-1 at cmucl / cmucl Commits: a232fbc5 by Raymond Toy at 2026-03-26T07:02:22-07:00 Fix error in computing fixup kind for movz/movk Was calling intern on a symbol (symbolicate). Replace it with a simple format that returns a string for intern. [skip-ci] - - - - - 1 changed file: - src/compiler/arm64/insts.lisp Changes: ===================================== src/compiler/arm64/insts.lisp ===================================== @@ -1995,10 +1995,8 @@ (emit-format-move-wide segment ,sf ,opc #b100101 hw src (reg-tn-encoding rd))) (fixup - (let ((fixup-name (intern - (symbolicate (symbol-name ,fixup-kind) - (format nil "-~D" lsl)) - :keyword))) + (let ((fixup-name (intern (format nil "~A-~D" ,fixup-kind lsl) + :keyword))) ;; Fixup names are like :movz-0, :movz-16, :movz-32, :movz-48. (note-fixup segment fixup-name src)) (emit-format-move-wide segment ,sf ,opc #b100101 hw 0 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a232fbc5465510a5247fc464... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/a232fbc5465510a5247fc464... You're receiving this email because of your account on gitlab.common-lisp.net. Manage all notifications: https://gitlab.common-lisp.net/-/profile/notifications | Help: https://gitlab.common-lisp.net/help