anchor.diff:        (if (< (array-total-size octets) size)
             (adjust-array octets size))
         (setf (fill-pointer octets) size)
  -      #+clisp (lisp:read-byte-sequence octets stream :start 12)
  -      #-clisp (read-sequence octets stream :start 12)
  +      (read-sequence octets stream :start 12)
         (mess 2 "Receive (~D)" size)
         t)))
   
  
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:     (setf (fill-pointer octets) 12)
      (setf (buffer-position buffer) 0)
      (let ((read-length
             (read-sequence octets stream)))
        (when (< read-length (length octets))
          (break "not read enough")
          (close stream)
  