anchor.diff:        #+sbcl (sb-cltl2:variable-information name env)
         nil)))
   
  -(defmacro papply-listup-format (fn &rest args &environment env)
  +(defmacro papply-enumerate-format (fn &rest args &environment env)
     (let* ((gensym-lst)
            (body (with-tree-leaves args (eq leaf '_)
                    (car (push (gensym "PARG") gensym-lst)))))
  
positive.code:            ,@body ,not-applied-args)))))
  
  (defmacro papply-form-format ((op &rest args))
    `(papply-listup-format ,op ,@args))
  
  (defmacro papply (&rest op-and-args)
    " papply (op &rest args) => function ;{{{
  
negative.code:                              (flatten tree)))
              #'string<= :key #'symbol-name)))
  
  (defmacro apapply-enumerate-format (op &rest args &environment env)
    (with-gensyms (not-applied-args)
      `(lambda (,@(anaphora-list args) &rest ,not-applied-args)
         (apply ,(if (and (symbolp op) (not (lexically-bound-p op env)))
  