anchor.diff:  
   ;;;
   ;;; Hierarchy Resolution
  -;;; - blatantly taken from Closette.
   ;;;
   (defun collect-parents (sheep)
     (labels ((all-parents-loop (seen parents)
  
positive.code:      do (memoize-property-access (weak-pointer-value child-pointer)))
    new-value)
  
  (defun get-cloneform (sheep property-name)
    (if (std-sheep-p sheep)
        (std-get-cloneform sheep property-name)
  
negative.code: (defun (setf std-get-clonefunction) (new-value sheep property-name)
    (setf (gethash property-name (gethash 'clonefunctions sheep)) new-value))
  
  (defun available-cloneforms (sheep)
    (if (std-sheep-p sheep)
        (std-available-cloneforms sheep)
  