anchor.diff:      (setf (fill-pointer octets) 12)
       (setf (buffer-position buffer) 0)
       (let ((read-length
  -           #+clisp (lisp:read-byte-sequence octets stream)
  -           #-clisp (read-sequence octets stream)))
  +           (read-sequence octets stream)))
         (when (< read-length (length octets))
           (break "not read enough")
           (close stream)
  
positive.code:                (marshal-ulong status buffer)
                 (marshal-multiple values types buffer)))
          (marshal-giop-set-message-length buffer)
          #+clisp (lisp:write-byte-sequence (buffer-octets buffer) stream)
          #-clisp (write-sequence (buffer-octets buffer) stream)
          (mess 3 "#~D reply type ~A status ~A (len ~D)" 
                req-id msg-type status (length (buffer-octets buffer)))
          (force-output stream)))))
  
negative.code:       (if (< (array-total-size octets) size)
            (adjust-array octets size))
        (setf (fill-pointer octets) size)
        (read-sequence octets stream :start 12)
        (mess 2 "Receive (~D)" size)
        t)))
  
  