anchor.diff:  	       (close-socket client)))
   	(close-socket server)))))
   
  -(define-test connect-to-local-server/does-not-exist  
  +(define-test connect-to-local-server/does-not-exist
  +  (:tag :local-socket)
     (assert-error 'no-local-server-error (connect-to-local-server (local-socket-pathname))))
   
   (define-test local-test/pathname
  +  (:tag :local-socket)
     (labels ((perform-test (server client remote-client)
   	     (assert-true (poll-socket client 'connection-succeeded-p 10))	     
   	     (assert-true (pathname-match-p (local-pathname server)
  
positive.code: 	(close-socket server)))))
  
  (define-test local-test/no-data
    (labels ((channel-test (client remote-client)
  	     (let ((buffer (make-array 10 :element-type '(unsigned-byte 8))))
  	       (assert-equal 0 (read-from-stream client buffer))
  
negative.code:       (assert-false (probe-file (local-socket-pathname))))))
  
  (define-test local-test/sockets
    (:tag :local-socket)
    (labels ((channel-test (client remote-client)
  	     (assert-true (poll-socket client '(determinedp connection-succeeded-p) 10))
  	     (assert-true (poll-socket remote-client 'determinedp 10))
  