anchor.diff:  
   (defmethod print-object ((sheep standard-sheep-class) stream)
     (print-unreadable-object (sheep stream :identity t)
  -    (format stream "Standard-Sheep SID: ~a" (sid sheep))))
  +    (format stream "~s SID: ~a" (sheep-nickname sheep) (sid sheep))))
   
   ;;;
   ;;; Cloning
   ;;;
   
   ;; Example: (clone (sheep1 sheep2 sheep3) ((property1 value1) (property2 value2)))
  -(defmacro clone (sheeple &optional properties)
  +(defmacro clone (sheeple &optional properties &environment env)
     "Standard sheep-generation macro"
     `(create-sheep
       :sheeple ,(canonicalize-sheeple sheeple)
  
positive.code:   ((sid
      :initform (incf *max-sheep-id*)
      :reader sid)
     (parents
      :initarg :parents
      :initform nil
  
negative.code: 	 (set-up-inheritance
  	  (make-instance 'standard-sheep-class)
  	  sheeple)))
      (set-up-properties properties sheep)
      sheep))
  
  (defun set-up-properties (properties sheep)
    (loop for property-list in (eval properties)
         do (set-up-property property-list sheep)))
  
  (defun set-up-property (property sheep)
    (let ((name (getf property :name))
  	(value (get property :value))
  	(readers (getf property :readers))
  	(writers (getf property :writers)))
      (setf (get-property sheep name) value)
      (loop for reader in readers
         do (ensure-message :name reader
  			  :lambda-list '(sheep)
  			  :participants (list sheep)
  			  :body '(get-property sheep name)))
      (loop for writer in writers
         do (if (listp writer) 
  	      (ensure-message :name writer
  			      :lambda-list '(new-value sheep)
  			      :participants (list =dolly= sheep)
  			      :body '(setf (get-property sheep name) new-value))
  	      (ensure-message :name writer
  			      :lambda-list '(sheep new-value)
  			      :participants (list =dolly= sheep)
  			      :body '(setf (get-property sheep name) new-value))))))
  
  (defun set-up-inheritance (new-sheep sheeple)
    "If SHEEPLE is non-nil, adds them in order to "
    (let ((obj new-sheep))
  