Does anyone know how to limit maximum buffer size of
fi:inferior-common-lisp-mode?

On `shell' mode we can specify buffer-maximum-size like follows

 (setq comint-buffer-maximum-size *buffer-maximum-size*)
 (add-hook 'comint-output-filter-functions
           'comint-truncate-buffer)

I would like to have same function on
fi:inferior-common-lisp-mode.

thank you.

-- 
(define (KURODA Hisao)
  (email <msi.co.jp)) at kuroda>