できますた (*-_-*)

(defun comint-watch-for-clear-command (string)
(when (string-match "clear" string)
(interactive)
(let ((inhibit-read-only t))
(erase-buffer))))
(add-hook 'comint-input-filter-functions 'comint-watch-for-clear-command)