[clisp-list] Break message

[Leonardo B. <da...@lc...>]

I' ve made this function to compile lisp code from a file and to write the
results in other files! In fact,  I want to write in the error file the
"break message" as in lisp prompt and not the error. How can I do this?
Thanks..

(defun lisp-call ()
;;open the files
(let ((is (open "file way/code" :direction :input))
      (os (open "file way/results" :direction :output))
      (es (open "file way/erros" :direction :output)))
;;write to files    
   (multiple-value-bind (a error)
        (ignore-errors (print (eval (read is)) os))
      (print error es))
    (close es)
    (close os)))
;;start function
(lisp-call)