(define (<ξ>-set-macro! macro fn)
(sys/set-macro macro fn)
nil)
(define (<ξ>-set-macro-character! macro fn)
(sys/set-macro-character macro fn)
nil)
(sys/set-macro 'set-macro! '<ξ>-set-macro!)
(sys/set-macro 'set-macro-character! '<ξ>-set-macro-character!)