anchor.diff:  (defpattern pnary (pattern)
     (operator
      (patterns :initarg :patterns))
  -  "pnary yields the result of applying OPERATOR to each value yielded by each pattern in PATTERNS.")
  -
  -(defun pnary (operator &rest patterns)
     "pnary yields the result of applying OPERATOR to each value yielded by each pattern in PATTERNS."
  -  (make-instance 'pnary
  -                 :operator operator
  -                 :patterns patterns))
  +  (defun pnary (operator &rest patterns)
  +    (set-parents
  +     (make-instance 'pnary
  +                    :operator operator
  +                    :patterns patterns))))
   
   (defmethod as-pstream ((pattern pnary))
     (with-slots (operator patterns) pattern
  
positive.code:   "Set PDEF-KEY's KEY in its plist to PATTERN."
    (pdef-ref pdef-key (plist-set (pdef-ref pdef-key) (alexandria:make-keyword key) pattern)))
  
  (defpattern pdef (pattern)
    ((key :reader pdef-key)
     (current-pstream :state t)
     (loop-p :initform t :accessor loop-p))
    "pdef names a pattern PATTERN by KEY.")
  
  (create-global-dictionary pdef)
  
  (defun pdef (key &optional (pattern nil pattern-supplied-p))
    "pdef names a pattern PATTERN by KEY."
    (when (or (not (null pattern))
              pattern-supplied-p)
      (pdef-ref-set key :pattern pattern))
    (make-instance 'pdef
                   :key key))
  
  (defmethod pdef-pattern ((object pdef))
    (pdef-ref-get (pdef-key object) :pattern))
  
negative.code: 
  DOCUMENTATION is a docstring describing the pattern. We recommend providing at least one example, and a \"See also\" section to refer to similar pattern classes.
  
  CREATION-FUNCTION is an expression which will be inserted into the pattern creation function prior to initialization of the instance. Typically you'd use this for inserting `assert' statements, for example."
    (let ((slots (mapcar #'alexandria:ensure-list slots))
          (name-pstream (intern (concatenate 'string (symbol-name name) "-PSTREAM") 'cl-patterns))
          (super-pstream (if (eq 'pattern (car superclasses))
  