anchor.diff:  
   #-windows
   (define-test local-test/full-write-buffer
  +  (:tag :local-socket)
     (labels ((channel-test (client remote-client)
   	     (declare (ignore remote-client))
   	     (let ((buffer (make-array 100000 :element-type '(unsigned-byte 8)))
  
positive.code:   "//./pipe/test.socket")
  
  (define-test make-local-server
    (let ((server (make-local-server (local-socket-pathname))))
      #-windows
      (assert-true (probe-file (local-socket-pathname)))
  
negative.code: 	     (let ((buffer (make-array 10 :element-type '(unsigned-byte 8))))
  	       (dotimes (i (length buffer))
  		 (setf (elt buffer i) i))
  
  	       (assert-error 'error (write-to-stream client buffer :start -1))
  	       (assert-error 'error (write-to-stream client buffer :end -1))
  	       (assert-error 'error (write-to-stream client buffer :start 3 :end 1))
  