(defun ambrevar/sly-fix-history-ignore ()
(set (make-local-variable 'comint-input-history-ignore) "^;"))
(advice-add 'sly-mrepl--read-input-ring :before 'ambrevar/sly-fix-history-ignore)
(provide 'patch-sly-history)