anchor.diff:  
   (defun marshal-string (s buffer)
     (marshal-ulong (1+ (length s)) buffer)
  -  (doseq (c s) (marshal-octet (char-code c) buffer))
  +  (loop for c across s
  +        do (marshal-octet (char-code c) buffer))
     (marshal-octet 0 buffer))
   
   (defun marshal-osequence (s buffer)
  
positive.code: (defun marshal-octet (n buffer)
    (declare (type buffer buffer)
             (optimize (speed 3) (debug 0)))
    (vector-push-extend n (buffer-octets buffer) 200))
  
  (defun marshal-bool (s buffer)
    (marshal-octet (if s 1 0) buffer))
  
negative.code: 	for c fixnum below size
  	do (marshal-octet (ldb (byte 8 p) n) buffer)))
  
  ;;
  (#-clisp define-compiler-macro #+clisp defmacro
           marshal-number (&whole form n size buffer)
    (if (numberp size)
        (let ((nvar '#:nvar)
              (nnvar '#:nnvar)
  