anchor.diff:                       (ldb (byte 0 loc-element-bit-size) slot-value))))))))
   
   (defun initialize-instance-slot (instance-value slot-value slot index image environment)
  -  (initialize-instance-slot-by-location instance-value
  -                                        slot-value
  -                                        (env:structure-slot-definition-location slot)
  -                                        index
  -                                        image
  -                                        environment))
  +  (initialize-instance-slot-by-location
  +   instance-value
  +   slot-value
  +   (env:structure-slot-definition-location slot)
  +   index
  +   image
  +   environment))
   
   (defmethod initialize-object ((object env:instance-object) value image environment)
     (let ((sdef (env:instance-structure-definition object)))
  
positive.code:      (setf (object-slot image value 0)
             (serialize-object (realpart object) image environment))
       (setf (object-slot image value 1)
             (serialize-object (realpart object) image environment)))
      (single-float
       (initialize-object-header image value sys.int::+object-tag-complex-single-float+ 0)
       (setf (object-slot image value 0)
  
negative.code: 
  (defmethod initialize-object ((object symbol) value image environment)
    ;; TODO: Include symbol mode.
    (initialize-object-header image value sys.int::+object-tag-symbol+ 0)
    (setf (object-slot image value sys.int::+symbol-name+)
          (serialize-object (env:cross-symbol-name environment object) image environment))
  