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 ((output-str (with-output-to-string (str)
  		      (let ((*standard-output* str))
  			(cl-user::swl file-name-uri)))))
      (jstatic "setGenerateLispResults" "edu.kestrel.netbeans.lisp.LispProcessManager"
  	     path-name file-name output-str))
  
      (format t "~%~% FINISHED")))
  
  