[clisp-list] changing top level behavior

[<don...@is...>]

I'm just trying to record history - what was typed in to be evaluated
(either to top level or break loop) and when.
This is not as easy as I think it ought to be, largely due to the
fact that the functions I'd like to redefine are not defined in
lisp.  For instance, this seems to make sense:
 (defun read-eval-print (prompt &optional (command-list nil)) ;;debug.d !!
   (multiple-value-bind (form flag) 
       (read-form *standard-output* *standard-input* prompt command-list) 
 ;; insert here: (record-history form)
 ...
but it doesn't work.

Any advice from those more familiar with this code?