anchor.diff:  	    (set-up-inheritance
   	     (make-instance 'standard-sheep-class)
   	     ,(canonicalize-sheeple sheeple))))
  -       (loop for (name . value) in ',(canonicalize-properties properties)
  +       (loop for (name . value) in ,(canonicalize-properties properties)
   	  do (setf (get-property sheep name) value))
          sheep))
     
  
positive.code: (defun canonicalize-sheeple (sheeple)
    `(list ,@(mapcar #'canonicalize-sheep sheeple)))
  
  (defun find-sheep-by-identifier (id)
    nil)
  
  (defun canonicalize-sheep (sheep)
    `,sheep)
  
  (defun canonicalize-properties (properties)
    (mapcar #'canonicalize-property properties))
  
  (defun canonicalize-property (property)
    (if (symbolp (car property))
        (cons (car property) (cadr property))
        (error "Improper property!")))
  
  ;;;
  ;;; Inheritance management
  
negative.code: ;;; Cloning
  ;;;
  
  (let ((dolly (make-instance 'standard-sheep-class :id 'dolly)))
  
    ;; TODO: Make sure this is right.
  