anchor.diff:                                 :use-slot-names ,use-slot-names))))))
     
   
  -(defmacro decl-mread-class (class-name &key use-slot-names
  -                                         (slots nil slots-p)
  -                                         (mread-object 'mread-object-slots)
  -                                         (new-instance  `(make-instance ',class-name)))
  +(defmacro decl-mread-class (class-name
  +			    &key use-slot-names
  +			    (slots nil slots-p)
  +			    (mread-object 'mread-object-slots)
  +			    (new-instance  `(make-instance ',class-name)))
     "shortcut for (defmethod mread-object (...))"
     (declare (type symbol mread-object)
              (type list new-instance))
  
positive.code:   index)
  
  
  
  
  (defun mread-object-slots (object ptr index end-index
  
negative.code:            (type list slots))
  
    (if use-slot-names
        (mread-object-slots-using-names object ptr index end-index)
  
        (progn
  	(dolist (slot (if slots-p slots (mlist-object-slots object)))
  	  (let ((slot-name (if (symbolp slot)
  			       slot
  			       (closer-mop:slot-definition-name slot))))
  	    (mread-object-slot object ptr index end-index slot-name)))
  	(values object index))))
  
  
  (defun check-slot-names (slots)
  