anchor.diff:  
   
   ;;; macro taken from: http://www.cliki.net/REPL
  -(defmacro handling-errors (&body body)
  +;;; modified to handle warnings correctly 
  +(defmacro handling-errors-old (&body body)
     `(handler-case (progn ,@body)
  -     ;;;(sb-sys:interactive-interrupt ()
  -       ;;;(format *error-output*  "Interrupt handler.~%")
  -       ;;;(sb-ext:quit))
        (simple-condition (err) 
          (format *error-output* "~&~A: ~%" (class-name (class-of err)))
          (apply (function format) *error-output*
  
positive.code:    (history-out :initform (make-array 64 :fill-pointer 0 :adjustable t)
  		:reader evaluator-history-out)))
  
  
  (defun make-evaluator (kernel)
    (let ((evaluator (make-instance 'evaluator
  
negative.code: 		(let ((heartbeat-thread-id (start-heartbeat hb-socket)))
  		  ;; main loop
  		  (unwind-protect
  		       (format t "[Kernel] Entering mainloop ... ~%")
  		       (shell-loop shell)
  		    ;; clean up when exiting
  		    (bordeaux-threads:destroy-thread heartbeat-thread-id)
  