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:               ,@args ,not-applied-args))))
  
  (defmacro apapply-form-format ((op &rest args))
    `(apapply-enumerate-format ,op ,@args))
  
  (defmacro apapply (&rest op-and-args)
    (cond ((or (atom (car op-and-args))
               (eq (caar op-and-args) 'function))
           `(apapply-enumerate-format ,(car op-and-args) ,@(cdr op-and-args)))
          (t `(apapply-form-format ,@op-and-args))))
  
  (defmacro p (&rest op-and-args)
  