anchor.diff:             ,@other-options)))
   
   (defun canonize-options (options)
  -  (mapcan #'canonize-clone-option options))
  +  (mapcan #'canonize-option options))
   
   (defun canonize-option (option)
     (list `,(car option) (cadr option)))
  
positive.code:                        ,name nil)
                     ,(canonize-sheeple sheeple)
                     :properties ,(canonize-properties properties t)
                     ,@(canonize-clone-options options))))
         (unless (sheep-nickname sheep)
           (setf (sheep-nickname sheep) ',name))
         (setf (symbol-value ',name) sheep))))
  
negative.code:   `(let ((sheep (ensure-sheep
                   ,(canonize-sheeple sheeple)
                   :properties ,(canonize-properties properties)
                   ,@(canonize-options options))))
       sheep))
  
  (defmacro defproto (name sheeple properties &rest options)
  