anchor.diff:      (let ((output-str (with-output-to-string (str)
   		      (let ((*standard-output* str))
   			(cl-user::swj file-name-uri)))))
  -    (jstatic "setGenerateJavaResults" "edu.kestrel.netbeans.lisp.LispProcessManager" path-name file-name output-str))
  +    (jstatic "setGenerateJavaResults" "edu.kestrel.netbeans.lisp.LispProcessManager"
  +	     path-name file-name output-str))
   
       (format t "~%~% FINISHED")))
   
  
positive.code: (defvar *java-socket-stream*)
  
  (defun init-java-listener ()
    (setq *java-socket* (socket:make-socket :connect :passive :local-port 4323))
    (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*)
  	      (when (listen *java-socket-stream*)
  		(let ((form (read *java-socket-stream* :eof-errorp nil :eof-value :end)))
  		  (if (eq form :end)
  		      (return)
  		    (ignore-errors (eval form))))))
    (close *java-socket-stream*)
    ;; close socket
    )
  
  (defun jstatic (method cl &rest args)
    (format *java-socket-stream* "~a ~a(" method cl)
    (loop for arg in args
           do (format *java-socket-stream* " ~a" arg))
    (format *java-socket-stream* ")")
    (force-output *java-socket-stream*))
  
  (defvar *current-path-name*)
  
negative.code:   (let* ((filepath (parse-namestring file))
  	 (name (pathname-name filepath))
  	 (filedir (pathname-directory filepath))
  	 (path (pathname-directory (parse-namestring (concatenate 'string
  						       *current-path-name* "/"))))
  	 (rel-path (remove-common-prefix path filedir))
  	 (rel-dir (concat-with-dots rel-path)))
      (jstatic "setProcessUnitResults" "edu.kestrel.netbeans.lisp.LispProcessManager"
  