;;;;
;;;; 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)
Ozs7Owo7Ozs7IEZpcnN0IGFwcHJvYWNoCjs7OzsKCihzaGFkb3dpbmctaW1wb3J0KGRlZm1hY3JvIDpkb3RpbWVzICgmcmVzdCByKSAnKGxvb3ApKSkKKHByaW50IChtYWNyb2V4cGFuZCAnKGRvdGltZXMoaSA4KSkpKQoKOzsgUmV2ZXJ0IGltcG9ydAooc2hhZG93aW5nLWltcG9ydCAnY2w6ZG90aW1lcykKCjs7OzsKOzs7OyBTZWNvbmQgYXBwcm9hY2gKOzs7OwoKKHNldC1tYWNyby1jaGFyYWN0ZXIgI1w4IChsYW1iZGEgKCZyZXN0IHIpICcobG9vcCkpKQoocHJpbnQgJyhkb3RpbWVzIChpIDgpKSkKCjs7IFJldmVydCByZWFkdGFibGUgbW9kaWZpY2F0aW9uIChzZXR0aW5nIHRvIE5JTCBnaXZlcyBhbiBlcnJvcikKKHNldC1tYWNyby1jaGFyYWN0ZXIgI1w4IChsYW1iZGEgKHN0cmVhbSBjaGFyKSAocmVhZCBzdHJlYW0gVCBOSUwgVCkpIHQp