(eval-when (:compile-toplevel :execute)
(defun double-shift-inst-printer-list (op)
`((ext-reg-reg/mem ((op ,(logior op #b10)) (width 0)
(eval-when (:compile-toplevel :execute)
(defun double-shift-inst-printer-list (op)
`((ext-reg-reg/mem ((op ,(logior op #b10)) (width 0)