anchor.diff:             (setf const-args (nreverse const-args)
                    nonconst-args (nreverse nonconst-args))
              (when (or const-args (not nonconst-args))
  -             (setf value (apply function const-args))
  +             (setf value (apply folder const-args))
                (if nonconst-args
                    (ast `(call ,function
                                (quote ,value)
  
positive.code:                    (ast `(call ,function
                                 ,@(nreverse arg-accu)
                                 ,@(when constant-accu
                                         (list `(quote ,(apply function (nreverse constant-accu))))))
                          form)
                     (ast `(quote ,(apply function (nreverse constant-accu)))
                          form)))
               (ast `(quote ,(funcall function))
                    form)))
  
negative.code:               form))
          ((eql t)
           ;; Any arguments!
           (ast `(quote ,(apply folder
                                (mapcar (lambda (thing)
                                          ;; Bail out if thing is non-constant or does not match the type.
                                          (setf thing (unwrap-the thing))
  