anchor.diff:                 (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)
  +        (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)))))
  
positive.code:     (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)))
        (when (< read-length (length octets))
          (break "not read enough")
          (close stream)
  
negative.code: ;;;; clorb-srvreq.lisp
  ;; $Id: clorb-srvreq.lisp,v 1.4 2001/06/03 23:59:17 lenst Exp $
  
  (in-package :clorb)
  
  