anchor.diff:          (apply #'list param0 (1+ param1) 'a restparams))
     ;}}}"
     (cond ((or (atom (car op-and-args)) (eq (caar op-and-args) 'function))
  -         `(papply-listup-format ,(car op-and-args) ,@(cdr op-and-args)))
  +         `(papply-enumerate-format ,(car op-and-args) ,@(cdr op-and-args)))
           (t `(papply-form-format ,@op-and-args))))
   
   ;;; APAPPLY
  
positive.code:                              (flatten tree)))
              #'string<= :key #'symbol-name)))
  
  (defmacro apapply-listup-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)))
  
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)
  