anchor.diff:    (close *java-socket-stream*)
     ;; close socket
     (close *java-socket*)
  +  (exit)
     )
   
   #| for testing purposes make a lisp server
  
positive.code:   (mp:process-run-function *java-listener-name* 'java-listener))
  
  (defun 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*)
  
negative.code: (defun process-unit (path-name file-name)
    (format t "~%PATH NAME ~S ~%FILE NAME ~S" path-name file-name)
    (setq *current-path-name* path-name)
    (let* ((full-pathname (pathname (concatenate 'string path-name file-name)))
           (full-file-name (namestring full-pathname))
  	 (file-name-uri (pathname-name full-pathname))
  	 (full-path-name (cl-user::path-namestring full-file-name)))
      (format t "~% FULL FILE NAME ~S  ~% URI ~S ~% PATH-NAME ~S "
  	    full-file-name file-name-uri full-path-name)
  