anchor.diff:  	     (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))
  
positive.code:       (assert-false (probe-file (local-socket-pathname))))))
  
  (define-test local-test/sockets
    (labels ((channel-test (client remote-client)
  	     (assert-true (poll-socket client '(determinedp connection-succeeded-p) 10))
  	     (assert-true (poll-socket remote-client 'determinedp 10))
  
negative.code: 	(close-socket server)))))
  
  (define-test local-test/remote-disconnected
    (: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))
  