Does not build on SBCL today

[quicklisp]

I get this failure: http://report.quicklisp.org/2019-04-28/failure-report/inlined-generic-function.html#inlined-generic-function

;   during macroexpansion of (MATCH2*+ (WHOLE) (T) ...). Use *BREAK-ON-SIGNALS* to intercept.
;    invalid number of arguments: 8```

[guicho271828]

fix commited