anchor.diff:    (values))
   
   (defvar *java-listener-name* "Java Listener")
  -(defvar *end-method-string* "--end--arguments--")
   
   (defun java-listener-running-p ()
     (loop for process in sys::*all-processes* 
  
positive.code: 
  (in-package :cl-user)
  
  
  (defun print-result (arg)
    (format t "~% Connection to Java ~A" arg)
  
negative.code:   (mp:process-run-function *java-listener-name* 'java-listener))
  
  (defun java-listener ()
    (setq *java-socket* (socket:make-socket :connect :passive :local-port *socket-number*))
    (setq *java-socket-stream* (socket:accept-connection *java-socket*))
    (loop while (open-stream-p *java-socket-stream*)
  	   do ;;(socket::wait-for-input *java-socket-stream*)
  