anchor.diff:    "Determine if objects are less than each other."
     (push object objects)
     (dolist (object objects)
  -    (assert (is-object object)))
  +    (assert (or (is-number object)
  +                (is-object object))))
     (create-term +term-term-type-lt+
                  (loop for o in objects
                        collect (wrap-in-term o))))
  
positive.code:   "Determine if objects are greater than each other."
    (push object objects)
    (dolist (object objects)
      (assert (is-object object)))
    (create-term +term-term-type-gt+
                 (loop for o in objects
                       collect (wrap-in-term o))))
  
negative.code:   "Determine if objects are less than/equal to each other."
    (push object objects)
    (dolist (object objects)
      (assert (or (is-number object)
                  (is-object object))))
    (create-term +term-term-type-le+
                 (loop for o in objects
                       collect (wrap-in-term o))))
  