anchor.diff:  (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-file-name (namestring (pathname (concatenate 'string path-name file-name))))
  -	 (file-name-uri file-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)
  
positive.code: 
  (in-package :cl-user)
  
  
  (defun print-result (arg)
    (format t "~% Connection to Java ~A" arg)
  
negative.code:   (values))
  
  (defvar *java-listener-name* "Java Listener")
  
  (defun java-listener-running-p ()
    (loop for process in sys::*all-processes* 
  