anchor.diff:  
   (defun box-object (object)
     "Wraps OBJECT with a sheep."
  -  (if (sheep-p object)
  +  (if (sheepp object)
         (error "~S seems to already be a sheep." object)
         (setf (gethash object *boxed-object-table*)
  -            (defclone ((box-type-of object))
  +            (defsheep ((box-type-of object))
                   ((wrapped-object object)) (:nickname object)))))
   
   (defun remove-boxed-object (object)
  
positive.code:   "Returns OBJECT or fleeces it."
    (cond ((eq object t)
           =t=)
          ((not (sheep-p object))
           (or (find-boxed-object object)
               (values (box-object object) t)))
          (t
  
negative.code:   "Finds a previously-boxed object in the boxed object table.
  If ERRORP is T, this signals an error if OBJECT is a sheep, or if OBJECT
  has not already been boxed."
    (if (sheepp object)
        (if errorp (error "~S seems to already be a sheep." object) nil)
        (multiple-value-bind (sheep hasp)
            (gethash object *boxed-object-table*)
  