anchor.diff:  (defun start-heartbeat (socket)
     (let ((thread-id (bordeaux-threads:make-thread
   		    (lambda ()
  -		      (format t "[Heartbeat] thread started~%")
  +		      (format t "[Heartbeat] thread started ~%")
   		      (loop
   			 (pzmq:with-message msg
   			   (pzmq:msg-recv msg socket)
  
positive.code: ;;; Config ;;;
  ;;;;;;;;;;;;;;
  (defparameter +KERNEL-IMPLEMENTATION-NAME+ "cl-jupyter")
  (defparameter +KERNEL-IMPLEMENTATION-VERSION+ "0.6")
  (defparameter +KERNEL-PROTOCOL-VERSION+ "5.0")
  (defparameter +ISPAD-VERSION+ "0.9.3 :: 01-OCT-2015")
  
  
  ;;;;;;;;;;;;;
  
negative.code:    (history-out :initform (make-array 64 :fill-pointer 0 :adjustable t)
  		:reader evaluator-history-out)))
  
  ;;; clj 220d037
  (defvar *evaluator* nil)
  
  (defun make-evaluator (kernel)
    (let ((evaluator (make-instance 'evaluator
  