;;;;
;;;; First approach
;;;;

(shadowing-import(defmacro :dotimes (&rest r) '(loop)))
(print (macroexpand '(dotimes(i 8))))

;; Revert import
(shadowing-import 'cl:dotimes)

;;;;
;;;; Second approach
;;;;

(set-macro-character #\8 (lambda (&rest r) '(loop)))
(print '(dotimes (i 8)))

;; Revert readtable modification (setting to NIL gives an error)
(set-macro-character #\8 (lambda (stream char) (read stream T NIL T)) t)