(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)