anchor.diff:  	for c fixnum below size
   	do (marshal-octet (ldb (byte 8 p) n) buffer)))
   
  -;;#-clisp
  -(define-compiler-macro marshal-number (&whole form n size buffer)
  +;;
  +(#-clisp define-compiler-macro #+clisp defmacro
  +         marshal-number (&whole form n size buffer)
     (if (numberp size)
         (let ((nvar '#:nvar)
               (nnvar '#:nnvar)
  
positive.code:   (marshal-sequence (object-profiles objref)
                      #'marshal-tagged-component buffer))
  
  (defmethod marshal-ior ((objref null) buffer)
    (marshal-string "" buffer)
    (marshal-ulong 0 buffer))
  
  (defun marshal-write-union (union params buffer)
    (let* ((discriminant (union-discriminator union))
  
negative.code:                   (mess 1 "in closure, objref: ~S" objref)
                    (marshal-octet 1 buffer) ;Version
                    (marshal-octet 0 buffer)
                    ;; FIXME: should use the ORB values for host/port
                    ;; how to get ORB reference?
                    (marshal-string (or (object-host objref) *host*) buffer)
                    (marshal-ushort (or (object-port objref) *port*) buffer)
                    (marshal-osequence (object-key objref) buffer))))))))
  