anchor.diff:                form))
           ((eql t)
            ;; Any arguments!
  -         (ast `(quote ,(apply function
  +         (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))
  
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:                           (push (value unwrapped) constant-accu))
                           (t
                            (when constant-accu
                              (push (ast `(quote ,(apply folder (nreverse constant-accu)))
                                         form)
                                    arg-accu)
                              (setf constant-accu nil))
  