anchor.diff:  
   See also: `pbind''s :embed key"
     :defun (defun pchain (&rest patterns)
  -           (set-parents
  -            (make-instance 'pchain
  -                           :patterns patterns))))
  +           (make-instance 'pchain
  +                          :patterns patterns)))
   
   (defmethod as-pstream ((pchain pchain))
     (with-slots (patterns) pchain
  
positive.code:    (metadata :initarg :metadata :initform (make-hash-table) :type hash-table :documentation "Hash table of additional data associated with the pattern, accessible with the `pattern-metadata' function."))
    (:documentation "Abstract pattern superclass."))
  
  (defun pattern-p (object)
    "True if OBJECT is a pattern.
  
  
negative.code: 
  See also: `pfunc', `p+', `p-', `p*', `p/'"
    :defun (defun pnary (operator &rest patterns)
             (make-instance 'pnary
                            :operator operator
                            :patterns patterns)))
  
  (defmethod as-pstream ((pnary pnary))
    (with-slots (operator patterns) pnary
  