Try this
<br />
(defun comint-clear-buffer () (interactive)<br />
(save-excursion<br />
(comint-goto-process-mark)<br />
(forward-line 0)<br />
(kill-region (point-min) (point))))<br />
(define-key comint-mode-map (kbd "C-l") 'comint-clear-buffer)<br />
</p>