Grouping by curried predicates?

Does the grouping method by predicate supports curried functions? I couldn't make it work.. perhaps it's because it does not support byte-compiled function well? Below is a minimal example.

### Setup

```
(defun foo (x y)
"All true."
(lambda () t))
```

### Case one

```
(setq org-super-agenda-groups
'((:name "All"
:pred (apply-partially #'foo nil))))
```

Error:

```
Debugger entered--Lisp error: (error "No clause matching ‘function’")
signal(error ("No clause matching ‘function’"))
error("No clause matching `%S'" function)
#f(compiled-function (arg) #)(function)
mapcar(#f(compiled-function (arg) #) #'foo)
-map(#f(compiled-function (arg) #) #'foo)
#f(compiled-function (arg) #)(#'foo)
mapcar(#f(compiled-function (arg) #) (apply-partially #'foo nil))
-map(#f(compiled-function (arg) #) (apply-partially #'foo nil))
#f(compiled-function (arg) #)((apply-partially #'foo nil))
org-super-agenda--group-pred [..]
org-super-agenda--group-dispatch [..]
org-super-agenda--group-items [..]
org-super-agenda--filter-finalize-entries [..]
org-agenda-finalize-entries [..]
org-agenda-list(nil "-7d" 1)
```

### Case two

```
(setq org-super-agenda-groups
`((:name "All"
:pred ,(apply-partially #'foo nil))))

; ERROR: Wrong type argument: symbolp, #[128 "ÂÀÃÁ\"\"‡"
[foo (nil) apply append] 6 "
```

### Case three

```
(setq org-super-agenda-groups
`((:name "All"
:pred #',(apply-partially 'foo nil))))

; ERROR: No clause matching ‘function’
```