anchor.diff:  	(close-socket server)))))
   
   (define-test local-test/stream
  +  (:tag :local-socket)
     (labels ((channel-test (client remote-client)
   	     (assert-true (poll-socket client 'ready-to-write-p 0))
   	     (assert-false (poll-socket remote-client 'data-available-p 0))
  
positive.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))
  
negative.code: 
  #-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)))
  