anchor.diff:  (create-global-dictionary pdef)
   
   (defun all-pdefs ()
  -  "Get a list of all pdefs."
  +  "Get a list of all pdefs.
  +
  +See also: `all-patterns'"
     (keys *pdef-dictionary*))
   
   (defmethod pdef-pattern ((object pdef))
  
positive.code: (defun next-upto-n (pattern &optional (n *max-pattern-yield-length*))
    "Get a list of up to N results from PATTERN. If PATTERN ends after less than N values, then all of its results will be returned.
  
  See also: `next', `next-n'"
    (assert (integerp n) (n) "next-upto-n's N argument must be an integer.")
    (let ((pstream (as-pstream pattern)))
      (loop
  
negative.code:     (alexandria:appendf pattern-chain (list pattern))
      (unless (alexandria:length= 1 pattern-chain)
        (setf pattern (apply #'pchain pattern-chain)))
      ;; process :quant key.
      (alexandria:when-let ((quant (getf pairs :quant)))
        (setf (quant pattern)
              (if (functionp quant)
  