anchor.diff:    (declare (optimize speed)
              (type octets seq)
              (type index start end))
  -  #+(and mcl (not xxuse-acl-socket))
  -  (let ((read-pos start))
  -    (declare (type index read-pos))
  -    (loop while (< read-pos end)
  -          do (setf (aref seq read-pos) (read-byte stream t))
  -          (incf read-pos)))
  -  #-(and mcl (not xxuse-acl-socket))
     (let ((n (read-sequence seq stream :start start :end end)))
       (when (< n (- end start))
         (error 'end-of-file :stream stream))))
  
positive.code:       :format (if binary :binary :text))
       
       #+mcl
       (ccl::open-tcp-stream host port :element-type type))))
  
  
  (defun accept-connection-on-socket (socket &optional (blocking nil))
  
negative.code: (defun write-octets (seq start end stream)
    (declare (type octets seq)
             (type index start end))
    (write-sequence seq stream :start start :end end)
    (force-output stream))
  
  (defun write-octets-no-hang (seq start end stream)
  